0200                   BAC-220 STANDARD VERSION   2/1/62

0200      COMMENT          CONGENITAL  HEART  DISEASE  DIAGNOSIS  PROGRAM.      CHDD0001

0200                       FROM A SET OF CLINICAL SYMPTOMS, THE PROBABILITIES   CHDD0002

0200                       FOR EACH OF THE 33 CONGENITAL HEART DISEASES BEING   CHDD0003

0200                       PRESENT IN THE PATIENT UNDER CONSIDERATION IS        CHDD0004

0200                       CALCULATED AND THOSE GREATER THAN ONE PERCENT        CHDD0005

0200                       ARE PRINTED OUT TOGETHER WITH DISEASE IDENTIFICATION CHDD0006

0200                       AND CASE INFORMATION.                                CHDD0007

0200

0200                              FRED B FIELDING                               CHDD0008

0200                       SAN FRANCISCO DISTRICT OFFICE                        CHDD0009

0200

0200                       CARD SEQUENCE CODE FOR THE PROGRAM STARTS WITH       CHDD0010

0200                       CHDD0001 AND  ROW 01-1 FOR SYMPTOM-DISEASE MATRIX.   CHDD0011

0200                       FIRST RELEASE   05 - 31 - 61                        $CHDD0012

0200

0200

0200      INTEGER          CASENO , CASEIN , SHEET , XRAY , EQUATION ,          CHDD0013

0200                       MO , DAY , YEAR , LAST ,                             CHDD0014

0200                       E , J , K , P , X ,                                  CHDD0015

0200                       TOTE , TOTP , TOTX , OUTSHEET ,                      CHDD0016

0200                       T22 , T2021 , T4243 , T4445 , T6789 ,                CHDD0017

0200                       ( SYE() , SYP() )  ,  ( TE() , TP() ) ,              CHDD0018

0200                       ROW () , MX () , M (,)   $                           CHDD0019

0200      REAL             SUM , FTROW () , FTMX () , PYKX () , PYX ()   $      CHDD0020

0200

0200      ARRAY            ( SYE(20) , SYP(20) )  ,  ( TE(50) , TP(50) ) ,      CHDD0021

0200                       ( ROW(51) , FTROW(50) ) , ( MX(10) , FTMX(10) ) ,    CHDD0022

0200                       PYKX (33) , PYX (33) , M (33,18)   $                 CHDD0023

0200

0200      EXTERNAL PROCEDURE  UNPACK ( M(K, ),SHEET,XRAY,EQUATION $ ROW( ) )   $CHDD0024

0200

0200      COMMENT          READ DATA FOR SYMPTOM-DISEASE MATRIX.               $CHDD0025

0202      INPUT            MATRIX(FOR K=(1,1,33) $ FOR J=(1,1,18) $ M(K,J) )   $CHDD0026

0239                       READ ( $ $ MATRIX )   $                              CHDD0027

0239

0243      COMMENT          THE PROGRAM BEGINS HERE.  THE FIRST TWO INPUT CARDS  CHDD0028

0243                       ARE READ, THE FIRST TWO LINES OF OUTPUT ARE PRINTED, CHDD0029

0243                       THE NUMBER OF SYMPTOMS ARE CALCULATED,               CHDD0030

0243                       AND THE EQUATION TYPE DETERMINED.       $            CHDD0031

0243

0243      NEWCASE..        FOR P = (1,1,20)  $  SYP (P) = 0   $                 CHDD0032

0258                       FOR J = (1,1,50)  $  TP (J) = ROW (J) = 0   $        CHDD0033

0274                       FOR J = (1,1,50)  $  FTROW (J) = 0.0   $             CHDD0034

0289      INPUT            CASE (CASENO,CASEIN,SHEET,XRAY,EQUATION,             CHDD0035

0306                       MO,DAY,YEAR,LAST )   $                               CHDD0036

0320      CARD1..          READ  ( $ $ CASE )   $                               CHDD0037

0324      OUTPUT           IDOUT ( CASENO , CASEIN , MO , DAY , YEAR )   $      CHDD0038

0343      FORMAT           IDFORM (B5,*CASE NUMBER*,I7,B5,                      CHDD0039

0343     *PATIENT*,B2,A3,B5,*DATE*,B1,3(I3),W3 )   $                            CHDD0040

0361                       WRITE ( $ $ IDOUT , IDFORM)   $                      CHDD0041

0369      INPUT            PRESENT  ( FOR P = (1,1,20) $  SYP (P)  )   $        CHDD0042

0390      CARD2..          READ (  $ $ PRESENT )   $                            CHDD0043

0394                       P = 1   $                                            CHDD0044

0396                       FOR J = (1,1,50)   $                                 CHDD0045

0407                  BEGIN                                                     CHDD0046

0407                       IF SYP (P)  EQL J  $                                 CHDD0047

0417                       ( TP (J) = 1  $  P = P+1 )                           CHDD0048

