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

Package: General Medical Record - IO

Routine: GMRYUT10


Information

GMRYUT10 ;HIRMFO/YH-IV RESTART ;6/11/93

Source Information

Source file <GMRYUT10.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
General Medical Record - IO 7 $$RW^GMRYDIR  (DELIV,RESTART)^GMRYED2  SITECATH^GMRYSTCA  WAIT^GMRYUT0  $$ADM^GMRYUT12  DT^GMRYUT3  ASK1^GMRYUT6  
VA FileMan 3 (C,NOW)^%DTC  (FILE,YN)^DICN  ^DIE  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
General Medical Record - IO 3 GMRYDCIV  GMRYED3  GMRYUT7  

Entry Points

Name Comments DBIA/ICR reference
OTHRSOL ;ENTER OTHER NAME OF SOLUTION
YN
EDTSOL ;
YN2
RESTART ;RESTART IV
SEARCH ;SEARCH THE IV STARTED WITHIN 24 HRS DC'D WITHIN 8 HRS
SCREEN
SAVE
WRITE
YN1
WRT
SET
ASK
ASK2
RESET ;

External References

Name Field # of Occurrence
C^%DTC RESTART+1
NOW^%DTC RESTART+1
FILE^DICN ASK2+4
YN^DICN YN, YN2
^DIE ASK2+9
$$RW^GMRYDIR EDTSOL+1
DELIV^GMRYED2 ASK2+9
RESTART^GMRYED2 ASK2+10
SITECATH^GMRYSTCA ASK2+2
WAIT^GMRYUT0 ASK2+4, ASK2+8
$$ADM^GMRYUT12 ASK2+1
DT^GMRYUT3 ASK2
ASK1^GMRYUT6 ASK

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: OTHRSOL+1
Function Call: WRITE
  • Prompt: !,"Enter the name of this IV solution or ^ to quit",!
  • Line Location: OTHRSOL+2
Function Call: WRITE
  • Prompt: !,X_" "
  • Line Location: YN+0
Function Call: WRITE
  • Prompt: !!,"Enter Y(es) or N(o) to confirm your entry is correct or not.",!
  • Condition for execution: %=0
  • Line Location: YN+0
Function Call: WRITE
  • Prompt: !,"Enter additional vitamins/electrolytes using a ; to separate additives",!
  • Line Location: EDTSOL+1
Function Call: WRITE
  • Prompt: !,$P(Y(0),"^")_" "
  • Line Location: YN2+0
Function Call: WRITE
  • Prompt: !!,"Enter Y(es) or N(o) to confirm your entry is correct or not.",!
  • Condition for execution: %=0
  • Line Location: YN2+0
Function Call: WRITE
  • Prompt: !!,"There are no IVs in the database for this patient!",!
  • Line Location: SEARCH+1
Function Call: WRITE
  • Prompt: !!,"Select one of the following IV(s) to restart",!
  • Line Location: WRITE+0
Function Call: WRITE
  • Prompt: !,I_". "
  • Line Location: WRITE+0
Function Call: READ
  • Variable: I
  • Timeout: DTIME
  • Line Location: WRITE+1
Function Call: WRITE
  • Prompt: @IOF,!!,"Enter the number of the IV solution you want to restart",!
  • Line Location: WRITE+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: YN1+1
Function Call: WRITE
  • Prompt: !,?4,"started on "_$P(Y,":",1,2)
  • Line Location: WRT+0
Function Call: WRITE
  • Prompt: !,?4,"DC'd on "_$P(Y,":",1,2)_" "_$P(GMRXX(I),"^",9)_" ml left",!,?4,"DC reason: "_$P(GMRXX(I),"^",8)
  • Line Location: WRT+1
Function Call: WRITE
  • Prompt: !!,"Undefined value in the record.",!!
  • Line Location: ASK2+9
