Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: GMVSR1

Package: General Medical Record - Vitals

Routine: GMVSR1


Information

GMVSR1 ;HIOFO/RM,YH-PATIENT VITAL SIGNS-I/O SF 511 GRAPH - 1 ;11/6/01 16:00

Source Information

Source file <GMVSR1.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
General Medical Record - Vitals 7 SETIO^GMVGR0  LEGEND^GMVLGQU  SETT^GMVSR2  STLNP^GMVVS1  (BP,DATES,FOOTER)^GMVVS2  (CKDT,GMRDT)^GMVVS3  (DATAPRT,SETHD)^GMVVS4  
Kernel 1 $$REPEAT^XLFSTR  
Registration 1 (DEM,INP)^VADPT  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
General Medical Record - Vitals 2 GMVSR0  GMVVS3  

Entry Points

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

External References

Name Field # of Occurrence
SETIO^GMVGR0 SF511+1
LEGEND^GMVLGQU PAGE+18
SETT^GMVSR2 SETT+1
STLNP^GMVVS1 PAGE+7
BP^GMVVS2 PAGE+8
DATES^GMVVS2 PAGE+3
FOOTER^GMVVS2 PAGE+2, PAGE+20
CKDT^GMVVS3 SF511+3, SF511+4
GMRDT^GMVVS3 SF511+2
DATAPRT^GMVVS4 PAGE+4
SETHD^GMVVS4 PAGE+4
DEM^VADPT SF511+1
INP^VADPT SF511+1
$$REPEAT^XLFSTR PAGE+15

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
  • Timeout: DTIME
  • Variable: X
  • 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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP($J SF511+3*, SF511+4*, SF511+5, SF511+7!, PAGE+2, PAGE+7, PAGE+8, PAGE+20!, IO+2, SETDATA+1!
, SETDATA+2!

Label References

Name Line Occurrences
GRAPH SF511+6
IO PAGE+13
PAGE GRAPH+3
SETDATA IO+2
TRYAGN TRYAGN+3, TRYAGN+4

Naked Globals

Name Field # of Occurrence
^( SETDATA+1, SETDATA+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DTIME TRYAGN+1
>> G PAGE+10*, PAGE+11*, PAGE+12, PAGE+14*
GDATA SF511+6!, SETDATA+1*, SETDATA+2*
GDIP GRAPH+4!
GDOP GRAPH+4!
>> GDT IO+2*, SETDATA+1, SETDATA+2
>> GFLAG GRAPH+1*, PAGE+1*
>> GFOUND SF511+3*, SF511+4*
GG PAGE+21!
GI PAGE+21!
GLINE PAGE+1!
GLINE( PAGE+18
GLPRNTR SF511+7!, PAGE+18*
GMR3 SF511+6!, PAGE+4
>> GMRBTH SF511+1*
GMRDAT SF511+6!
>> GMRDT PAGE+7*, PAGE+8*, PAGE+20*, IO+2*
GMREN SF511+6!
GMRHDR1 SF511+6!, PAGE+4
GMRHDR10 SF511+6!
GMRHDR11 SF511+6!
GMRHDR2 SF511+6!
GMRHT SF511+1*, SF511+6!
GMRI SF511+3*, SF511+4*, SF511+5*, SF511+6!, PAGE+4*, PAGE+5*, PAGE+7*, PAGE+9*, PAGE+10, PAGE+11
, PAGE+12
GMRJ SF511+6!
GMRK SF511+2*, SF511+6!
GMRLINE SF511+6!
GMRLINE( PAGE+5*, PAGE+12
GMRLINE("BMI" PAGE+6*
GMRLINE("CG1" PAGE+6*
GMRLINE("CG2" PAGE+6*
GMRLINE("CVP1" PAGE+6*
GMRLINE("H1" PAGE+6*
GMRLINE("I" IO+1*, IO+3, SETDATA+1*
GMRLINE("O" IO+1*, IO+4, SETDATA+2*
GMRLINE("OX1" PAGE+6*
GMRLINE("OX2" PAGE+6*
GMRLINE("OX3" PAGE+6*
GMRLINE("P1" PAGE+6*
GMRLINE("PN" PAGE+14
GMRLINE("W1" PAGE+6*
>> GMRNAM SF511+1*
GMRNM SF511+7!, PAGE+7*, PAGE+8*, PAGE+20*, IO+2*, SETDATA+1, SETDATA+2
GMROLD SF511+6!
>> GMROUT GRAPH+3, PAGE+15
GMRP SF511+6!
GMRPDIF SF511+6!
GMRPG SF511+6!, GRAPH+3*
GMRPGC SF511+6!, GRAPH+1*, PAGE+1*
GMRPGS SF511+6!, GRAPH+3*
GMRPHI SF511+6!
GMRPLO SF511+6!, GRAPH+3*
GMRPOFF SF511+6!
GMRQUAL PAGE+1!, PAGE+18
GMRSITE SF511+6!
GMRT SF511+6!
GMRTDIF SF511+6!
GMRTHI SF511+6!
GMRTLO SF511+6!, GRAPH+3*
GMRTNM SF511+5*, SF511+6!, GRAPH+3
GMRTOFF SF511+7!
GMRTY SF511+7!
GMRVJ PAGE+21!
GMRVX SF511+7!
GMRVX1 SF511+7!
GMRVX2 SF511+7!
>> GMRX GRAPH+2*, PAGE+3
>> GMRX1 GRAPH+1*, GRAPH+2, PAGE+5, PAGE+6, IO+1
>> GMRX2 GRAPH+2*, PAGE+5
GRNDIP GRAPH+4!
GRNDOP GRAPH+4!
>> GRPT SF511+1*
GSIP GRAPH+4!
GSOP GRAPH+4!
GSYNO PAGE+21!
I PAGE+18*, SELECT+1~, TRYAGN*
IOF PAGE+1
IOSL PAGE+19
IOST PAGE+1
J SELECT~, TRYAGN+1*, TRYAGN+2*, TRYAGN+5*
>> VADM(1 SF511+1
>> VADM(3 SF511+1
X GRAPH+1*, GRAPH+2*, PAGE+19*, SELECT+1~, TRYAGN+1*, TRYAGN+2, TRYAGN+3, TRYAGN+4, TRYAGN+5

Marked Items

Name Field # of Occurrence
$T(GCHART+I TRYAGN
$T(GCHART+X TRYAGN+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All