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: GMRVHPN1

Package: General Medical Record - Vitals

Routine: GMRVHPN1


Information

GMRVHPN1 ;HIRMFO/YH-HP LASER PAIN CHART - FORM ;2/6/99

Source Information

Source file <GMRVHPN1.m>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$CHAR(27),"E",$CHAR(27),"&l1E",$CHAR(27),"*c5952x7920Y",$CHAR(27),"%0B"
  • Line Location: EN2+1
Function Call: WRITE
  • Prompt: !,"IN;SP1;IP;SC-3,18,-16,12,1;PW.3;PA0,0;FT3,1;RR16,12;PW.3;PA0,-1;EA16,12;PA-3,-1;EA16,0;PW.15;PU;"
  • Line Location: EN2+2
Function Call: WRITE
  • Prompt: !,I(1)
  • Line Location: EN2+4
Function Call: WRITE
  • Prompt: !,I(1)
  • Line Location: EN2+6
Function Call: WRITE
  • Prompt: !,"PU;DT#,1;"
  • Line Location: EN2+8
Function Call: WRITE
  • Prompt: !,"SD1,277,2,1,4,10,5,1,6,5,7,4;SS;LO12;PA-2,11.6;LBDate/Time#;"
  • Line Location: EN2+9
Function Call: WRITE
  • Prompt: !,"PA-2,10.8;LBPain Scale#;PA-0.6,10;LB10#;PU0,11;PD16,11;PU16,10;PD0,10;PU-0.4,9;LB9#;"
  • Line Location: EN2+10
Function Call: WRITE
  • Prompt: !,"PU0,9;PD16,9;PU16,8;PD0,8;PU-0.4,8;LB8#;PU0,7;PD16,7;PU16,6;PD0,6;"
  • Line Location: EN2+11
Function Call: WRITE
  • Prompt: !,"PU-0.4,7;LB7#PU0,5;PD16,5;PU16,4;PD0,4;PU-0.4,6;LB6#;"
  • Line Location: EN2+12
Function Call: WRITE
  • Prompt: !,"PU-0.4,5;LB5#;PU-0.4,4;LB4#;PU0,3;PD16,3;PU16,2;PD0,2;"
  • Line Location: EN2+13
Function Call: WRITE
  • Prompt: !,"PU-0.4,3;LB3#;PU0,1;PD16,1;PU-0.4,2;LB2#;PU-0.4,1;LB1#;"
  • Line Location: EN2+14
Function Call: WRITE
  • Prompt: !,"SS;LO11;PA-1,-0.9;LBPain#;"
  • Line Location: EN2+16
Function Call: WRITE
  • Prompt: !,"PA0,-2;LB0 - No pain 10 - Worst imaginable pain 99 - Unable to respond#;"
  • Line Location: EN2+17
Function Call: WRITE
  • Prompt: !,"SD1,277,2,1,4,11,5,1,6,5,7,4;SS;PA12,-11.5;LBMedical Record#;PA12,-12;LBPain Chart#;"
  • Line Location: EN2+18
Function Call: WRITE
  • Prompt: !,"PA12,-12.5;LBSF 512#;"
  • Line Location: EN2+19
Function Call: WRITE
  • Prompt: !,"PA3,10;LBTHERE IS NO DATA FOR THIS PERIOD#;"
  • Line Location: EN2+20
Function Call: WRITE
  • Prompt: !,GRAPHR(I)
  • Line Location: EN2+21
Function Call: WRITE
  • Prompt: !,"PU;LO1;"
  • Line Location: EN2+22
Function Call: WRITE
  • Prompt: !,"SD1,277,2,1,4,9,5,1,6,5,7,4;SS;"
  • Line Location: EN2+24
Function Call: WRITE
  • Prompt: !,"PA-3,22;",$CHAR(27),"&r0F",$CHAR(27),"%0A"
  • Line Location: Q1+1
Info |  Source |  Entry Points |  Interaction Calls