0420                  END $                                                     CHDD0049

0421                       TOTP = P - 1   $                                     CHDD0050

0424      OUTPUT           POUT ( FOR P = (1,1,TOTP)  $  SYP (P) )   $          CHDD0051

0445      FORMAT           PFORM (B5,*SYMPTOMS PRESENT*,B4,20(I4),W4)   $       CHDD0052

0456                       WRITE ( $ $ POUT , PFORM )   $                       CHDD0053

0464                       K = 1   $                                            CHDD0054

0466                       IF  SHEET  EQL 1  $                                  CHDD0055

0473                       ( OUTSHEET = 6600000000  $  GO TO  EQTEST )   $      CHDD0056

0474                       OUTSHEET = 4200000000   $                            CHDD0057

0476      EQTEST..         IF EQUATION  EQL 10  $  GO TO  EQ10   $              CHDD0058

0476

0482      COMMENT          CALCULATE PROBABILITIES USING EQUATION 9.        $   CHDD0059

0482

0482

0482      COMMENT          ONE ROW OF THE MATRIX IS UNPACKED AND THE            CHDD0060

0482                       INDEPENDENT SYMPTOMS PRESENT RECOMPLEMENTED.        $CHDD0061

0482

0482      XP9..            UNPACK ( M(K, ),SHEET,XRAY,EQUATION $ ROW( ) )   $   CHDD0062

0503                       FOR J = (8,1,16), 24, 25, (30,1,33), 38, 39, 50  $   CHDD0063

0543                       ( IF TP (J)  EQL 1  $  ROW (J) = 1000 - ROW (J) )   $CHDD0064

0543

0557      COMMENT          THE ROW-PRODUCT IS CALCULATED AND ZEROES TESTED FOR.$CHDD0065

0557                       PYKX (K) = M (K,1)  $                                CHDD0066

0566                       FOR  P = (1,1,TOTP)   $                              CHDD0067

0577                  BEGIN                                                     CHDD0068

0577                       IF ROW ( SYP(P) )  EQL 0  $                          CHDD0069

0585                       ( PYKX (K) = 0.0  $  GO TO  TAL9 )   $               CHDD0070

0586                       FTROW (P) = ROW ( SYP(P) )                           CHDD0071

0593                  END $                                                     CHDD0072

0593

0594                       FOR P = (1,1,TOTP)   $                               CHDD0073

0605                       PYKX (K) = PYKX (K).FTROW (P)   $                    CHDD0074

0605

0613      TAL9..           K = K+1   $                                          CHDD0075

0616                       IF  K LEQ 33  $  GO TO  XP9   $                      CHDD0076

0622                                       GO TO  NORM   $                      CHDD0077

0622

0622

0623      COMMENT          CALCULATE PROBABILITIES USING EQUATION 10.      $    CHDD0078

0623

0623      EQ10..           FOR  J = (1,1,50)  $  TE (J) = 0   $                 CHDD0079

0638                       FOR E = (1,1,20)  $  SYE (E) = 0 $                   CHDD0080

0653                       FOR X = (1,1,10)  $  MX (X) = 0   $                  CHDD0081

0668                       FOR X = (1,1,10)  $  FTMX (X) = 0.0   $              CHDD0082

0668

0683      COMMENT          THE THIRD INPUT CARD IS READ, THE THIRD LINE OF      CHDD0083

0683                       OUTPUT IS PRINTED, AND THE NUMBER OF SYMPTOMS        CHDD0084

0683                       TO BE OMITTED FOR THIS CASE IS CALCULATED.      $    CHDD0085

0683

0685      INPUT            ( EXCLUDE  ( FOR E = (1,1,20)  $  SYE (E) ) )   $    CHDD0086

0704      CARD3..          READ      ( $ $ EXCLUDE )   $                        CHDD0087

0708                       E = 1   $                                            CHDD0088

0710                       FOR J = (1,1,50)   $                                 CHDD0089

0721                  BEGIN                                                     CHDD0090

0721                       IF  SYE (E)  EQL J   $                               CHDD0091

0731                       ( TE (J) = 1  $  E = E+1 )                           CHDD0092

0734                  END $                                                     CHDD0093

0735                       TOTE = E-1     $                                     CHDD0094

0738      OUTPUT           EOUT ( FOR E = (1,1,TOTE+1)  $  SYE (E) )   $        CHDD0095

0762      FORMAT           EFORM (B5,*SYMPTOMS OMITTED*,B4,20(I4),W4)   $       CHDD0096

0773                       WRITE ( $ $ EOUT , EFORM )   $                       CHDD0097

0781                       TOTX = SHEET+8  $                                    CHDD0098

0781

0784      COMMENT          ONE ROW OF THE MATRIX IS UNPACKED, THE               CHDD0099

0784                       INDEPENDENT SYMPTOMS PRESENT RECOMPLEMENTED,         CHDD0100

