Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: GMRVHB1

Package: General Medical Record - Vitals

Routine: GMRVHB1


Information

GMRVHB1 ;HIRMFO/YH-HP LASER B/P GRAPH - FORM ;5/15/97

Source Information

Source file <GMRVHB1.m>

Entry Points

Name Comments DBIA/ICR reference
EN1 ;RESET PRINTER, SET PAGE SIZE (PORTRAIT) AND PCL PICTURE FRAME 8"*11"
QUAL ;
Q1 ;

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,-8,20,1;PW.15;PA0,0;FT3,1;RR16,20;PW.3;PA0,-3;EA16,20;PA-3,-3;EA16,0;PW.15;"
  • Line Location: EN1+2
Function Call: WRITE
  • Prompt: !,I(1)
  • Line Location: EN1+4
Function Call: WRITE
  • Prompt: !,I(1)
  • Line Location: EN1+5
Function Call: WRITE
  • Prompt: !,"PU;"
  • Line Location: EN1+5
Function Call: WRITE
  • Prompt: !,"DT#,1;"
  • Line Location: EN1+7
Function Call: WRITE
  • Prompt: !,"SD1,277,2,1,4,10,5,1,6,5,7,4;SS;LO12;PA-2,19.5;LBDate/Time#;PA-2.5,18.8;LBBlood Pressure#;PA-1,18;LB220#;PA-1,17;LB210#;"
  • Line Location: EN1+8
Function Call: WRITE
  • Prompt: !,"PA-1,16;LB200#;PA-1,15;LB190#;PA-1,14;LB180#;PA-1,13;LB170#;PA-1,12;LB160#;PA-1,11;LB150#;PA-1,10;LB140#;"
  • Line Location: EN1+9
Function Call: WRITE
  • Prompt: !,"PA-1,9;LB130#;PA-1,8;LB120#;PA-1,7;LB110#;"
  • Line Location: EN1+10
Function Call: WRITE
  • Prompt: !,"PA-1,6;LB100#;PA-1,5;LB 90#;PA-1,4;LB 80#;PA-1,3;LB 70#;PA-1,2;LB 60#;PA-1,1;LB 50#;"
  • Line Location: EN1+11
Function Call: WRITE
  • Prompt: !,"SD1,277,2,1,4,8,5,1,6,5,7,4;SS;LO11;PA-3,-0.4;LBPulse#;PA-3,-.5;PD16,-.5;PA16,-1;PD-3,-1;"
  • Line Location: EN1+13
Function Call: WRITE
  • Prompt: !,"PA-3,-1.4;LBBlood Pressure#;PU;PA-3,-1.5;PD16,-1.5;PA16,-2;PD-3,-2;PA-3,-2.5;PD16,-2.5;PU;PA-3,-2.9;LBMAP#;"
  • Line Location: EN1+14
Function Call: WRITE
  • Prompt: !,"PA-3,-3.4;LBS: Systolic B/P D: Diastolic B/P MAP: Mean Arterial Pressure #;"
  • Line Location: EN1+15
Function Call: WRITE
  • Prompt: !,"LB * - Abnormal value ** - Abnormal value off of graph#;"
  • Line Location: EN1+15
Function Call: WRITE
  • Prompt: !,"PA-3,-3.7;LB"_$E($G(GLINE(1)),1,100)_"#;"
  • Line Location: QUAL+1
Function Call: WRITE
  • Prompt: !,"LB"_$E($G(GLINE(1)),101,180)_"#;"
  • Line Location: QUAL+1
Function Call: WRITE
  • Prompt: !,"PA-3,-4;LB"_$E($G(GLINE(2)),1,100)_"#;"
  • Line Location: QUAL+2
Function Call: WRITE
  • Prompt: !,"LB"_$E($G(GLINE(2)),101,180)_"#;"
  • Line Location: QUAL+2
Function Call: WRITE
  • Prompt: !,"PA-3,-4.3;LB"_$E($G(GLINE(3)),1,100)_"#;"
  • Line Location: QUAL+3
Function Call: WRITE
  • Prompt: !,"LB"_$E($G(GLINE(3)),101,180)_"#;"
  • Line Location: QUAL+3
Function Call: WRITE
  • Prompt: !,"SD1,277,2,1,4,9,5,1,6,5,7,4;SS;PA12,-4.9;LBB/P PLOTTING CHART#;"
  • Line Location: QUAL+4
Function Call: WRITE
  • Prompt: !,"PA12,-4.5;LBMEDICAL RECORD#;PA12,-5.3;LBVA STANDARD FORM 512-A#;"
  • Line Location: QUAL+5
Function Call: WRITE
  • Prompt: !,"PA3,10;LBTHERE IS NO DATA FOR THIS PERIOD#;"
  • Line Location: QUAL+6
Function Call: WRITE
  • Prompt: !,GRAPHS(I)
  • Line Location: QUAL+7
Function Call: WRITE
  • Prompt: !,GRAPHD(I)
  • Line Location: QUAL+8
Function Call: WRITE
  • Prompt: !,"PU;LO1;"
  • Line Location: QUAL+9
Function Call: WRITE
  • Prompt: !,"PA-3,18;",$CHAR(27),"&r0F",$CHAR(27),"%0A"
  • Line Location: Q1+1
Info |  Source |  Entry Points |  Interaction Calls