Routine Call
  • DIE
  • Line Location:
    • ASK2+9

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" WRT, WRT+1
^GMR(126 - [#126] SEARCH+1, SEARCH+2, SCREEN, SAVE, SAVE+1, ASK2+4, ASK2+9, ASK2+10*

Label References

Name Line Occurrences
ASK ASK
ASK2 ASK2
EDTSOL YN2+1
OTHRSOL OTHRSOL+2, YN+1
RESET SET+1
SAVE SCREEN
SCREEN SEARCH+2
SEARCH RESTART+1
SET YN1
WRITE RESTART+5, WRITE+2, YN1+1
WRT WRITE
YN YN
YN2 YN2

Naked Globals

Name Field # of Occurrence
^(0 SAVE+1, ASK2+9
^(1 ASK2+10*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % YN*, YN+1, YN2*, YN2+1, RESTART+1
>> DA ASK2+6*, ASK2+9, ASK2+10
>> DA(1 ASK2+4*, ASK2+7, ASK2+9
DD ASK2+4!
>> DFN SEARCH+1, SEARCH+2, SCREEN, SAVE, SAVE+1, ASK2+1, ASK2+4, ASK2+9, ASK2+10
DIC ASK2+4*!
DIC(0 ASK2+4*
DIE ASK2+7*, ASK2+8!, ASK2+9!
DLAYGO ASK2+4*!
DR ASK2+7*, ASK2+8!, ASK2+9!
DTIME OTHRSOL+1, WRITE+1
GCATH YN1+2!, ASK2+2*
GCATH(1 ASK2+2*
>> GDA SCREEN*, SAVE, SAVE+1, SAVE+2
>> GDA(1 SAVE+1*
>> GDATA SAVE*, SAVE+2, SET*, SET+1
GDC SAVE*, SAVE+2, YN1+2!
>> GDR RESTART+1*, YN1+1*, ASK2, ASK2+7
>> GDT RESTART+1*, SEARCH+2
>> GDT(1 RESTART+1*
GHLOC YN1+2!, SET*
>> GIVDT SEARCH+2*, SCREEN
>> GLINE ASK2+10*
>> GMRHLOC SET
>> GMROUT OTHRSOL+1*, YN+1*, EDTSOL+1, YN2+1*, RESTART+1, RESTART+4*, RESTART+5, SEARCH+1*, WRITE, WRITE+1*
, ASK, ASK2*, ASK2+1, ASK2+4, ASK2+5*, ASK2+8, ASK2+9*
>> GMROUT(1 ASK2+1*
>> GMRVTYP SET*, ASK2+4, ASK2+6*
>> GMRX ASK*
GMRXX RESTART+1!*, RESTART+2, SAVE+2*, WRITE, YN1+1, YN1+2!, SET*, SET+1, RESET+2!*
GMRXX( SAVE+2*, WRT, WRT+1, SET!, RESET+1, RESET+2*
GMRYY YN1+2!, RESET+1!*, RESET+2
GMRYY( RESET+1*, RESET+2
>> GMRZ SET*
>> GMRZ(1 SET*
>> GMRZ(2 SET*, SET+1*
>> GMRZ(3 SET*
GNOW RESTART+1*, SAVE, YN1+2!
GREASON SAVE+2*, YN1+2!
>> GSAVE SET+1*, ASK2+4*, ASK2+6
>> GSAVE(1 SET*, ASK2+10
GSDC YN1+2!
>> GSITE ASK2+2*
GTIME RESTART+6!, WRT+1*, ASK2
GVOL SAVE+1*, SAVE+2, YN1+2!
GX YN1+2!, ASK2, ASK2+1, ASK2+4, ASK2+10
I WRITE*, WRITE+1*, WRITE+2, WRITE+3*, YN1+2!, WRT, WRT+1, SET
II YN1+2!, RESET+1*, RESET+2*
IOF WRITE+2, YN1+1
>> X OTHRSOL+1*, OTHRSOL+2, YN, RESTART+1, ASK2+4*
>> X1 RESTART+1*
>> X2 RESTART+1*
>> Y WRT*, WRT+1*, ASK2+5, ASK2+6
>> Y(0 YN*, EDTSOL+1*, YN2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All