0784                       AND THE SYMPTOMS OMITTED FOR THIS CASE DELETED.     $CHDD0101

0784

0784      XP10..           UNPACK ( M(K, ),SHEET,XRAY,EQUATION $ ROW( ) )   $   CHDD0102

0805                       FOR  J = (8,1,15) , 24, 25, (30,1,33), 38, 39, 50   $CHDD0103

0845                  BEGIN                                                     CHDD0104

0845                       IF TP(J)  EQL 1  $  ROW (J) = 1000 - ROW (J)   $     CHDD0105

0858                       IF  ROW (J)  EQL 0  $                                CHDD0106

0864                       ( PYKX (K) = 0.0  $  GO TO  TAL10 )   $              CHDD0107

0865                       IF TE (J)  EQL 1  $  ROW (J) = 0                     CHDD0108

0873                  END $                                                     CHDD0109

0873

0874      COMMENT          THE ROW-PRODUCT IS CALCULATED FOR THOSE INDEPENDENT  CHDD0110

0874                       SYMPTOMS COMMON TO BOTH SHEETS, ZERO VALUES TESTED   CHDD0111

0874                       FOR, AND EACH ELEMENT SCALED.                       $CHDD0112

0874

0874                       PYKX (K)= M (K,1)   $                                CHDD0113

0883                       FOR  J= (8,1,15), 24, 25, (30,1,33), 38, 39, 50  $   CHDD0114

0923                  BEGIN                                                     CHDD0115

0932                       FTROW(J) = ROW(J)  $  FTROW(J) = FTROW(J)/100.0   $  CHDD0116

0937                       IF FTROW (J) NEQ 0.0  $                              CHDD0117

0937                       PYKX (K) = PYKX(K).FTROW(J)                          CHDD0118

0946                  END $                                                     CHDD0119

0946

0946

0947      COMMENT          THE APPROPRIATE VALUE IS OBTAINED FOR THOSE MUTUALLY CHDD0120

0947                       EXCLUSIVE SYMPTOM-SETS COMMON TO BOTH BROWN AND      CHDD0121

0947                       WHITE SYMPTOM CHECK SHEETS PER TABLE V.          $   CHDD0122

0947

0947      X1TO3..          MX (1) = ROW ( SYP (1) )   $                         CHDD0123

0950      X4TO7..          IF  TE (4)  EQL 1   $                                CHDD0124

0957                       ( MX (2) = 100  $  GO TO  X26 )   $                  CHDD0125

0958                       IF  SYP (2)  LEQ 7  $                                CHDD0126

0966                       ( MX (2) = ROW ( SYP(2) )  $  GO TO  X26 )   $       CHDD0127

0967                       MX (2) = 1000 - ROW(4) - ROW(5) - ROW(6) - ROW(7)   $CHDD0128

0973      X26..            X = 3   $                                            CHDD0129

0975                       FOR  J = 26 , 28, 34, 36   $                         CHDD0130

0989                  BEGIN                                                     CHDD0131

0989                       IF  TE (J)  EQL 1   $                                CHDD0132

1001                       ( MX (X) = 100  $  GO TO  LAB5 )   $                 CHDD0133

1002                       IF  TP (J)  EQL   TP (J+1)   $                       CHDD0134

1014                       ( MX(X) = 1000 - ROW(J) - ROW(J+1)  $  GO TO LAB5 ) $CHDD0135

1015                       IF  TP (J)  EQL 1   $                                CHDD0136

1025                       ( MX (X) = ROW (J)  $  GO TO  LAB5 )   $             CHDD0137

1026                       MX (X) = ROW (J+1)   $                               CHDD0138

1030      LAB5..           X = X+1                                              CHDD0139

1033                  END $                                                     CHDD0140

1033

1034      BNORWH..         IF  SHEET  EQL 1  $  GO TO  WHITE   $                CHDD0141

1034

1040      COMMENT          THE APPROPRIATE VALUE IS OBTAINED FOR THOSE MUTUALLY CHDD0142

1040                       EXCLUSIVE SYMPTOM-SETS FOR THE BROWN SHEET OPTION.  $CHDD0143

1040

1040      BROWN..          IF  TP (16)  EQL 1  $  ROW (16) = 1000 - ROW (16)   $CHDD0144

1048                       IF  ROW (16)  EQL 0   $                              CHDD0145

1053                       ( PYKX (K) = 0.0  $  GO TO  TAL10 )   $              CHDD0146

1054                       IF  TE (16) EQL 1   $                                CHDD0147

1060                       ( ROW (16) = 0  $  GO TO  X17TO19 )   $              CHDD0148

1061                  BEGIN                                                     CHDD0149

1061                       FTROW (16) = ROW (16)   $                            CHDD0150

1065                       PYKX (K) = PYKX (K).FTROW (16) / 100.0               CHDD0151

1071                  END $                                                     CHDD0152

1071      X17TO19..        IF  TE (17)  EQL 1   $                               CHDD0153

