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

Package: General Medical Record - Vitals

Routine: GMRVSR1


Information

GMRVSR1 ;HIRMFO/RM,YH-PATIENT VITAL SIGNS-I/O SF 511 GRAPH - 1 ;2/7/99

Source Information

Source file <GMRVSR1.m>

Entry Points

Name Comments DBIA/ICR reference
SF511 ;PRODUCE PATIENT VITAL SIGNS-I/O GRAPH
GRAPH ;
PAGE ;
IO ;PRINT INTAKE/OUTPUT SECTION OF VITAL SIGNS-I/O SHEET
SETDATA ; FILL GMRLINE WITH I/O DATA AND WRITE GMRLINE
SELECT(J) ;TYPE OF GRAPH FOR REPORT
TRYAGN
WRT1
SETT ; SET GMRT
GCHART ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: PAGE+1
Function Call: WRITE
  • Prompt: !!!!!!!!,?5,"THERE IS NO DATA FOR THIS REPORT"
  • Line Location: PAGE+2
Function Call: WRITE
  • Prompt: !
  • Line Location: PAGE+3
Function Call: WRITE
  • Prompt: !,?3,"Pulse Temp/F/C",?17,"|",?18,GMRX
  • Line Location: PAGE+3
Function Call: WRITE
  • Prompt: !,?17,"|",GMRX2
  • Line Location: PAGE+5
Function Call: WRITE
  • Prompt: !,G,?17,"|",GMRLINE(GMRI)
  • Line Location: PAGE+12
Function Call: WRITE
  • Prompt: !,G,?17,"|",GMRLINE("PN")
  • Line Location: PAGE+14
Function Call: WRITE
  • Prompt: !,?17,$$REPEAT^XLFSTR("-",111)
  • Line Location: PAGE+15
Function Call: WRITE
  • Prompt: !,"T: Temperature P: Pulse C/G: Circumference/Girth * - Abnormal value ** - Abnormal value off of graph"
  • Line Location: PAGE+16
Function Call: WRITE
  • Prompt: !,"Pain: 99 - Unable to respond 0 - No pain 10 - Worst imaginable pain"
  • Line Location: PAGE+17
Function Call: WRITE
  • Prompt: !
  • Line Location: PAGE+18
Function Call: WRITE
  • Prompt: !,GLINE(I)
  • Line Location: PAGE+18
Function Call: WRITE
  • Prompt: !
  • Line Location: PAGE+19
Function Call: WRITE
  • Prompt: !,"Intake(24 Hr)(cc)",?17,"|",GMRLINE("I")
  • Line Location: IO+3
Function Call: WRITE
  • Prompt: !,"Output(24 Hr)(cc)",?17,"|",GMRLINE("O")
  • Line Location: IO+4
Function Call: WRITE
  • Prompt: !
  • Line Location: SELECT+1
Function Call: WRITE
  • Prompt: !,?2,I_" "_$P($T(GCHART+I),";;",2)
  • Line Location: TRYAGN+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: TRYAGN+1
Function Call: WRITE
  • Prompt: !!,"Enter the number for the graph you wish to print.",!,"The default is Vital Signs Record.",!
  • Line Location: TRYAGN+4
Function Call: WRITE
  • Prompt: " ",$P($T(GCHART+X),";;",2)
  • Line Location: TRYAGN+5
Function Call: WRITE
  • Prompt: !!,?5,$C(7),"This report must be queued to a 132 column printer.",!!
  • Line Location: WRT1+0
Info |  Source |  Entry Points |  Interaction Calls