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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMVWT4 1710 printed Nov 22, 2024@17:10:25 Page 2
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