1078                       ( MX (7) =100  $  GO TO X20 )   $                    CHDD0154

1079                       IF  ( TP(17) EQL TP(18) ) AND ( TP(18) EQL TP(19) ) $CHDD0155

1079                  BEGIN                                                     CHDD0156

1098                       MX(7) =(1000-ROW(17)).(1000-ROW(18)).(1000-ROW(19)) $CHDD0157

1107                       GO TO  X20                                           CHDD0158

1108                  END $                                                     CHDD0159

1108                       IF  TP (19)  EQL 1   $                               CHDD0160

1115                       ( MX (7) = ROW (19)  $  GO TO  X20 )   $             CHDD0161

1116                       IF  TP (17)  EQL 0   $                               CHDD0162

1121                       ( MX(7) = ROW(18).(1000 - ROW(17) )  $  GO TO X20 ) $CHDD0163

1124                       IF  TP (18)  EQL 0   $                               CHDD0164

1129                       ( MX(7) = ROW(17).(1000 - ROW(18) )  $  GO TO X20 ) $CHDD0165

1132                       MX (7) = ROW(17).ROW(18)   $                         CHDD0166

1132

1135      X20..            IF  TE (20)  EQL 1   $                               CHDD0167

1142                       ( MX (8) = 100  $  GO TO FLTMX )   $                 CHDD0168

1143                       T2021 = ( 1000 - ROW (20) - ROW (21) )   $           CHDD0169

1147                        T22  = ( 1000 - ROW (22) )   $                      CHDD0170

1147

1150                       IF ( TP(20) EQL TP(21) ) AND ( TP(21) EQL TP(22) )   CHDD0171

1165                            AND ( TP(22) EQL TP(23) )   $                   CHDD0172

1178                       (MX(8) = T2021.T22.(1000 - ROW(23) ) $ GO TO FLTMX )$CHDD0173

1183                       IF  TP (20)  EQL 1   $                               CHDD0174

1183                  BEGIN                                                     CHDD0175

1183                       IF  TP (22) EQL 1   $                                CHDD0176

1196                       ( MX(8) = ROW(20).ROW(22)  $  GO TO  FLTMX )   $     CHDD0177

1197                       MX (8) = ROW (20).T22  $  GO TO  FLTMX               CHDD0178

1201                  END $                                                     CHDD0179

1201                                                                            CHDD0180

1201                       IF  TP (21)  EQL 1   $                               CHDD0181

1201                  BEGIN                                                     CHDD0182

1201                       IF TP (22) EQL 1   $                                 CHDD0183

1214                       ( MX(8) = ROW(21).ROW(22)  $  GO TO  FLTMX )   $     CHDD0184

1215                       MX (8) = ROW (21).T22  $  GO TO  FLTMX               CHDD0185

1219                  END $                                                     CHDD0186

1219                       IF TP (22)  EQL 1   $                                CHDD0187

1227                       ( MX(8) = ROW(22).T2021  $  GO TO  FLTMX )   $       CHDD0188

1228                       MX (8) = ROW (23)  $  GO TO  FLTMX    $              CHDD0189

1228

1231      COMMENT          THE APPROPRIATE VALUE IS OBTAINED FOR THOSE MUTUALLY CHDD0190

1231                       EXCLUSIVE SYMPTOM-SETS FOR THE WHITE SHEET OPTION.  $CHDD0191

1231

1238      WHITE..          IF  (TE(19) EQL TE(42) )  AND  ( TE(42) EQL TE(44) ) CHDD0192

1246                       AND ( TE(44) EQL 1 )   $                             CHDD0193

1259                       ( MX (7) = 100   $  GO TO  X40 )   $                 CHDD0194

1260                       T4243 = ( 1000 - ROW(42) - ROW(43) )   $             CHDD0195

1264                       T4445 = ( 1000 - ROW(44) - ROW(45) )   $             CHDD0196

1264

1268                       IF  ( TP(19) EQL TP(42) ) AND ( TP(42) EQL TP(43) )  CHDD0197

1283                       AND ( TP(43) EQL TP(44) ) AND ( TP(44) EQL TP(45) ) $CHDD0198

1305                       ( MX(7) = (1000 - ROW(19)).T4243.T4445 $ GO TO X40 )$CHDD0199

1310                       IF  TP (19)  EQL 1   $                               CHDD0200

1317                       ( MX(7) = ROW(19)  $  GO TO  X40 )   $               CHDD0201

1318                       IF  TP (42)  EQL 1   $                               CHDD0202

1318                  BEGIN                                                     CHDD0203

1318                       IF  TP(44)  EQL 1   $                                CHDD0204

1331                       ( MX(7) = ROW(42).ROW(44)  $  GO TO  X40 )   $       CHDD0205

1332                       IF  TP (45)  EQL 1   $                               CHDD0206

1340                       ( MX(7) = ROW(42).ROW(45)  $  GO TO  X40 )   $       CHDD0207

1341                       MX (7) = ROW (42).T4445  $  GO TO  X40               CHDD0208

1345                  END $                                                     CHDD0209

1345                       IF TP (43)  EQL 1   $                                CHDD0210

1345                  BEGIN                                                     CHDD0211

1345                       IF  TP (44)  EQL 1   $                               CHDD0212

1358                       ( MX(7) = ROW(43).ROW(44)  $  GO TO  X40 )   $       CHDD0213

1359                       IF  TP (45)  EQL 1   $                               CHDD0214

1367                       ( MX(7) = ROW(43).ROW(45)  $  GO TO  X40 )   $       CHDD0215

1368                       MX (7) = ROW (43).T4445  $  GO TO  X40               CHDD0216

1372                  END $                                                     CHDD0217

1372                       IF  TP (44)  EQL 1   $                               CHDD0218

1380                       ( MX(7) = ROW(44).T4243  $  GO TO  X40 )   $         CHDD0219

1381                       MX (7) = ROW (45).T4243   $                          CHDD0220

1381

1384      X40..            IF  TE (40)  EQL 1   $                               CHDD0221

1391                       ( MX (8) = 100  $  GO TO  X2369 )   $                CHDD0222

1392                       IF  TP (40)  EQL  TP (41)   $                        CHDD0223

1401                       ( MX(8) = 1000 - ROW(40) - ROW(41)  $ GO TO X2369 ) $CHDD0224

1402                       IF  TP (40)  EQL 1   $                               CHDD0225

1409                       ( MX(8) = ROW(40)  $  GO TO  X2369 )   $             CHDD0226

1410                       MX (8) = ROW (41)   $                                CHDD0227

1410

1412      X2369..          IF  ( TE(22) EQL TE(46) )  AND  ( TE(46) EQL 1 )   $ CHDD0228

1431                       ( MX (9) = 100  $  GO TO  FLTMX )   $                CHDD0229

1432                       T22 = 1000 - ROW (22)   $                            CHDD0230

1435                       T6789 = 1000 - ROW(46) - ROW(47) - ROW(48) - ROW(49)$CHDD0231

1441                       IF  ( TP(22) EQL TP(23) ) AND ( TP(23) EQL TP(46) )  CHDD0232

1456                       AND ( TP(46) EQL TP(47) ) AND ( TP(47) EQL TP(48) )  CHDD0233

1474                       AND ( TP(48) EQL TP(49) )   $                        CHDD0234

1487                       ( MX(9) = T22.(1000 - ROW(23)).T6789  $ GO TO FLTMX)$CHDD0235

1492                       IF  TP (22)  EQL 1   $                               CHDD0236

1492                  BEGIN                                                     CHDD0237

1497                       FOR  J = (46,1,49)   $                               CHDD0238

1508                  BEGIN                                                     CHDD0239

1508                       IF  TP (J)  EQL 1   $                                CHDD0240

1519                       ( MX(9) = ROW(J).ROW(22)  $  GO TO FLTMX )           CHDD0241

1520                  END $                                                     CHDD0242

1521                       MX (9) = ROW (22).T6789  $  GO TO  FLTMX             CHDD0243

1525                  END $                                                     CHDD0244

1525                       FOR  J = (46,1,49)   $                               CHDD0245

1536                  BEGIN                                                     CHDD0246

1536                       IF  TP (J)  EQL 1   $                                CHDD0247

1547                       ( MX(9) = ROW(J).T22  $  GO TO  FLTMX )              CHDD0248

1548                  END $                                                     CHDD0249

1549                       MX (9) = ROW (23)  $  GO TO  FLTMX   $               CHDD0250

1549

1552      FLTMX..          FOR  X = (1,1,TOTX)   $                              CHDD0251

1563                       ( FTMX(X) = MX(X)  $  FTMX(X) = FTMX(X)/100.00 )   $ CHDD0252

1576                       FOR  X = (1,1,TOTX)   $                              CHDD0253

1587                       PYKX (K) = PYKX (K).FTMX (X)   $                     CHDD0254

1587

1595      COMMENT          AT THIS POINT, THE ROW-PRODUCT HAS BEEN COMPUTED     CHDD0255

1595                       AND A TEST IS MADE TO DETERMINE WHETHER THERE        CHDD0256

1595                       ARE MORE ROWS YET TO BE PROCESSED, OR TO PRINT-OUT. $CHDD0257

1595

1595      TAL10..          K = K+1   $                                          CHDD0258

1598                       IF  K  LEQ 33  $  GO TO  XP10   $                    CHDD0259

1604                                          GO TO NORM   $                    CHDD0260

1604

1605      COMMENT          THE ROW-PROBABILITIES ARE FIRST NORMALIZED TO GIVE A CHDD0261

1605                       TRUE PERCENTAGE FIGURE AND LINES 4 - 6 ARE PRINTED. $CHDD0262

1605

