GMVWT4.m

GMVWT4 ;HIOFO/YH,FT-KYOCERA WEIGHT GRAPH - MACRO CALL ;11/6/01  14:50

 ;;5.0;GEN. MED. REC. - VITALS;;Oct 31, 2002

 ;

 ; This routine uses the following IAs:

 ; <None>

 ;

EN1 ;

CALL W !,"CALL BOX, '"_GWT(1)_"', '"_GWT(2)_"', '"_GWT(3)_"', '"_GWT(4)_"', '"_GWT(5)_"', '"_GWT(6)_"', '"_GWT(7)_"', '"_GWT(8)_"';"

 W !,"CALL DATE" S J(1)=1,J(2)=J(1)+9 D WRTCALL^GMVBP4

 W !,"CALL TIME" S J(1)=17,J(2)=J(1)+9 D WRTCALL^GMVBP4

 W !,"CALL WTG, "_GINI_", "_^TMP($J,"GMRK","G141")_", "_^("G142")_", "_^("G143")_", "_^("G144")_", "_^("G145")_", "_^("G146")

 W ", "_^TMP($J,"GMRK","G147")_", "_^("G148")_", "_^("G149")_", "_^("G150")_";"

 W !,"CALL PLS1, "_GINI_", "_^TMP($J,"GMRK","G141")_", '"_^("G161")_"', "_^("G142")_", '"_^("G162")_"', "_^("G143")_", '"_^("G163")_"', "_^("G144")_", '"_^("G164")_"', "_^("G145")_", '"_^("G165")_"', "_^("G146")_", '"_^("G166")_"', "

 W ^TMP($J,"GMRK","G147")_", '"_^("G167")_"', "_^("G148")_", '"_^("G168")_"', "_^("G149")_", '"_^("G169")_"';"

 W !,"CALL PLS2, "_^TMP($J,"GMRK","G150")_", '"_^("G170")_"';"

WT W !,"CALL WTLB" S J(1)=101,J(2)=J(1)+9 D WRTCALL^GMVBP4

 W !,"CALL WTKG" S J(1)=121,J(2)=J(1)+9 D WRTCALL^GMVBP4

 W !,"CALL QUAL" S J(1)=181,J(2)=J(1)+9 D WRTCALL^GMVBP4

 W !,"CALL BMI" S J(1)=211,J(2)=J(1)+9 D WRTCALL^GMVBP4

HT W !,"CALL HT" S J(1)=301,J(2)=J(1)+9 D WRTCALL^GMVBP4

HTCM W !,"CALL HTCM" S J(1)=321,J(2)=J(1)+9 D WRTCALL^GMVBP4

 W !,"CALL HQ" S J(1)=341,J(2)=J(1)+9 D WRTCALL^GMVBP4

 W !,"CALL ALLQ, '"_$G(GLINE(1))_"';" W !,"CALL ALL2, '"_$G(GLINE(2))_"';"

PID W !,"CALL PID, """_GMVNM_""", '"_GMVDOB_"', '"_GMVGEN_"', '"_GMVWRD_"', '"_^TMP($J,"GMRK","G199")_"', '"_GMVRMBD_"', '"_GMRDIV_"', '"_GSTRFIN_"';"

 W !,"RES; EXIT;"

 Q

GMVWT4    ;HIOFO/YH,FT-KYOCERA WEIGHT GRAPH - MACRO CALL ;11/6/01  14:50

 +1       ;;5.0;GEN. MED. REC. - VITALS;;Oct 31, 2002

 +2       ;

 +3       ; This routine uses the following IAs:

 +4       ; <None>

 +5       ;

EN1       ;

CALL       WRITE !,"CALL BOX, '"_GWT(1)_"', '"_GWT(2)_"', '"_GWT(3)_"', '"_GWT(4)_"', '"_GWT(5)_"', '"_GWT(6)_"', '"_GWT(7)_"', '"_GWT(8)_"';"

 +1        WRITE !,"CALL DATE"

           SET J(1)=1

           SET J(2)=J(1)+9

           DO WRTCALL^GMVBP4

 +2        WRITE !,"CALL TIME"

           SET J(1)=17

           SET J(2)=J(1)+9

           DO WRTCALL^GMVBP4

 +3        WRITE !,"CALL WTG, "_GINI_", "_^TMP($JOB,"GMRK","G141")_", "_^("G142")_", "_^("G143")_", "_^("G144")_", "_^("G145")_", "_^("G146")

 +4        WRITE ", "_^TMP($JOB,"GMRK","G147")_", "_^("G148")_", "_^("G149")_", "_^("G150")_";"

 +5        WRITE !,"CALL PLS1, "_GINI_", "_^TMP($JOB,"GMRK","G141")_", '"_^("G161")_"', "_^("G142")_", '"_^("G162")_"', "_^("G143")_", '"_^("G163")_"', "_^("G144")_", '"_^("G164")_"', "_^("G145")_", '"_^("G165")_"', "_^("G146")_", '"_^("G166")_"', "

 +6        WRITE ^TMP($JOB,"GMRK","G147")_", '"_^("G167")_"', "_^("G148")_", '"_^("G168")_"', "_^("G149")_", '"_^("G169")_"';"

 +7        WRITE !,"CALL PLS2, "_^TMP($JOB,"GMRK","G150")_", '"_^("G170")_"';"

WT         WRITE !,"CALL WTLB"

           SET J(1)=101

           SET J(2)=J(1)+9

           DO WRTCALL^GMVBP4

 +1        WRITE !,"CALL WTKG"

           SET J(1)=121

           SET J(2)=J(1)+9

           DO WRTCALL^GMVBP4

 +2        WRITE !,"CALL QUAL"

           SET J(1)=181

           SET J(2)=J(1)+9

           DO WRTCALL^GMVBP4

 +3        WRITE !,"CALL BMI"

           SET J(1)=211

           SET J(2)=J(1)+9

           DO WRTCALL^GMVBP4

HT         WRITE !,"CALL HT"

           SET J(1)=301

           SET J(2)=J(1)+9

           DO WRTCALL^GMVBP4

HTCM       WRITE !,"CALL HTCM"

           SET J(1)=321

           SET J(2)=J(1)+9

           DO WRTCALL^GMVBP4

 +1        WRITE !,"CALL HQ"

           SET J(1)=341

           SET J(2)=J(1)+9

           DO WRTCALL^GMVBP4

 +2        WRITE !,"CALL ALLQ, '"_$GET(GLINE(1))_"';"

           WRITE !,"CALL ALL2, '"_$GET(GLINE(2))_"';"

PID        WRITE !,"CALL PID, """_GMVNM_""", '"_GMVDOB_"', '"_GMVGEN_"', '"_GMVWRD_"', '"_^TMP($JOB,"GMRK","G199")_"', '"_GMVRMBD_"', '"_GMRDIV_"', '"_GSTRFIN_"';"

 +1        WRITE !,"RES; EXIT;"

 +2        QUIT