source: FOIAVistA/tag/r/GEN_MED_REC_VITALS-GMRV/GMRVKPO4.m@ 628

Last change on this file since 628 was 628, checked in by George Lilly, 14 years ago

initial load of FOIAVistA 6/30/08 version
File size: 2.1 KB
Line 
1GMRVKPO4 ;HIRMFO/YH-GRAPH KYOCERA PRINT COMMANDS (PART 1) ;5/20/97
2 ;;4.0;Vitals/Measurements;**1**;Apr 25, 1997
3EN3 ;CONTINUATION OF GMRVKPO3
4CALL W !,"CALL BOX, '%';"
5 W !,"CALL DATE" S J(1)=1,J(2)=J(1)+9 D WRTCALL^GMRVBP4
6 W !,"CALL TIME" S J(1)=17,J(2)=J(1)+9 D WRTCALL^GMRVBP4
7 W !,"CALL RPG, "_^TMP($J,"GMRK","G50M")_", "_^("G50")_", "_^("G51")_", "_^("G52")_", "_^("G53")_", "_^("G54")_", "_^("G55")_", "_^("G56")
8 W ", "_^TMP($J,"GMRK","G57")_", "_^("G58")_", "_^("G59")_";"
9 W !,"CALL RS1, "_^TMP($J,"GMRK","G50M")_", "_^("G50")_", '"_^("G411")_"', "_^("G51")_", '"_^("G412")_"', "_^("G52")_", '"_^("G413")_"', "_^("G53")_", '"_^("G414")_"', "_^("G54")_", '"_^("G415")_"', "_^("G55")_", '"_^("G416")_"', "
10 W ^TMP($J,"GMRK","G56")_", '"_^("G417")_"', "_^("G57")_", '"_^("G418")_"', "_^("G58")_", '"_^("G419")_"';"
11 W !,"CALL RS2, "_^TMP($J,"GMRK","G59")_", '"_^("G420")_"';"
12 W !,"CALL RSP" S J(1)=250,J(2)=J(1)+9 D WRTCALL^GMRVBP4
13 W !,"CALL PLSG, "_^TMP($J,"GMRK","G82M")_", "_^("G82")_", "_^("G83")_", "_^("G84")_", "_^("G85")_", "_^("G86")_", "_^("G87")_", "_^("G88")_", "
14 W ^TMP($J,"GMRK","G89")_", "_^("G90")_", "_^("G91")_";"
15 W !,"CALL PLS1, "_^TMP($J,"GMRK","G82M")_", "_^("G82")_", '"_^("G431")_"', "_^("G83")_", '"_^("G432")_"', "_^("G84")_", '"_^("G433")_"', "_^("G85")_", '"_^("G434")_"', "_^("G86")_", '"_^("G435")_"', "_^("G87")_", '"_^("G436")_"', "
16 W ^TMP($J,"GMRK","G88")_", '"_^("G437")_"', "_^("G89")_", '"_^("G438")_"', "_^("G90")_", '"_^("G439")_"';"
17 W !,"CALL PLS2, "_^TMP($J,"GMRK","G91")_", '"_^("G440")_"';"
18 W !,"CALL PULS" S J(1)=282,J(2)=J(1)+9 D WRTCALL^GMRVBP4
19PO2Q ;
20 W !,"CALL POXL" S J(1)=1431,J(2)=J(1)+9 D WRTCALL^GMRVBP4
21 W !,"CALL POXP" S J(1)=1451,J(2)=J(1)+9 D WRTCALL^GMRVBP4
22 W !,"CALL POXM" S J(1)=1471,J(2)=J(1)+9 D WRTCALL^GMRVBP4
23 W !,"CALL NEWP" S J(1)=311,J(2)=J(1)+9 D WRTCALL^GMRVBP4
24 W !,"CALL PLQ" S J(1)=331,J(2)=J(1)+9 D WRTCALL^GMRVBP4
25 W !,"CALL QUA, '"_$G(GLINE(1))_"';" W !,"CALL QU2, '"_$G(GLINE(2))_"';"
26 W !,"CALL PID, """_^TMP($J,"GMRK","G194")_""", '"_^("G196")_"', '"_^("G197")_"', '"_^("G198")_"', '"_^("G199")_"', '"_^("G200")_"', '"_GMRDIV_"', '"_GSTRFIN_"';"
27 W !,"RES; EXIT;"
28 Q
Note: See TracBrowser for help on using the repository browser.