1605      NORM..           SUM = 0.0            $                               CHDD0263

1606      OUTPUT           SHOUT ( OUTSHEET )   $                               CHDD0264

1613      FORMAT           SHFORM(B5,*SYMPTOMS USED*,B3,A2,W4)   $              CHDD0265

1622                       WRITE ( $ $ SHOUT , SHFORM )   $                     CHDD0266

1630                       FOR  K = (1,1,33)   $                                CHDD0267

1641                       SUM = SUM + PYKX (K)  $                              CHDD0268

1647      OUTPUT           EQOUT ( EQUATION )   $                               CHDD0269

1654      FORMAT           EQFORM(B5,*EQUATION USED*,I5,W6)   $                 CHDD0270

1662                       WRITE ( $ $ EQOUT , EQFORM )   $                     CHDD0271

1670                       FOR  K = (1,1,33)   $                                CHDD0272

1681                       PYX (K) = PYKX (K) / SUM   $                         CHDD0273

1681

1681

1681

1688      FORMAT           HEAD(B15,*DISEASE*,B5,*PROBABILITY*,W6)   $          CHDD0274

1698                       WRITE ( $ $ HEAD )   $                               CHDD0275

1698

1702      COMMENT          THE PROBABILITIES ARE NOW PRINTED WHICH ARE ONE      CHDD0276

1702                       PERCENT OR GREATER TOGETHER WITH DISEASE I. D. .    $CHDD0277

1702

1702                       K = 1   $                                            CHDD0278

1704      PRINT..          IF  PYX (K)  LSS 0.01  $  GO TO  TALPT   $           CHDD0279

1711                       SWITCH K, ( Y01,Y02,Y03,Y04,Y05,Y06,Y07,Y08,Y09,     CHDD0280

1711                       Y10,Y11,Y12,Y13,Y14,Y15,Y16,Y17,Y18,Y19,Y20,Y21,     CHDD0281

1745                       Y22,Y23,Y24,Y25,Y26,Y27,Y28,Y29,Y30,Y31,Y32,Y33 )   $CHDD0282

1746      OUTPUT           ANS ( FOR X = K  $  PYX (X) )   $                    CHDD0283

1760      FORMAT           FORM1 (B8,*Y01*,B7,*N*,S16.4,W0)   $                 CHDD0284

1768      Y01..            WRITE ( $ $ ANS , FORM1  )  $  GO TO  TALPT   $      CHDD0285

1777      FORMAT           FORM2 (B8,*Y02*,B5,*A S D*,S14.4,W0)   $             CHDD0286

1786      Y02..            WRITE ( $ $ ANS , FORM2  )  $  GO TO  TALPT   $      CHDD0287

1795      FORMAT           FORM3 (B8,*Y03*,B2,*A S D - P S*,S11.4,W0)   $       CHDD0288

1805      Y03..            WRITE ( $ $ ANS , FORM3  )  $  GO TO  TALPT   $      CHDD0289

1814      FORMAT           FORM4 (B8,*Y04*,B2,*A S D - P H*,S11.4,W0)   $       CHDD0290

1824      Y04..            WRITE ( $ $ ANS , FORM4  )  $  GO TO  TALPT   $      CHDD0291

1833      FORMAT           FORM5 (B8,*Y05*,B4,*C E C D*,S13.4,W0)   $           CHDD0292

1842      Y05..            WRITE ( $ $ ANS , FORM5  )  $  GO TO  TALPT   $      CHDD0293

1851      FORMAT           FORM6 (B8,*Y06*,B3,*P A P V C*,S12.4,W0)   $         CHDD0294

1860      Y06..            WRITE ( $ $ ANS , FORM6  )  $  GO TO  TALPT   $      CHDD0295

1869      FORMAT           FORM7 (B8,*Y07*,B3,*T A P V C*,S12.4,W0)   $         CHDD0296

1878      Y07..            WRITE ( $ $ ANS , FORM7  )  $  GO TO  TALPT   $      CHDD0297

1887      FORMAT           FORM8 (B8,*Y08*,B6,*T A*,S15.4,W0)   $               CHDD0298

1895      Y08..            WRITE ( $ $ ANS , FORM8  )  $  GO TO  TALPT   $      CHDD0299

1904      FORMAT           FORM9 (B8,*Y09*,B5,*EBST.*,S14.4,W0)   $             CHDD0300

1913      Y09..            WRITE ( $ $ ANS , FORM9  )  $  GO TO  TALPT   $      CHDD0301

1922      FORMAT           FORM10(B8,*Y10*,B1,*V S D - V P S*,S10.4,W0)   $     CHDD0302

1932      Y10..            WRITE ( $ $ ANS , FORM10 )  $  GO TO  TALPT   $      CHDD0303

1941      FORMAT           FORM11(B8,*Y11*,B1,*V S D - I P S*,S10.4,W0)   $     CHDD0304

1951      Y11..            WRITE ( $ $ ANS , FORM11 )  $  GO TO  TALPT   $      CHDD0305

