ADGCRB7.m

ADGCRB7 ; IHS/ADC/PDW/ENM - A SHEET form ; [ 03/25/1999  11:48 AM ]

 ;;5.3;ADMISSION/DISCHARGE/TRANSFER;**1016**;MAR 25, 1999;Build 20

 ;

 ; -- form outline

 W !,"26 ICD   27 Hosp Acq",?24,"28 Established DX",!,DGLIN1,!

 N X F X=1:1:5 D

 . W !,X,"_______   _________________________________"

 . W "____________________________________",!

 W "29 ICD  30 DX",?18,"31 Op & Selec Procedures"

 W ?55,"32 Post-Op 33   33a Op",!?3,"Code"

 W ?58,"Infec   Date  Phy Code",!,DGLIN1,!

 F X=1:1:3 D

 . W !,X,"_______   _________________________________"

 . W "____________________________________",!

 W "34 Discharge Type",?27,"35 Facility Transferred To"

 W ?63,"36 Facility Code",!

 W !,DGLIN1,!,"37 Disch Service",?24,"38 Disch Srv Code"

 W ?55,"39 # Consults",!

 W !,DGLIN1,!,"40 Injury Date  41 Alleged Injury Cause"

 W ?41,"42 CAUSE",?51,"43 Place of Injury  44 Code",!

 W !,DGLIN1,!,"47 Underlying Cause of Death & Code",!

 W !,DGLIN1,!,"49 Date",?15,"50 Attending Physician"

 W ?40,"50a Phys Code",?60,"51 Reviewed By",!

 Q

ADGCRB7   ; IHS/ADC/PDW/ENM - A SHEET form ; [ 03/25/1999  11:48 AM ]

 +1       ;;5.3;ADMISSION/DISCHARGE/TRANSFER;**1016**;MAR 25, 1999;Build 20

 +2       ;

 +3       ; -- form outline

 +4        WRITE !,"26 ICD   27 Hosp Acq",?24,"28 Established DX",!,DGLIN1,!

 +5        NEW X

           FOR X=1:1:5

               Begin DoDot:1

 +6                WRITE !,X,"_______   _________________________________"

 +7                WRITE "____________________________________",!

               End DoDot:1

 +8        WRITE "29 ICD  30 DX",?18,"31 Op & Selec Procedures"

 +9        WRITE ?55,"32 Post-Op 33   33a Op",!?3,"Code"

 +10       WRITE ?58,"Infec   Date  Phy Code",!,DGLIN1,!

 +11       FOR X=1:1:3

               Begin DoDot:1

 +12               WRITE !,X,"_______   _________________________________"

 +13               WRITE "____________________________________",!

               End DoDot:1

 +14       WRITE "34 Discharge Type",?27,"35 Facility Transferred To"

 +15       WRITE ?63,"36 Facility Code",!

 +16       WRITE !,DGLIN1,!,"37 Disch Service",?24,"38 Disch Srv Code"

 +17       WRITE ?55,"39 # Consults",!

 +18       WRITE !,DGLIN1,!,"40 Injury Date  41 Alleged Injury Cause"

 +19       WRITE ?41,"42 CAUSE",?51,"43 Place of Injury  44 Code",!

 +20       WRITE !,DGLIN1,!,"47 Underlying Cause of Death & Code",!

 +21       WRITE !,DGLIN1,!,"49 Date",?15,"50 Attending Physician"

 +22       WRITE ?40,"50a Phys Code",?60,"51 Reviewed By",!

 +23       QUIT