GMRVHPN2.m

GMRVHPN2 ;HIRMFO/YH-HP LASER PAIN CHART - ^TMP DATA ;2/6/99

 ;;4.0;Vitals/Measurements;**7**;Apr 25, 1997

SETA ;

 I GK="Unavailable" S GK="Unavail"

 I GK'="" D

 . S ^TMP($J,"GMRK","G"_(GJ+GCNTD+1))=GK,^TMP($J,"GMRK","G"_(GJ+20+GCNTD+1))=GK

 I GK'=99,"PASSREFUSEDUNAVAIL"'[$$UP^XLFSTR(GK) S ^TMP($J,"GMRK","G"_(410+GCNTD))="P"

 Q

PTID ;PRINT PATIENT ID

 W !,"SD1,277,2,1,4,10,5,1,6,5,7,4;SS;PA-2,-10.5;LB"_^TMP($J,"GMRK","G194")_"#;PA-2,-11;LB"_^("G196")_"   "_^("G197")_"#;"

 W !,"PA-2,-11.5;LB"_^TMP($J,"GMRK","G198")_"#;PA6,-12;LB"_^("G200")_"#;PA6,-12.5;LB"_^("G199")_"#;PA-2,-12;LB"_GMRDIV_"#;"

 W !,"PA-2,-12.5;LB"_GSTRFIN_"#;" Q

WRTLN ;PRINT LINE

 S I(1)="" F I=1:1:5 S I(2)=I-1,I(1)=I(1)_"PA"_(1.6*I(2)+0.2)_","_J_";LB"_^TMP($J,"GMRK","G"_(J(1)+I(2)))_"#;"

 W !,I(1) S I(1)="" F I=6:1:10 S I(2)=I-1,I(1)=I(1)_"PA"_(1.6*I(2)+0.2)_","_J_";LB"_^TMP($J,"GMRK","G"_(J(1)+I(2)))_"#;"

 W !,I(1) Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---GMRVHPN2   913     printed  Mar 13, 2025@21:01:27                                                                                                                                                                                                     Page 2

GMRVHPN2  ;HIRMFO/YH-HP LASER PAIN CHART - ^TMP DATA ;2/6/99

 +1       ;;4.0;Vitals/Measurements;**7**;Apr 25, 1997

SETA      ;

 +1        IF GK="Unavailable"

               SET GK="Unavail"

 +2        IF GK'=""

               Begin DoDot:1

 +3                SET ^TMP($JOB,"GMRK","G"_(GJ+GCNTD+1))=GK

                   SET ^TMP($JOB,"GMRK","G"_(GJ+20+GCNTD+1))=GK

               End DoDot:1

 +4        IF GK'=99

               IF "PASSREFUSEDUNAVAIL"'[$$UP^XLFSTR(GK)

                   SET ^TMP($JOB,"GMRK","G"_(410+GCNTD))="P"

 +5        QUIT 

PTID      ;PRINT PATIENT ID

 +1        WRITE !,"SD1,277,2,1,4,10,5,1,6,5,7,4;SS;PA-2,-10.5;LB"_^TMP($JOB,"GMRK","G194")_"#;PA-2,-11;LB"_^("G196")_"   "_^("G197")_"#;"

 +2        WRITE !,"PA-2,-11.5;LB"_^TMP($JOB,"GMRK","G198")_"#;PA6,-12;LB"_^("G200")_"#;PA6,-12.5;LB"_^("G199")_"#;PA-2,-12;LB"_GMRDIV_"#;"

 +3        WRITE !,"PA-2,-12.5;LB"_GSTRFIN_"#;"

           QUIT 

WRTLN     ;PRINT LINE

 +1        SET I(1)=""

           FOR I=1:1:5

               SET I(2)=I-1

               SET I(1)=I(1)_"PA"_(1.6*I(2)+0.2)_","_J_";LB"_^TMP($JOB,"GMRK","G"_(J(1)+I(2)))_"#;"

 +2        WRITE !,I(1)

           SET I(1)=""

           FOR I=6:1:10

               SET I(2)=I-1

               SET I(1)=I(1)_"PA"_(1.6*I(2)+0.2)_","_J_";LB"_^TMP($JOB,"GMRK","G"_(J(1)+I(2)))_"#;"

 +3        WRITE !,I(1)

           QUIT