1960      FORMAT           FORM12(B8,*Y12*,B5,*V P S*,S14.4,W0)   $             CHDD0306

1969      Y12..            WRITE ( $ $ ANS , FORM12 )  $  GO TO  TALPT   $      CHDD0307

1978      FORMAT           FORM13(B8,*Y13*,B5,*I P S*,S14.4,W0)   $             CHDD0308

1987      Y13..            WRITE ( $ $ ANS , FORM13 )  $  GO TO  TALPT   $      CHDD0309

1996      FORMAT           FORM14(B8,*Y14*,B3,*P. ATRES.*,S12.4,W0)   $         CHDD0310

2005      Y14..            WRITE ( $ $ ANS , FORM14 )  $  GO TO  TALPT   $      CHDD0311

2014      FORMAT           FORM15(B8,*Y15*,B2,*COARCT. P A*,S11.4,W0)   $       CHDD0312

2024      Y15..            WRITE ( $ $ ANS , FORM15 )  $  GO TO  TALPT   $      CHDD0313

2033      FORMAT           FORM16(B8,*Y16*,B6,*P H*,S15.4,W0)   $               CHDD0314

2041      Y16..            WRITE ( $ $ ANS , FORM16 )  $  GO TO  TALPT   $      CHDD0315

2050      FORMAT           FORM17(B8,*Y17*,B5,*A P W*,S14.4,W0)   $             CHDD0316

2059      Y17..            WRITE ( $ $ ANS , FORM17 )  $  GO TO  TALPT   $      CHDD0317

2068      FORMAT           FORM18(B8,*Y18*,B5,*P D A*,S14.4,W0)   $             CHDD0318

2077      Y18..            WRITE ( $ $ ANS , FORM18 )  $  GO TO  TALPT   $      CHDD0319

2086      FORMAT           FORM19(B8,*Y19*,B2,*P A-V FIST.*,S11.4,W0)   $       CHDD0320

2096      Y19..            WRITE ( $ $ ANS , FORM19 )  $  GO TO  TALPT   $      CHDD0321

2105      FORMAT           FORM20(B8,*Y20*,B6,*M S*,S15.4,W0)   $               CHDD0322

2113      Y20..            WRITE ( $ $ ANS , FORM20 )  $  GO TO  TALPT   $      CHDD0323

2122      FORMAT           FORM21(B8,*Y21*,B4,*MYOC. D*,S13.4,W0)   $           CHDD0324

2131      Y21..            WRITE ( $ $ ANS , FORM21 )  $  GO TO  TALPT   $      CHDD0325

2140      FORMAT           FORM22(B8,*Y22*,B2,*A O COR. A*,S12.4,W0)   $        CHDD0326

2150      Y22..            WRITE ( $ $ ANS , FORM22 )  $  GO TO  TALPT   $      CHDD0327

2159      FORMAT           FORM23(B8,*Y23*,B2,*A S - VALV.*,S11.4,W0)   $       CHDD0328

2169      Y23..            WRITE ( $ $ ANS , FORM23 )  $  GO TO  TALPT   $      CHDD0329

2178      FORMAT           FORM24(B8,*Y24*,B2,*A S - SUB.*,S12.4,W0)   $        CHDD0330

2188      Y24..            WRITE ( $ $ ANS , FORM24 )  $  GO TO  TALPT   $      CHDD0331

2197      FORMAT           FORM25(B8,*Y25*,B3,*COARCT. A*,S12.4,W0)   $         CHDD0332

2206      Y25..            WRITE ( $ $ ANS , FORM25 )  $  GO TO  TALPT   $      CHDD0333

2215      FORMAT           FORM26(B8,*Y26*,B4,*TRUNC.*,S14.4,W0)   $            CHDD0334

2224      Y26..            WRITE ( $ $ ANS , FORM26 )  $  GO TO  TALPT   $      CHDD0335

2233      FORMAT           FORM27(B8,*Y27*,B3,*TRANSP.*,S14.4,W0)   $           CHDD0336

2242      Y27..            WRITE ( $ $ ANS , FORM27 )  $  GO TO  TALPT   $      CHDD0337

2251      FORMAT           FORM28(B8,*Y28*,B3,*C TRANSP.*,S12.4,W0)   $         CHDD0338

2260      Y28..            WRITE ( $ $ ANS , FORM28 )  $  GO TO  TALPT   $      CHDD0339

2269      FORMAT           FORM29(B8,*Y29*,B4,*AB. A O*,S13.4,W0)   $           CHDD0340

2278      Y29..            WRITE ( $ $ ANS , FORM29 )  $  GO TO  TALPT   $      CHDD0341

2287      FORMAT           FORM30(B8,*Y30*,B5,*V S D*,S14.4,W0)   $             CHDD0342

2296      Y30..            WRITE ( $ $ ANS , FORM30 )  $  GO TO  TALPT   $      CHDD0343

