source: WorldVistAEHR/trunk/r/GEN_MED_OTHER-GMV/GMVKPN2.m@ 1710

Last change on this file since 1710 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.2 KB
RevLine 
[613]1GMVKPN2 ;HCIOFO/YH,FT-KYOCERA KYOCERA PAIN CHART PRINT COMMANDS (PART 1) ;11/6/01 15:05
2 ;;5.0;GEN. MED. REC. - VITALS;;Oct 31, 2002
3 ;
4 ; This routine uses the following IAs:
5 ; <None>
6 ;
7EN3 ;CONTINUATION OF GMVKPO3
8CALL W !,"CALL BOX, '%';"
9 W !,"CALL DATE" S J(1)=1,J(2)=J(1)+9 D WRTCALL
10 W !,"CALL TIME" S J(1)=17,J(2)=J(1)+9 D WRTCALL
11 W !,"CALL RPG, "_^TMP($J,"GMRK","G50M")_", "_^("G50")_", "_^("G51")_", "_^("G52")_", "_^("G53")_", "_^("G54")_", "_^("G55")_", "_^("G56")
12 W ", "_^TMP($J,"GMRK","G57")_", "_^("G58")_", "_^("G59")_";"
13 W !,"CALL RS1, "_^TMP($J,"GMRK","G50M")_", "_^("G50")_", '"_^("G411")_"', "_^("G51")_", '"_^("G412")_"', "_^("G52")_", '"_^("G413")_"', "_^("G53")_", '"_^("G414")_"', "_^("G54")_", '"_^("G415")_"', "_^("G55")_", '"_^("G416")_"', "
14 W ^TMP($J,"GMRK","G56")_", '"_^("G417")_"', "_^("G57")_", '"_^("G418")_"', "_^("G58")_", '"_^("G419")_"';"
15 W !,"CALL RS2, "_^TMP($J,"GMRK","G59")_", '"_^("G420")_"';"
16 W !,"CALL RSP" S J(1)=250,J(2)=J(1)+9 D WRTCALL
17 W !,"CALL PID, """_^TMP($J,"GMRK","G194")_""", '"_^("G196")_"', '"_^("G197")_"', '"_^("G198")_"', '"_^("G199")_"', '"_^("G200")_"', '"_GMRDIV_"', '"_GSTRFIN_"';"
18 W !,"RES; EXIT;"
19 Q
20WRTCALL S I(1)="" F I=J(1):1:J(2) S I(1)=I(1)_", '"_^TMP($J,"GMRK","G"_I)_"'"
21 W I(1)_";"
22 Q
Note: See TracBrowser for help on using the repository browser.