MCARORL.m

MCARORL ; GENERATED FROM 'MCRHLAB' PRINT TEMPLATE (#3733) ; 11/29/04 ; (FILE 701, MARGIN=80)

 G BEGIN

N W !

T W:$X ! I '$D(DIOT(2)),DN,$D(IOSL),$S('$D(DIWF):1,$P(DIWF,"B",2):$P(DIWF,"B",2),1:1)+$Y'<IOSL,$D(^UTILITY($J,1))#2,^(1)?1U1P1E.E X ^(1)

 S DISTP=DISTP+1,DILCT=DILCT+1 D:'(DISTP#100) CSTP^DIO2

 Q

DT I $G(DUZ("LANG"))>1,Y W $$OUT^DIALOGU(Y,"DD") Q

 I Y W $P("JAN^FEB^MAR^APR^MAY^JUN^JUL^AUG^SEP^OCT^NOV^DEC",U,$E(Y,4,5))_" " W:Y#100 $J(Y#100\1,2)_"," W Y\10000+1700 W:Y#1 "  "_$E(Y_0,9,10)_":"_$E(Y_"000",11,12) Q

 W Y Q

M D @DIXX

 Q

BEGIN ;

 S:'$D(DN) DN=1 S DISTP=$G(DISTP),DILCT=$G(DILCT)

 S I(0)="^MCAR(701,",J(0)=701

 F Y=0:0 Q:$Y>-1  W !

 D N:$X>0 Q:'DN  W ?0 W "PATIENT LABORATORY INFORMATION"

 D T Q:'DN  D N D N:$X>0 Q:'DN  W ?0 W "C H E M I S T R Y :"

 D N:$X>39 Q:'DN  W ?39 W "S E R O L O G Y :"

 D N:$X>0 Q:'DN  W ?0 W "Aldolase"

 D N:$X>27 Q:'DN  W ?27 W:$D(^UTILITY("DIQ1",$J,63.04,DA,63)) ^(63) K DIP K:DN Y

 D N:$X>39 Q:'DN  W ?39 W "Anti-DNA Antibody"

 D N:$X>69 Q:'DN  W ?69 W:$D(^UTILITY("DIQ1",$J,63.04,DA,563)) ^(563) K DIP K:DN Y

 D N:$X>0 Q:'DN  W ?0 W "Albumin"

 D N:$X>27 Q:'DN  W ?27 W:$D(^UTILITY("DIQ1",$J,63.04,DA,14)) ^(14) K DIP K:DN Y

 D N:$X>39 Q:'DN  W ?39 W "Anti-skeletal muscle"

 D N:$X>69 Q:'DN  W ?69 W:$D(^UTILITY("DIQ1",$J,63.04,DA,595)) ^(595) K DIP K:DN Y

 D N:$X>0 Q:'DN  W ?0 W "Alkaline phosphatase"

 D N:$X>27 Q:'DN  W ?27 W:$D(^UTILITY("DIQ1",$J,63.04,DA,17)) ^(17) K DIP K:DN Y

 D N:$X>39 Q:'DN  W ?39 W "Anti-RNP"

 D N:$X>69 Q:'DN  W ?69 W:$D(^UTILITY("DIQ1",$J,63.04,DA,594)) ^(594) K DIP K:DN Y

 D N:$X>0 Q:'DN  W ?0 W "Urea nitrogen"

 D N:$X>27 Q:'DN  W ?27 W:$D(^UTILITY("DIQ1",$J,63.04,DA,3)) ^(3) K DIP K:DN Y

 D N:$X>39 Q:'DN  W ?39 W "Hepatitis B Antibody"

 D N:$X>69 Q:'DN  W ?69 W:$D(^UTILITY("DIQ1",$J,63.04,DA,581)) ^(581) K DIP K:DN Y

 D N:$X>0 Q:'DN  W ?0 W "Calcium"

 D N:$X>27 Q:'DN  W ?27 W:$D(^UTILITY("DIQ1",$J,63.04,DA,9)) ^(9) K DIP K:DN Y

 D N:$X>39 Q:'DN  W ?39 W "Hepatitis B Antigen"

 D N:$X>69 Q:'DN  W ?69 W:$D(^UTILITY("DIQ1",$J,63.04,DA,553)) ^(553) K DIP K:DN Y

 D N:$X>0 Q:'DN  W ?0 W "Cholesterol"

 D N:$X>27 Q:'DN  W ?27 W:$D(^UTILITY("DIQ1",$J,63.04,DA,12)) ^(12) K DIP K:DN Y

 D N:$X>39 Q:'DN  W ?39 W "Complement CH50"

 D N:$X>69 Q:'DN  W ?69 W:$D(^UTILITY("DIQ1",$J,63.04,DA,587)) ^(587) K DIP K:DN Y

 D N:$X>0 Q:'DN  W ?0 W "CPK"

 D N:$X>27 Q:'DN  W ?27 W:$D(^UTILITY("DIQ1",$J,63.04,DA,41)) ^(41) K DIP K:DN Y

 D N:$X>39 Q:'DN  W ?39 W "Cryoglobulins"

 D N:$X>69 Q:'DN  W ?69 W:$D(^UTILITY("DIQ1",$J,63.04,DA,549)) ^(549) K DIP K:DN Y

 D N:$X>0 Q:'DN  W ?0 W "Creatinine"

 D N:$X>27 Q:'DN  W ?27 W:$D(^UTILITY("DIQ1",$J,63.04,DA,4)) ^(4) K DIP K:DN Y

 D N:$X>39 Q:'DN  W ?39 W "Complement"

 D N:$X>69 Q:'DN  W ?69 W:$D(^UTILITY("DIQ1",$J,63.04,DA,547)) ^(547) K DIP K:DN Y

 D N:$X>0 Q:'DN  W ?0 W "Glucose"

 D N:$X>27 Q:'DN  W ?27 W:$D(^UTILITY("DIQ1",$J,63.04,DA,2)) ^(2) K DIP K:DN Y

 D N:$X>39 Q:'DN  W ?39 W "Complement C4"

 D N:$X>69 Q:'DN  W ?69 W:$D(^UTILITY("DIQ1",$J,63.04,DA,548)) ^(548) K DIP K:DN Y

 D N:$X>0 Q:'DN  W ?0 W "LDH"

 D N:$X>27 Q:'DN  W ?27 W:$D(^UTILITY("DIQ1",$J,63.04,DA,18)) ^(18) K DIP K:DN Y

 D N:$X>39 Q:'DN  W ?39 W "HLA B27"

 D N:$X>69 Q:'DN  W ?69 W:$D(^UTILITY("DIQ1",$J,63.04,DA,174)) ^(174) K DIP K:DN Y

 D N:$X>0 Q:'DN  W ?0 W "PO4"

 D N:$X>27 Q:'DN  W ?27 W:$D(^UTILITY("DIQ1",$J,63.04,DA,10)) ^(10) K DIP K:DN Y

 D N:$X>39 Q:'DN  W ?39 W "IGA"

 D N:$X>69 Q:'DN  W ?69 W:$D(^UTILITY("DIQ1",$J,63.04,DA,625)) ^(625) K DIP K:DN Y

 D N:$X>0 Q:'DN  W ?0 W "SGOT"

 D N:$X>27 Q:'DN  W ?27 W:$D(^UTILITY("DIQ1",$J,63.04,DA,19)) ^(19) K DIP K:DN Y

 D N:$X>39 Q:'DN  W ?39 W "IGG"

 D N:$X>69 Q:'DN  W ?69 W:$D(^UTILITY("DIQ1",$J,63.04,DA,627)) ^(627) K DIP K:DN Y

 D N:$X>0 Q:'DN  W ?0 W "SPGT"

 D N:$X>27 Q:'DN  W ?27 W:$D(^UTILITY("DIQ1",$J,63.04,DA,20)) ^(20) K DIP K:DN Y

 D N:$X>39 Q:'DN  W ?39 W "IGM"

 D N:$X>69 Q:'DN  W ?69 W:$D(^UTILITY("DIQ1",$J,63.04,DA,631)) ^(631) K DIP K:DN Y

 D N:$X>0 Q:'DN  W ?0 W "Bilirubin, total"

 D N:$X>27 Q:'DN  W ?27 W:$D(^UTILITY("DIQ1",$J,63.04,DA,15)) ^(15) K DIP K:DN Y

 D N:$X>39 Q:'DN  W ?39 W "Latex fixation"

 D N:$X>69 Q:'DN  W ?69 W:$D(^UTILITY("DIQ1",$J,63.04,639)) ^(639) K DIP K:DN Y

 D N:$X>0 Q:'DN  W ?0 W "Protein, total"

 D N:$X>27 Q:'DN  W ?27 W:$D(^UTILITY("DIQ1",$J,63.04,DA,13)) ^(13) K DIP K:DN Y

 D N:$X>39 Q:'DN  W ?39 W "VDRL"

 D N:$X>69 Q:'DN  W ?69 W:$D(^UTILITY("DIQ1",$J,63.04,DA,561)) ^(561) K DIP K:DN Y

 D N:$X>0 Q:'DN  W ?0 W "Uric acid"

 D N:$X>27 Q:'DN  W ?27 W:$D(^UTILITY("DIQ1",$J,63.04,DA,11)) ^(11) K DIP K:DN Y

 D T Q:'DN  D N D N D N:$X>0 Q:'DN  W ?0 W "A D D I T I O N A L"

 D N:$X>0 Q:'DN  W ?0 W "C H E M I S T R Y :"

 D N:$X>39 Q:'DN  W ?39 W "U R I N E "

 D N:$X>0 Q:'DN  W ?0 W "Salicylate"

 D N:$X>27 Q:'DN  W ?27 W:$D(^UTILITY("DIQ1",$J,63.04,DA,45)) ^(45) K DIP K:DN Y

 D N:$X>39 Q:'DN  W ?39 W "UR Glucose"

 D N:$X>69 Q:'DN  W ?69 W:$D(^UTILITY("DIQ1",$J,63.04,DA,690)) ^(690) K DIP K:DN Y

 D N:$X>0 Q:'DN  W ?0 W "T-4"

 D N:$X>27 Q:'DN  W ?27 W:$D(^UTILITY("DIQ1",$J,63.04,DA,771)) ^(771) K DIP K:DN Y

 D N:$X>39 Q:'DN  W ?39 W "UR Protein"

 D N:$X>69 Q:'DN  W ?69 W:$D(^UTILITY("DIQ1",$J,63.04,DA,691)) ^(691) K DIP K:DN Y

 D N:$X>0 Q:'DN  W ?0 W "T-3"

 D N:$X>27 Q:'DN  W ?27 W:$D(^UTILITY("DIQ1",$J,63.04,DA,738)) ^(738) K DIP K:DN Y

 D N:$X>39 Q:'DN  W ?39 W "RBC/HPF"

 D N:$X>69 Q:'DN  W ?69 W:$D(^UTILITY("DIQ1",$J,63.04,DA,694)) ^(694) K DIP K:DN Y

 D N:$X>0 Q:'DN  W ?0 W "TSH"

 D N:$X>27 Q:'DN  W ?27 W:$D(^UTILITY("DIQ1",$J,63.04,DA,741)) ^(741) K DIP K:DN Y

 D N:$X>39 Q:'DN  W ?39 W "WBC/HPF"

 D N:$X>69 Q:'DN  W ?69 W:$D(^UTILITY("DIQ1",$J,63.04,DA,693)) ^(693) K DIP K:DN Y

 D N:$X>0 Q:'DN  W ?0 W "Sodium"

 D N:$X>27 Q:'DN  W ?27 W:$D(^UTILITY("DIQ1",$J,63.04,DA,5)) ^(5) K DIP K:DN Y

 D N:$X>39 Q:'DN  W ?39 W "Granular/cast/lpf"

 D N:$X>69 Q:'DN  W ?69 W:$D(^UTILITY("DIQ1",$J,63.04,DA,703)) ^(703) K DIP K:DN Y

 D N:$X>0 Q:'DN  W ?0 W "Choloride"

 D N:$X>27 Q:'DN  W ?27 W:$D(^UTILITY("DIQ1",$J,63.04,DA,7)) ^(7) K DIP K:DN Y

 D N:$X>39 Q:'DN  W ?39 W "WBC/CASTS/LPF"

 D N:$X>69 Q:'DN  W ?69 W:$D(^UTILITY("DIQ1",$J,63.04,DA,700)) ^(700) K DIP K:DN Y

 D N:$X>0 Q:'DN  W ?0 W "Bicarbonate"

 D N:$X>27 Q:'DN  W ?27 W:$D(^UTILITY("DIQ1",$J,63.04,DA,454)) ^(454) K DIP K:DN Y

 D N:$X>39 Q:'DN  W ?39 W "Creatinine Clearance"

 D N:$X>69 Q:'DN  W ?69 W:$D(^UTILITY("DIQ1",$J,63.04,DA,96)) ^(96) K DIP K:DN Y

 D T Q:'DN  D N D N D N:$X>0 Q:'DN  W ?0 W "H E M A T O L O G Y :"

 D N:$X>0 Q:'DN  W ?0 W "WBC"

 D N:$X>27 Q:'DN  W ?27 W:$D(^UTILITY("DIQ1",$J,63.04,DA,384)) ^(384) K DIP K:DN Y

 D N:$X>0 Q:'DN  W ?0 W "HGB"

 D N:$X>27 Q:'DN  W ?27 W:$D(^UTILITY("DIQ1",$J,63.04,DA,386)) ^(386) K DIP K:DN Y

 D N:$X>0 Q:'DN  W ?0 W "HCT"

 D N:$X>27 Q:'DN  W ?27 W:$D(^UTILITY("DIQ1",$J,63.04,DA,387)) ^(387) K DIP K:DN Y

 D N:$X>0 Q:'DN  W ?0 W "Neutrophil"

 D N:$X>27 Q:'DN  W ?27 W:$D(^UTILITY("DIQ1",$J,63.04,DA,468)) ^(468) K DIP K:DN Y

 D N:$X>0 Q:'DN  W ?0 W "Bands"

 D N:$X>27 Q:'DN  W ?27 W:$D(^UTILITY("DIQ1",$J,63.04,DA,395)) ^(395) K DIP K:DN Y

 D N:$X>0 Q:'DN  W ?0 W "Lymphs"

 D N:$X>27 Q:'DN  W ?27 W:$D(^UTILITY("DIQ1",$J,63.04,DA,396)) ^(396) K DIP K:DN Y

 D N:$X>0 Q:'DN  W ?0 W "Monocytes"

 D N:$X>27 Q:'DN  W ?27 W:$D(^UTILITY("DIQ1",$J,63.04,DA,397)) ^(397) K DIP K:DN Y

 G ^MCARORL1