2305      FORMAT           FORM31(B8,*Y31*,B2,*V S D - P H*,S11.4,W0)   $       CHDD0344

2315      Y31..            WRITE ( $ $ ANS , FORM31 )  $  GO TO  TALPT   $      CHDD0345

2324      FORMAT           FORM32(B8,*Y32*,B2,*P D A - P H*,S11.4,W0)   $       CHDD0346

2334      Y32..            WRITE ( $ $ ANS , FORM32 )  $  GO TO  TALPT   $      CHDD0347

2343      FORMAT           FORM33(B8,*Y33*,B1,*T A - TRANSP.*,S10.4,W0)   $     CHDD0348

2353      Y33..            WRITE ( $ $ ANS , FORM33 )  $  GO TO  TALPT   $      CHDD0349

2353

2362      TALPT..          K = K+1   $                                          CHDD0350

2365                       IF  K  LEQ 33  $  GO TO  PRINT   $                   CHDD0351

2365

2371      COMMENT          PROGRAM REPEATS TO BEGINNING IF THERE ARE MORE       CHDD0352

2371                       CASES TO BE RUN, AND HALTS IF NOT.  THE INITIALS     CHDD0353

2371                       H W  APPEAR IN THE A-REG. UPON COMPLETION.          $CHDD0354

2371

2371                       IF LAST EQL  0  $  GO TO  NEWCASE   $                CHDD0355

2375                       STOP  7270061216   $  GO TO  NEWCASE   $             CHDD0356

2378      FINISH   $                                                            CHDD0357
2380       UNPACK
2486      FINISH   $
COMPILED PROGRAM ENDS AT 2485
PROGRAM VARIABLES BEGIN AT 3562

     CASE NUMBER    967     PATIENT  LDR     DATE   5 11 61

     SYMPTOMS PRESENT       3  10  29  34  36  43  48  50

     SYMPTOMS OMITTED       0

     SYMPTOMS USED   W

     EQUATION USED   10


               DISEASE     PROBABILITY

        Y10 V S D - V P S     .0286
        Y11 V S D - I P S     .0201
        Y12     V P S         .7295
        Y13     I P S         .2151



     CASE NUMBER    967     PATIENT  LDR     DATE   5 11 61

     SYMPTOMS PRESENT       3  10  29  34  36  43  48  50

     SYMPTOMS OMITTED      11   0

     SYMPTOMS USED   W

     EQUATION USED   10


               DISEASE     PROBABILITY

        Y10 V S D - V P S     .0297
        Y11 V S D - I P S     .0209
        Y12     V P S         .7278
        Y13     I P S         .2146



     CASE NUMBER    967     PATIENT  LDR     DATE   5 11 61

     SYMPTOMS PRESENT       3  10  29  34  36  43  48  50

     SYMPTOMS USED   W

     EQUATION USED    9


               DISEASE     PROBABILITY

        Y02     A S D         .0171
        Y10 V S D - V P S     .1980
        Y11 V S D - I P S     .2310
        Y12     V P S         .4238
        Y13     I P S         .1224



     CASE NUMBER    967     PATIENT  LDR     DATE   5 11 61

     SYMPTOMS PRESENT       3  10  17  21  29  34  36

     SYMPTOMS OMITTED       0

     SYMPTOMS USED   B

     EQUATION USED   10


               DISEASE     PROBABILITY

        Y02     A S D         .0158
        Y10 V S D - V P S     .0594
        Y11 V S D - I P S     .0418
        Y12     V P S         .6689
        Y13     I P S         .1932



     CASE NUMBER    967     PATIENT  LDR     DATE   5 11 61

     SYMPTOMS PRESENT       3  10  17  21  29  34  36

     SYMPTOMS OMITTED      11   0

     SYMPTOMS USED   B

     EQUATION USED   10


               DISEASE     PROBABILITY

        Y02     A S D         .0163
        Y10 V S D - V P S     .0616
        Y11 V S D - I P S     .0433
        Y12     V P S         .6647
        Y13     I P S         .1920



     CASE NUMBER    967     PATIENT  LDR     DATE   5 11 61

     SYMPTOMS PRESENT       3  10  17  21  29  34  36

     SYMPTOMS USED   B

     EQUATION USED    9


               DISEASE     PROBABILITY

        Y02     A S D         .0113
        Y10 V S D - V P S     .3477
        Y11 V S D - I P S     .4057
        Y12     V P S         .1674
        Y13     I P S         .0483



     CASE NUMBER    967     PATIENT  LDR     DATE   5 11 61

     SYMPTOMS PRESENT       3  10  17  21  29  34  36

     SYMPTOMS USED   B

     EQUATION USED    9


               DISEASE     PROBABILITY

        Y02     A S D         .0113
        Y10 V S D - V P S     .3477
        Y11 V S D - I P S     .4057
        Y12     V P S         .1674
        Y13     I P S         .0483

