| [613] | 1 | GMRVWT4 ;HIRMFO/YH-KYOCERA WEIGHT GRAPH - MACRO CALL ;7/15/97
|
|---|
| 2 | ;;4.0;Vitals/Measurements;**1**;Apr 25, 1997
|
|---|
| 3 | EN1 ;
|
|---|
| 4 | CALL W !,"CALL BOX, '"_GWT(1)_"', '"_GWT(2)_"', '"_GWT(3)_"', '"_GWT(4)_"', '"_GWT(5)_"', '"_GWT(6)_"', '"_GWT(7)_"', '"_GWT(8)_"';"
|
|---|
| 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 WTG, "_GINI_", "_^TMP($J,"GMRK","G141")_", "_^("G142")_", "_^("G143")_", "_^("G144")_", "_^("G145")_", "_^("G146")
|
|---|
| 8 | W ", "_^TMP($J,"GMRK","G147")_", "_^("G148")_", "_^("G149")_", "_^("G150")_";"
|
|---|
| 9 | W !,"CALL PLS1, "_GINI_", "_^TMP($J,"GMRK","G141")_", '"_^("G161")_"', "_^("G142")_", '"_^("G162")_"', "_^("G143")_", '"_^("G163")_"', "_^("G144")_", '"_^("G164")_"', "_^("G145")_", '"_^("G165")_"', "_^("G146")_", '"_^("G166")_"', "
|
|---|
| 10 | W ^TMP($J,"GMRK","G147")_", '"_^("G167")_"', "_^("G148")_", '"_^("G168")_"', "_^("G149")_", '"_^("G169")_"';"
|
|---|
| 11 | W !,"CALL PLS2, "_^TMP($J,"GMRK","G150")_", '"_^("G170")_"';"
|
|---|
| 12 | WT W !,"CALL WTLB" S J(1)=101,J(2)=J(1)+9 D WRTCALL^GMRVBP4
|
|---|
| 13 | W !,"CALL WTKG" S J(1)=121,J(2)=J(1)+9 D WRTCALL^GMRVBP4
|
|---|
| 14 | W !,"CALL QUAL" S J(1)=181,J(2)=J(1)+9 D WRTCALL^GMRVBP4
|
|---|
| 15 | W !,"CALL BMI" S J(1)=211,J(2)=J(1)+9 D WRTCALL^GMRVBP4
|
|---|
| 16 | HT W !,"CALL HT" S J(1)=301,J(2)=J(1)+9 D WRTCALL^GMRVBP4
|
|---|
| 17 | HTCM W !,"CALL HTCM" S J(1)=321,J(2)=J(1)+9 D WRTCALL^GMRVBP4
|
|---|
| 18 | W !,"CALL HQ" S J(1)=341,J(2)=J(1)+9 D WRTCALL^GMRVBP4
|
|---|
| 19 | W !,"CALL ALLQ, '"_$G(GLINE(1))_"';" W !,"CALL ALL2, '"_$G(GLINE(2))_"';"
|
|---|
| 20 | PID W !,"CALL PID, """_GMVNM_""", '"_GMVDOB_"', '"_GMVGEN_"', '"_GMVWRD_"', '"_^TMP($J,"GMRK","G199")_"', '"_GMVRMBD_"', '"_GMRDIV_"', '"_GSTRFIN_"';"
|
|---|
| 21 | W !,"RES; EXIT;"
|
|---|
| 22 | Q
|
|---|
