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 |  All
Print Page as PDF
Routine: GMRVER1

Package: General Medical Record - Vitals

Routine: GMRVER1


Information

GMRVER1 ;HIRMFO/RM,YH-REPORT OF VITALS ENTERED IN ERROR FOR A PATIENT ;5/26/99 08:57

Source Information

Source file <GMRVER1.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
General Medical Record - Vitals 3 ($$WRITECH,CHAR)^GMRVCHAR  ($$WRTDAT,ERREASON)^GMRVER0  EN1^GMRVSAS0  
VA Fileman 2 NOW^%DTC  D^DIQ  
Kernel 1 ^%ZISC  
Registration 1 (DEM,KVAR)^VADPT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
General Medical Record - Vitals 1 GMRVER0  

Entry Points

Name Comments DBIA/ICR reference
SORT ;
QT ;
Q ; KILL VARIBLES
EN1 ; ENTRY TO REPORT FROM TASKMAN
WRT ;
HDR ;

External References

Name Field # of Occurrence
NOW^%DTC EN1+1
^%ZISC Q+2
D^DIQ WRT+26
$$WRITECH^GMRVCHAR WRT+6, WRT+18
CHAR^GMRVCHAR WRT+6, WRT+18
$$WRTDAT^GMRVER0 WRT+5, WRT+17
ERREASON^GMRVER0 WRT+25
EN1^GMRVSAS0 WRT+4, WRT+16
DEM^VADPT EN1+1
KVAR^VADPT Q+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"THERE IS NO DATA FOR THIS REPORT"
  • Line Location: EN1+3
Function Call: WRITE
  • Prompt: !
  • Line Location: QT+1
Function Call: WRITE
  • Prompt: !!,"Press return to continue ""^"" to escape "
  • Line Location: QT+2
Function Call: WRITE
  • Prompt: !,GMRPR("VSDT"),?21,GMRPR("TYPE"),?58,GMRPR("ENUS"),!,?3,"Reason: ",GREASON
  • Line Location: WRT+29
Function Call: WRITE
  • Prompt: !,?3,"(Revised) ",$P(GMRDAT("GOOD"),"^",8)
  • Line Location: WRT+30
Function Call: WRITE
  • Prompt: " No pain"
  • Line Location: WRT+32
Function Call: WRITE
  • Prompt: " Unable to respond"
  • Line Location: WRT+33
Function Call: WRITE
  • Prompt: " Worst imaginable pain"
  • Line Location: WRT+34
Function Call: WRITE
  • Prompt: !,?3,"(Bad data) ",$P(GMRDAT("BAD"),"^",8)
  • Line Location: WRT+35
Function Call: WRITE
  • Prompt: " No pain"
  • Line Location: WRT+37
Function Call: WRITE
  • Prompt: " Unable to respond"
  • Line Location: WRT+38
Function Call: WRITE
  • Prompt: " Worst imaginable pain"
  • Line Location: WRT+39
Function Call: WRITE
  • Prompt: !
  • Line Location: WRT+40
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,GMRPDT,?22,"ENTERED IN ERROR VITAL/MEASUREMENT REPORT",?70,"PAGE ",GMRPG
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,"Patient: ",VADM(1),?$X+5,$P(VADM(2),"^",2),!!,"Date Vit./Meas. taken",?58,"User who made error",!,GMRDSH,!
  • Line Location: HDR+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" EN1+1
^GMR(120.5 - [#120.5] EN1+2, SORT+1, SORT+2, WRT+2, WRT+3, WRT+6, WRT+11, WRT+14, WRT+15, WRT+18
, WRT+23
^GMRD(120.51 - [#120.51] WRT+4, WRT+16, WRT+28
^TMP($J EN1+3, EN1+4, Q+1!, SORT+2*, WRT+2
^VA(200 - [#200] WRT+27

Label References

Name Line Occurrences
HDR EN1+3, WRT+1
QT EN1+3
SORT EN1+2
WRT EN1+4

Naked Globals

Name Field # of Occurrence
^(0 WRT+2, WRT+15, WRT+27, WRT+28

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EN1+1
%T Q+1!
DFN EN1+2, Q+1!, SORT+1, SORT+2
DIPGM Q+1!
DTIME QT+2, HDR+1
GMR1ST EN1+1*, Q+1!, HDR+1, HDR+2*
GMRDAT Q+1!
GMRDAT("BAD" WRT+15*, WRT+16, WRT+24*, WRT+27, WRT+35, WRT+37, WRT+38, WRT+39
GMRDAT("GOOD" WRT+2*, WRT+4, WRT+12*, WRT+30, WRT+32, WRT+33, WRT+34
GMRDATE EN1+4*, Q+1!, WRT+2, WRT+26
GMRDSH EN1+1*, Q+1!, HDR+4
GMROUT EN1+1*, EN1+4, QT+2, Q+1!, WRT+1, HDR+1*
GMROV Q+1!
GMRP Q+1!
GMRPDT EN1+1*, Q+1!, HDR+3
GMRPG EN1+1*, Q+1!, HDR+2*, HDR+3
GMRPR Q+1!, WRT+1!
GMRPR("ENUS" WRT+27*, WRT+29
GMRPR("TYPE" WRT+28*, WRT+29
GMRPR("VSDT" WRT+26*, WRT+29
GMRQUAL Q+2!
GMRSITE Q+1!
GMRTYPE Q+1!
GMRVARY Q+2!, WRT+6!*, WRT+18!*
GMRVDA EN1+4*, Q+1!, SORT+2*, WRT+2, WRT+14, WRT+15, WRT+18, WRT+23, WRT+35
GMRVDATE EN1+2*, Q+1!, SORT+2
GMRVDT EN1+2*, Q+1!, SORT+1, SORT+2
GMRVERR Q+1!, SORT+1*, SORT+2, WRT+2*, WRT+3, WRT+6, WRT+11, WRT+30
GMRVFDT EN1+2, Q+1!
GMRVITY EN1+2*, EN1+4*, Q+1!, SORT+1, SORT+2, WRT+2, WRT+4, WRT+6, WRT+16, WRT+18
, WRT+28
GMRVPO Q+2!, WRT+11*, WRT+12, WRT+23*, WRT+24
GMRVSDT EN1+2, Q+1!
GMRVX Q+1!, WRT+4!*, WRT+5, WRT+6, WRT+7, WRT+12, WRT+16!*, WRT+17, WRT+18, WRT+19
, WRT+24, WRT+31, WRT+36
GMRVX(0 WRT+4*, WRT+5*, WRT+8, WRT+9, WRT+12, WRT+16!*, WRT+17*, WRT+20, WRT+21, WRT+24
GMRVX(1 WRT+4*, WRT+8*, WRT+9*, WRT+12, WRT+16!*, WRT+20*, WRT+21*, WRT+24
GMRZZ Q+2!, WRT+6*, WRT+8, WRT+9, WRT+12, WRT+18*, WRT+20, WRT+21, WRT+24
GREASON Q+2!, WRT+25*, WRT+29
GX Q+2!
IO EN1+3
IOF Q+1, HDR+2
IOSL QT+1, WRT+1
IOST QT+2, Q+1, HDR+1, HDR+2
POP Q+1!
VA Q+1!
>> VADM(1 HDR+4
>> VADM(2 HDR+4
>> X QT+1*, QT+2*, HDR+1*
>> Y EN1+1*, WRT+26*
>> ZTQUEUED Q+1
>> ZTREQ Q+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All