MCARORL   ; GENERATED FROM 'MCRHLAB' PRINT TEMPLATE (#3733) ; 11/29/04 ; (FILE 701, MARGIN=80)

 +1        GOTO BEGIN

N          WRITE !

T          IF $X

               WRITE !

           IF '$DATA(DIOT(2))

               IF DN

                   IF $DATA(IOSL)

                       IF $SELECT('$DATA(DIWF):1,$PIECE(DIWF,"B",2):$PIECE(DIWF,"B",2),1:1)+$Y'<IOSL

                           IF $DATA(^UTILITY($JOB,1))#2

                               IF ^(1)?1U1P1E.E

                                   XECUTE ^(1)

 +1        SET DISTP=DISTP+1

           SET DILCT=DILCT+1

           IF '(DISTP#100)

               DO CSTP^DIO2

 +2        QUIT 

DT         IF $GET(DUZ("LANG"))>1

               IF Y

                   WRITE $$OUT^DIALOGU(Y,"DD")

                   QUIT 

 +1        IF Y

               WRITE $PIECE("JAN^FEB^MAR^APR^MAY^JUN^JUL^AUG^SEP^OCT^NOV^DEC",U,$EXTRACT(Y,4,5))_" "

               IF Y#100

                   WRITE $JUSTIFY(Y#100\1,2)_","

               WRITE Y\10000+1700

               IF Y#1

                   WRITE "  "_$EXTRACT(Y_0,9,10)_":"_$EXTRACT(Y_"000",11,12)

               QUIT 

 +2        WRITE Y

           QUIT 

M          DO @DIXX

 +1        QUIT 

BEGIN     ;

 +1        IF '$DATA(DN)

               SET DN=1

           SET DISTP=$GET(DISTP)

           SET DILCT=$GET(DILCT)

 +2        SET I(0)="^MCAR(701,"

           SET J(0)=701

 +3        FOR Y=0:0

               IF $Y>-1

                   QUIT 

               WRITE !

 +4        IF $X>0

               DO N

           IF 'DN

               QUIT 

           WRITE ?0

           WRITE "PATIENT LABORATORY INFORMATION"

 +5        DO T

           IF 'DN

               QUIT 

           DO N

           IF $X>0

               DO N

           IF 'DN

               QUIT 

           WRITE ?0

           WRITE "C H E M I S T R Y :"

 +6        IF $X>39

               DO N

           IF 'DN

               QUIT 

           WRITE ?39

           WRITE "S E R O L O G Y :"

 +7        IF $X>0

               DO N

           IF 'DN

               QUIT 

           WRITE ?0

           WRITE "Aldolase"

 +8        IF $X>27

               DO N

           IF 'DN

               QUIT 

           WRITE ?27

           IF $DATA(^UTILITY("DIQ1",$JOB,63.04,DA,63))

               WRITE ^(63)

           KILL DIP

           IF DN

               KILL Y

 +9        IF $X>39

               DO N

           IF 'DN

               QUIT 

           WRITE ?39

           WRITE "Anti-DNA Antibody"

 +10       IF $X>69

               DO N

           IF 'DN

               QUIT 

           WRITE ?69

           IF $DATA(^UTILITY("DIQ1",$JOB,63.04,DA,563))

               WRITE ^(563)

           KILL DIP

           IF DN

               KILL Y

 +11       IF $X>0

               DO N

           IF 'DN

               QUIT 

           WRITE ?0

           WRITE "Albumin"

 +12       IF $X>27

               DO N

           IF 'DN

               QUIT 

           WRITE ?27

           IF $DATA(^UTILITY("DIQ1",$JOB,63.04,DA,14))

               WRITE ^(14)

           KILL DIP

           IF DN

               KILL Y

 +13       IF $X>39

               DO N

           IF 'DN

               QUIT 

           WRITE ?39

           WRITE "Anti-skeletal muscle"

 +14       IF $X>69

               DO N

           IF 'DN

               QUIT 

           WRITE ?69

           IF $DATA(^UTILITY("DIQ1",$JOB,63.04,DA,595))

               WRITE ^(595)

           KILL DIP

           IF DN

               KILL Y

 +15       IF $X>0

               DO N

           IF 'DN

               QUIT 

           WRITE ?0

           WRITE "Alkaline phosphatase"

 +16       IF $X>27

               DO N

           IF 'DN

               QUIT 

           WRITE ?27

           IF $DATA(^UTILITY("DIQ1",$JOB,63.04,DA,17))

               WRITE ^(17)

           KILL DIP

           IF DN

               KILL Y

 +17       IF $X>39

               DO N

           IF 'DN

               QUIT 

           WRITE ?39

           WRITE "Anti-RNP"

 +18       IF $X>69

               DO N

           IF 'DN

               QUIT 

           WRITE ?69

           IF $DATA(^UTILITY("DIQ1",$JOB,63.04,DA,594))

               WRITE ^(594)

           KILL DIP

           IF DN

               KILL Y

 +19       IF $X>0

               DO N

           IF 'DN

               QUIT 

           WRITE ?0

           WRITE "Urea nitrogen"

 +20       IF $X>27

               DO N

           IF 'DN

               QUIT 

           WRITE ?27

           IF $DATA(^UTILITY("DIQ1",$JOB,63.04,DA,3))

               WRITE ^(3)

           KILL DIP

           IF DN

               KILL Y

 +21       IF $X>39

               DO N

           IF 'DN

               QUIT 

           WRITE ?39

           WRITE "Hepatitis B Antibody"

 +22       IF $X>69

               DO N

           IF 'DN

               QUIT 

           WRITE ?69

           IF $DATA(^UTILITY("DIQ1",$JOB,63.04,DA,581))

               WRITE ^(581)

           KILL DIP

           IF DN

               KILL Y

 +23       IF $X>0

               DO N

           IF 'DN

               QUIT 

           WRITE ?0

           WRITE "Calcium"

 +24       IF $X>27

               DO N

           IF 'DN

               QUIT 

           WRITE ?27

           IF $DATA(^UTILITY("DIQ1",$JOB,63.04,DA,9))

               WRITE ^(9)

           KILL DIP

           IF DN

               KILL Y

 +25       IF $X>39

               DO N

           IF 'DN

               QUIT 

           WRITE ?39

           WRITE "Hepatitis B Antigen"

 +26       IF $X>69

               DO N

           IF 'DN

               QUIT 

           WRITE ?69

           IF $DATA(^UTILITY("DIQ1",$JOB,63.04,DA,553))

               WRITE ^(553)

           KILL DIP

           IF DN

               KILL Y

 +27       IF $X>0

               DO N

           IF 'DN

               QUIT 

           WRITE ?0

           WRITE "Cholesterol"

 +28       IF $X>27

               DO N

           IF 'DN

               QUIT 

           WRITE ?27

           IF $DATA(^UTILITY("DIQ1",$JOB,63.04,DA,12))

               WRITE ^(12)

           KILL DIP

           IF DN

               KILL Y

 +29       IF $X>39

               DO N

           IF 'DN

               QUIT 

           WRITE ?39

           WRITE "Complement CH50"

 +30       IF $X>69

               DO N

           IF 'DN

               QUIT 

           WRITE ?69

           IF $DATA(^UTILITY("DIQ1",$JOB,63.04,DA,587))

               WRITE ^(587)

           KILL DIP

           IF DN

               KILL Y

 +31       IF $X>0

               DO N

           IF 'DN

               QUIT 

           WRITE ?0

           WRITE "CPK"

 +32       IF $X>27

               DO N

           IF 'DN

               QUIT 

           WRITE ?27

           IF $DATA(^UTILITY("DIQ1",$JOB,63.04,DA,41))

               WRITE ^(41)

           KILL DIP

           IF DN

               KILL Y

 +33       IF $X>39

               DO N

           IF 'DN

               QUIT 

           WRITE ?39

           WRITE "Cryoglobulins"

 +34       IF $X>69

               DO N

           IF 'DN

               QUIT 

           WRITE ?69

           IF $DATA(^UTILITY("DIQ1",$JOB,63.04,DA,549))

               WRITE ^(549)

           KILL DIP

           IF DN

               KILL Y

 +35       IF $X>0

               DO N

           IF 'DN

               QUIT 

           WRITE ?0

           WRITE "Creatinine"

 +36       IF $X>27

               DO N

           IF 'DN

               QUIT 

           WRITE ?27

           IF $DATA(^UTILITY("DIQ1",$JOB,63.04,DA,4))

               WRITE ^(4)

           KILL DIP

           IF DN

               KILL Y

 +37       IF $X>39

               DO N

           IF 'DN

               QUIT 

           WRITE ?39

           WRITE "Complement"

 +38       IF $X>69

               DO N

           IF 'DN

               QUIT 

           WRITE ?69

           IF $DATA(^UTILITY("DIQ1",$JOB,63.04,DA,547))

               WRITE ^(547)

           KILL DIP

           IF DN

               KILL Y

 +39       IF $X>0

               DO N

           IF 'DN

               QUIT 

           WRITE ?0

           WRITE "Glucose"

 +40       IF $X>27

               DO N

           IF 'DN

               QUIT 

           WRITE ?27

           IF $DATA(^UTILITY("DIQ1",$JOB,63.04,DA,2))

               WRITE ^(2)

           KILL DIP

           IF DN

               KILL Y

 +41       IF $X>39

               DO N

           IF 'DN

               QUIT 

           WRITE ?39

           WRITE "Complement C4"

 +42       IF $X>69

               DO N

           IF 'DN

               QUIT 

           WRITE ?69

           IF $DATA(^UTILITY("DIQ1",$JOB,63.04,DA,548))

               WRITE ^(548)

           KILL DIP

           IF DN

               KILL Y

 +43       IF $X>0

               DO N

           IF 'DN

               QUIT 

           WRITE ?0

           WRITE "LDH"

 +44       IF $X>27

               DO N

           IF 'DN

               QUIT 

           WRITE ?27

           IF $DATA(^UTILITY("DIQ1",$JOB,63.04,DA,18))

               WRITE ^(18)

           KILL DIP

           IF DN

               KILL Y

 +45       IF $X>39

               DO N

           IF 'DN

               QUIT 

           WRITE ?39

           WRITE "HLA B27"

 +46       IF $X>69

               DO N

           IF 'DN

               QUIT 

           WRITE ?69

           IF $DATA(^UTILITY("DIQ1",$JOB,63.04,DA,174))

               WRITE ^(174)

           KILL DIP

           IF DN

               KILL Y

 +47       IF $X>0

               DO N

           IF 'DN

               QUIT 

           WRITE ?0

           WRITE "PO4"

 +48       IF $X>27

               DO N

           IF 'DN

               QUIT 

           WRITE ?27

           IF $DATA(^UTILITY("DIQ1",$JOB,63.04,DA,10))

               WRITE ^(10)

           KILL DIP

           IF DN

               KILL Y

 +49       IF $X>39

               DO N

           IF 'DN

               QUIT 

           WRITE ?39

           WRITE "IGA"

 +50       IF $X>69

               DO N

           IF 'DN

               QUIT 

           WRITE ?69

           IF $DATA(^UTILITY("DIQ1",$JOB,63.04,DA,625))

               WRITE ^(625)

           KILL DIP

           IF DN

               KILL Y

 +51       IF $X>0

               DO N

           IF 'DN

               QUIT 

           WRITE ?0

           WRITE "SGOT"

 +52       IF $X>27

               DO N

           IF 'DN

               QUIT 

           WRITE ?27

           IF $DATA(^UTILITY("DIQ1",$JOB,63.04,DA,19))