| 1 | GMVHPN2 ;HIOFO/YH,FT-HP LASER PAIN CHART - ^TMP DATA ;11/8/01 14:56
|
|---|
| 2 | ;;5.0;GEN. MED. REC. - VITALS;;Oct 31, 2002
|
|---|
| 3 | ;
|
|---|
| 4 | ; This routine uses the following IAs:
|
|---|
| 5 | ; #10104 - ^XLFSTR calls (supported)
|
|---|
| 6 | ;
|
|---|
| 7 | SETA ;
|
|---|
| 8 | I GK="Unavailable" S GK="Unavail"
|
|---|
| 9 | I GK'="" D
|
|---|
| 10 | . S ^TMP($J,"GMRK","G"_(GJ+GCNTD+1))=GK,^TMP($J,"GMRK","G"_(GJ+20+GCNTD+1))=GK
|
|---|
| 11 | I GK'=99,"PASSREFUSEDUNAVAIL"'[$$UP^XLFSTR(GK) S ^TMP($J,"GMRK","G"_(410+GCNTD))="P"
|
|---|
| 12 | Q
|
|---|
| 13 | PTID ;PRINT PATIENT ID
|
|---|
| 14 | 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")_"#;"
|
|---|
| 15 | W !,"PA-2,-11.5;LB"_^TMP($J,"GMRK","G198")_"#;PA6,-12;LB"_^("G200")_"#;PA6,-12.5;LB"_^("G199")_"#;PA-2,-12;LB"_GMRDIV_"#;"
|
|---|
| 16 | W !,"PA-2,-12.5;LB"_GSTRFIN_"#;" Q
|
|---|
| 17 | WRTLN ;PRINT LINE
|
|---|
| 18 | 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)))_"#;"
|
|---|
| 19 | 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)))_"#;"
|
|---|
| 20 | W !,I(1) Q
|
|---|
