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

Package: General Medical Record - IO

Routine: GMRYINFS


Information

GMRYINFS ;HIRMFO/YH-ADJUST INFUSION RATE ;4/5/94

Source Information

Source file <GMRYINFS.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 4 ^%DT  NOW^%DTC  FILE^DICN  ^DIE  
General Medical Record - IO 3 (HELP,SEL)^GMRYED4  (LISTIV,WAIT)^GMRYUT0  $$ADM^GMRYUT12  

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

Package Total Caller Graph
General Medical Record - IO 1 GMRYED3  

Entry Points

Name Comments DBIA/ICR reference
INFUSE ;
DT
RATE
RATE1 ;
Q

External References

Name Field # of Occurrence
^%DT DT
NOW^%DTC DT+2
FILE^DICN RATE1+2
^DIE RATE1+3
HELP^GMRYED4 RATE, RATE+1
SEL^GMRYED4 INFUSE+2
LISTIV^GMRYUT0 INFUSE+2
WAIT^GMRYUT0 RATE1+3
$$ADM^GMRYUT12 DT+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!!,"*** ADJUST INFUSION RATE ***",!
  • Line Location: INFUSE+1
Function Call: WRITE
  • Prompt: " started on "_$P(Y,":",1,2),!
  • Line Location: INFUSE+4
Function Call: WRITE
  • Prompt: !,"The Date/Time has to be after the IV started",!
  • Line Location: DT+1
Function Call: WRITE
  • Prompt: !!,"NO FUTURE DATE/TIME!!!",!
  • Line Location: DT+2
Function Call: WRITE
  • Prompt: !!,"Rate was adjusted @"_$P(Y,":",1,2),!
  • Line Location: DT+6
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: RATE+0
Function Call: WRITE
  • Prompt: !,"Infusion rate(ml/hr)"_$S(GMRZ(3)=0:" UNKNOWN //",GMRZ(3)'="":" "_GMRZ(3)_" //",1:": ") S X="" R X:DTIME G:'$T!(X["^")
  • Line Location: RATE+0
Routine Call
  • DIE
  • Line Location:
    • RATE1+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" INFUSE+4, DT+6
^GMR(126 - [#126] INFUSE+3, DT+4, DT+5, RATE1+1, RATE1+3

Label References

Name Line Occurrences
DT DT+1, DT+2
Q INFUSE+2, DT, RATE, RATE1+2
RATE RATE, RATE+1

Naked Globals

Name Field # of Occurrence
^(0 DT+5, RATE1+1*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % DT+2
>> %DT DT*
>> %DT("A" DT*
>> %DT("B" DT*
>> DA INFUSE+2*, INFUSE+3, DT+4, DT+5, RATE1+1, RATE1+2*
>> DA(1 INFUSE+3, DT+4, DT+5, RATE1+1*, RATE1+2*, RATE1+3
>> DA(2 RATE1+1*, RATE1+2, RATE1+3
DD RATE1+2!
>> DFN INFUSE+2, DT+3, RATE1+3
DIC RATE1+2*!
DIC(0 RATE1+2*
DIE RATE1+3*!
DLAYGO RATE1+2*!
DR RATE1+2!, RATE1+3*!
DTIME RATE
GDA DT+4!*, DT+5*
GDA(1 DT+5*, DT+6
GDA(2 DT+5*, DT+6
GDA(3 DT+5*
>> GDATA INFUSE+3*, INFUSE+4, DT+1
>> GDT INFUSE+3*, INFUSE+4, DT+4*, DT+5, DT+6
>> GMRDC INFUSE+2*
>> GMROUT INFUSE+2*, DT*, DT+3, RATE1+2*
>> GMROUT(1 DT+3*
GMRVDT DT+2*, DT+3, RATE1+2, Q!
>> GMRZ(1 INFUSE+2
>> GMRZ(3 DT+6*, RATE, RATE+1, RATE1+1*
>> GSITE INFUSE+4*
GTYPE INFUSE+3*, INFUSE+4, Q!
IOF INFUSE+1
>> X RATE*, RATE+1*, RATE1+1, RATE1+2*
>> Y INFUSE+4*, DT, DT+1, DT+2, DT+6*, RATE1+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All