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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMVHPO1 2390 printed Nov 22, 2024@17:09:25 Page 2
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
