Routine: GMVHW1

Package	Total	Call Graph
General Medical Record - Vitals	1	EN1^GMVHW2

Package	Total	Caller Graph
General Medical Record - Vitals	1	GMVHW0

Name	Comments	DBIA/ICR reference
Q1	;
EN1	;RESET PRINTER, SET PAGE SIZE (PORTRAIT) AND PCL PICTURE FRAME 8 1/2"*11"
LBOX	;LABEL THE LOWER BOX
LABEL	;PRINT LABEL

Name	Field # of Occurrence
EN1^GMVHW2	LBOX+12

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$CHAR(27),"E",$CHAR(27),"&l1E",$CHAR(27),"*c5952x7920Y",$CHAR(27),"%0B" Line Location: EN1+1
Function Call: WRITE	Prompt: !,"IN;SP1;IP;SC-3,18,-10,18,1;PW.15;PA0,0;FT3,1;RR16,18;PW.3;PA0,-3.5,EA16,18;PA-3,-3.5;EA16,0;PW.15;" Line Location: EN1+2
Function Call: WRITE	Prompt: !,I(1) Line Location: EN1+4
Function Call: WRITE	Prompt: !,I(1),"PU;" Line Location: EN1+5
Function Call: WRITE	Prompt: !,"PA16,-3;PD-3,-3;PA-3,-2.5;PD16,-2.5;PU16,-2;PD-3,-2;PU-3,-1.5;PD16,-1.5;PU16,-1;PD-3,-1;PU-3,-0.5;PD16,-0.5;PU;" Line Location: EN1+6
Function Call: WRITE	Prompt: !,"DT#,1;" Line Location: LABEL+1
Function Call: WRITE	Prompt: !,"PW.3;SD1,277,2,1,4,10,5,1,6,5,7,4;SS;LO12;PA-2,17.5;LBDate/Time#;PA-2,16.9;LBPounds/Kgs#;PA-2,16;LB"_GWT(8)_"#;PA0,16;PD16,16;PU;" Line Location: LABEL+2
Function Call: WRITE	Prompt: !,"PA-.4,15;LB5#;PA-2,14;LB"_GWT(7)_"#;PA0,14;PD16,14;PU;;PA-.4,13;LB5#;PA-2,12;LB"_GWT(6)_"#;PA0,12;PD16,12;PU;" Line Location: LABEL+3
Function Call: WRITE	Prompt: !,"PA-.4,11;LB5#;PA-2,10;LB"_GWT(5)_"#;PA0,10;PD16,10;PU;PA-.4,9;LB5#;" Line Location: LABEL+4
Function Call: WRITE	Prompt: !,"PA-2,8;LB"_GWT(4)_"#;PA0,8;PD16,8;PU;PA-.4,7;LB5#;PA-2,6;LB"_GWT(3)_"#;PA0,6;PD16,6;PU;PA-.4,5;LB5#;" Line Location: LABEL+5
Function Call: WRITE	Prompt: !,"PA-2,4;LB"_GWT(2)_"#;PA0,4;PD16,4;PU;PA-.4,3;LB5#;PA-2,2;LB"_GWT(1)_"#;PA0,2;PD16,2;PU;PA-.4,1;LB5#;" Line Location: LABEL+6
Function Call: WRITE	Prompt: !,"SD1,277,2,1,4,8,5,1,6,5,7,4;SS;LO11;PA-3,-0.5;LBWeight (lb)#;PA-3,-1;LB (kg)#;PA-3,-1.5;LB Qualifier#;" Line Location: LBOX+1
Function Call: WRITE	Prompt: !,"PA-3,-2;LBBody Mass Index#;" Line Location: LBOX+2
Function Call: WRITE	Prompt: !,"PA-3,-2.5;LBHeight (in)#;PA-3,-3;LB (cm)#;PA-3,-3.5;LB Qualifier#;" Line Location: LBOX+3
Function Call: WRITE	Prompt: !,"SD1,277,2,1,4,8,5,1,6,5,7,4;SS;" Line Location: LBOX+4
Function Call: WRITE	Prompt: !,"PA-3,-4;LBW: Weight ** - Value off of graph#;" Line Location: LBOX+5
Function Call: WRITE	Prompt: !,"PA-3,-4.3;LB"_$E($G(GLINE(1)),1,100)_"#;" Line Location: LBOX+6
Function Call: WRITE	Prompt: !,"LB"_$E($G(GLINE(1)),101,180)_"#;" Line Location: LBOX+6
Function Call: WRITE	Prompt: !,"PA-3,-5.1;LB"_$E($G(GLINE(2)),1,100)_"#;" Line Location: LBOX+7
Function Call: WRITE	Prompt: !,"SD1,277,2,1,4,9,5,1,6,5,7,4;SS;PA12,-6;LBWEIGHT CHART#;" Line Location: LBOX+8
Function Call: WRITE	Prompt: !,"PA12,-5.6;LBMEDICAL RECORD#;PA12,-6.4;LBVAF 10-2614f#;" Line Location: LBOX+9
Function Call: WRITE	Prompt: !,"PA3,10;LBTHERE IS NO DATA FOR THIS PERIOD#;" Line Location: LBOX+10
Function Call: WRITE	Prompt: !,GRAPHW(I) Line Location: LBOX+11
Function Call: WRITE	Prompt: !,"PU;LO1;" Line Location: LBOX+12
Function Call: WRITE	Prompt: !,"PA-3,18;",$CHAR(27),"&r0F",$CHAR(27),"%0A" Line Location: Q1+1

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> GLINE(1	LBOX+6
>> GLINE(2	LBOX+7
>> GRAPHW(	LBOX+11
>> GTNM	LBOX+10
>> GWT(1	LABEL+6
>> GWT(2	LABEL+6
>> GWT(3	LABEL+5
>> GWT(4	LABEL+5
>> GWT(5	LABEL+4
>> GWT(6	LABEL+3
>> GWT(7	LABEL+3
>> GWT(8	LABEL+2
>> I	EN1+3, EN1+4, LBOX+11*
>> I(1	EN1+3, EN1+4, EN1+5

Customize PDF page

Package: General Medical Record - Vitals

Routine: GMVHW1

Information

Source Information

Call Graph

Call Graph Total: 1

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Local Variables

Legend: