GMVHPO1.m

GMVHPO1 ;HIOFO/YH,FT-HP LASER PULSE OXIMETRY/RESP. GRAPH - FORM ;11/6/01  15:20

 ;;5.0;GEN. MED. REC. - VITALS;;Oct 31, 2002

 ;

 ; This routine uses the following IAs:

 ; <None>

 ;

EN1 ;RESET PRINTER, SET PAGE SIZE (PORTRAIT) AND PCL PICTURE FRAME 8 1/2"*11"

 W !,$CHAR(27),"E",$CHAR(27),"&l1E",$CHAR(27),"*c5952x7920Y",$CHAR(27),"%0B"

 W !,"IN;SP1;IP;SC-3,18,-8,20,1;PW.3;PA0,0;FT3,1;RR16,20;PW.3;PA0,-2.8;EA16,20;PA-3,-2.8;EA16,0;PW.15;"

 S I(1)="" F I=1:1:5 S I(1)=I(1)_"PU"_(1.6*I)_",20;PD"_(1.6*I)_",-2.8;"

 W !,I(1)

 S I(1)="" F I=6:1:9 S I(1)=I(1)_"PU"_(1.6*I)_",20;PD"_(1.6*I)_",-2.8;"

 W !,I(1) K I

 W !,"PU16,-0.4;PD-3,-0.4;PU-3,-0.8;PD16,-0.8;PU16,-1.2;PD-3,-1.2;PU-3.-1.6;PD16,-1.6;PU16,-2.0;PD-3,-2.0;PU-3,-2.4;PD16,-2.4;PU;"

 ;PRINT LABEL

 W !,"DT#,1;"

 W !,"SD1,277,2,1,4,10,5,1,6,5,7,4;SS;LO12;PA-2,19.5;LBDate/Time#;PA-2.5,18.8;LBPulse Ox. Resp.#;PA-2,18;LB100     40#;"

 W !,"PA-2,17;LB 98     38#;" W !,"PA-2,16;LB 96     36#;PA-2,15;LB 94     34#;PA-2,14;LB 92     32#;PA-2,13;LB 90     30#;"

 W !,"PA-2,12;LB 88     28#;PA-2,11;LB 86     26#;"

 W !,"PA-2,10;LB 84     24#;PA-2,9;LB 82     22#;PA-2,8;LB 80     20#;PA-2,7;LB 78     18#;"

 W !,"PA-2,6;LB 76     16#;PA-2,5;LB 74     14#;PA-2,4;LB 72     12#;PA-2,3;LB 70     10#;PA-2,2;LB 68     8#;PA-2,1;LB 66     6#;"

 ;LABEL THE LOWER BOX

 W !,"SD1,277,2,1,4,8,5,1,6,5,7,4;SS;LO11;PA-3,-0.4;LBRespiration#;PA-3,-0.8;LBPulse Oximetry#;"

 W !,"PA-2.5,-1.2;LBL/Min#;PA-2.5,-1.6;LB%#;PA-2.5,-2;LBMethod#;"

 W !,"PA-3,-2.4;LBPulse#;"

 W !,"PA-3,-3.2;LBR: Respiration        POx: Pulse Oximetry         * - Abnormal value        ** - Abnormal value off of graph#;"

 W !,"PA-3,-3.6;LB"_$E($G(GLINE(1)),1,100)_"#;" W !,"LB"_$E($G(GLINE(1)),101,180)_"#;"

 W !,"PA-3,-3.9;LB"_$E($G(GLINE(2)),1,100)_"#;" W !,"LB"_$E($G(GLINE(2)),101,180)_"#;"

 W !,"SD1,277,2,1,4,9,5,1,6,5,7,4;SS;PA10,-4.9;LBPulse Oximetry/Respiration Graph#;"

 W !,"SD1,277,2,1,4,9,5,1,6,5,7,4;SS;PA10,-4.5;LBMedical Record#;PA10,-5.3;LBSF 512#;"

 I GTNM=0 W !,"PA3,10;LBTHERE  IS  NO  DATA  FOR  THIS  PERIOD#;"

 W "PW.3;SD1,277,2,1,4,8,5,1,6,5,7,4;SS;LO7;PU;" S I=0 F  S I=$O(GRAPHR(I)) Q:I'>0  W !,GRAPHR(I)

 W "PU;" S I=0 F  S I=$O(GRAPHP(I)) Q:I'>0  W !,GRAPHP(I)

 W !,"PU;LO1;" D EN1^GMVHPO2

 D PTID^GMVHPO3

 ;ENTER PCL MODE, RESET PRINTER AND EJECT PAGE

Q1 ;

 W !,"PA-3,22;",$CHAR(27),"&r0F",$CHAR(27),"%0A" K I Q

GMVHPO1   ;HIOFO/YH,FT-HP LASER PULSE OXIMETRY/RESP. GRAPH - FORM ;11/6/01  15:20

 +1       ;;5.0;GEN. MED. REC. - VITALS;;Oct 31, 2002

 +2       ;

 +3       ; This routine uses the following IAs:

 +4       ; <None>

 +5       ;

EN1       ;RESET PRINTER, SET PAGE SIZE (PORTRAIT) AND PCL PICTURE FRAME 8 1/2"*11"

 +1        WRITE !,$CHAR(27),"E",$CHAR(27),"&l1E",$CHAR(27),"*c5952x7920Y",$CHAR(27),"%0B"

 +2        WRITE !,"IN;SP1;IP;SC-3,18,-8,20,1;PW.3;PA0,0;FT3,1;RR16,20;PW.3;PA0,-2.8;EA16,20;PA-3,-2.8;EA16,0;PW.15;"

 +3        SET I(1)=""

           FOR I=1:1:5

               SET I(1)=I(1)_"PU"_(1.6*I)_",20;PD"_(1.6*I)_",-2.8;"

 +4        WRITE !,I(1)

 +5        SET I(1)=""

           FOR I=6:1:9

               SET I(1)=I(1)_"PU"_(1.6*I)_",20;PD"_(1.6*I)_",-2.8;"

 +6        WRITE !,I(1)

           KILL I

 +7        WRITE !,"PU16,-0.4;PD-3,-0.4;PU-3,-0.8;PD16,-0.8;PU16,-1.2;PD-3,-1.2;PU-3.-1.6;PD16,-1.6;PU16,-2.0;PD-3,-2.0;PU-3,-2.4;PD16,-2.4;PU;"

 +8       ;PRINT LABEL

 +9        WRITE !,"DT#,1;"

 +10       WRITE !,"SD1,277,2,1,4,10,5,1,6,5,7,4;SS;LO12;PA-2,19.5;LBDate/Time#;PA-2.5,18.8;LBPulse Ox. Resp.#;PA-2,18;LB100     40#;"

 +11       WRITE !,"PA-2,17;LB 98     38#;"

           WRITE !,"PA-2,16;LB 96     36#;PA-2,15;LB 94     34#;PA-2,14;LB 92     32#;PA-2,13;LB 90     30#;"

 +12       WRITE !,"PA-2,12;LB 88     28#;PA-2,11;LB 86     26#;"

 +13       WRITE !,"PA-2,10;LB 84     24#;PA-2,9;LB 82     22#;PA-2,8;LB 80     20#;PA-2,7;LB 78     18#;"

 +14       WRITE !,"PA-2,6;LB 76     16#;PA-2,5;LB 74     14#;PA-2,4;LB 72     12#;PA-2,3;LB 70     10#;PA-2,2;LB 68     8#;PA-2,1;LB 66     6#;"

 +15      ;LABEL THE LOWER BOX

 +16       WRITE !,"SD1,277,2,1,4,8,5,1,6,5,7,4;SS;LO11;PA-3,-0.4;LBRespiration#;PA-3,-0.8;LBPulse Oximetry#;"

 +17       WRITE !,"PA-2.5,-1.2;LBL/Min#;PA-2.5,-1.6;LB%#;PA-2.5,-2;LBMethod#;"

 +18       WRITE !,"PA-3,-2.4;LBPulse#;"

 +19       WRITE !,"PA-3,-3.2;LBR: Respiration        POx: Pulse Oximetry         * - Abnormal value        ** - Abnormal value off of graph#;"

 +20       WRITE !,"PA-3,-3.6;LB"_$EXTRACT($GET(GLINE(1)),1,100)_"#;"

           WRITE !,"LB"_$EXTRACT($GET(GLINE(1)),101,180)_"#;"

 +21       WRITE !,"PA-3,-3.9;LB"_$EXTRACT($GET(GLINE(2)),1,100)_"#;"

           WRITE !,"LB"_$EXTRACT($GET(GLINE(2)),101,180)_"#;"

 +22       WRITE !,"SD1,277,2,1,4,9,5,1,6,5,7,4;SS;PA10,-4.9;LBPulse Oximetry/Respiration Graph#;"

 +23       WRITE !,"SD1,277,2,1,4,9,5,1,6,5,7,4;SS;PA10,-4.5;LBMedical Record#;PA10,-5.3;LBSF 512#;"

 +24       IF GTNM=0

               WRITE !,"PA3,10;LBTHERE  IS  NO  DATA  FOR  THIS  PERIOD#;"

 +25       WRITE "PW.3;SD1,277,2,1,4,8,5,1,6,5,7,4;SS;LO7;PU;"

           SET I=0

           FOR 

               SET I=$ORDER(GRAPHR(I))

               IF I'>0

                   QUIT 

               WRITE !,GRAPHR(I)

 +26       WRITE "PU;"

           SET I=0

           FOR 

               SET I=$ORDER(GRAPHP(I))

               IF I'>0

                   QUIT 

               WRITE !,GRAPHP(I)

 +27       WRITE !,"PU;LO1;"

           DO EN1^GMVHPO2

 +28       DO PTID^GMVHPO3

 +29      ;ENTER PCL MODE, RESET PRINTER AND EJECT PAGE

Q1        ;

 +1        WRITE !,"PA-3,22;",$CHAR(27),"&r0F",$CHAR(27),"%0A"

           KILL I

           QUIT