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

Package: General Medical Record - IO

Routine: GMRYDCIV


Information

GMRYDCIV ;HIRMFO/YH-DISCONTINUE IV LINES AND INFUSION SITE ;8/15/96

Source Information

Source file <GMRYDCIV.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
General Medical Record - IO 4 (REMOVE,STCARE)^GMRYED6  (SEL1,SELSITE,WRITE)^GMRYMNT  RESTART^GMRYUT10  DCREASON^GMRYUT11  
VA FileMan 4 ^%DT  NOW^%DTC  YN^DICN  D^DIQ  
Kernel 1 $$UP^XLFSTR  

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
DCIV ;REMOVE IV FROM IV SITE
DT
QUES
QDC
ECHO
CHECK ;
WARN ;WARNING FOR ^ TO QUIT
WRITE

External References

Name Field # of Occurrence
^%DT DT
NOW^%DTC DT
YN^DICN QUES
D^DIQ ECHO
REMOVE^GMRYED6 DT+4
STCARE^GMRYED6 DT+6
SEL1^GMRYMNT DCIV+1
SELSITE^GMRYMNT DCIV+1
WRITE^GMRYMNT CHECK+3
RESTART^GMRYUT10 QUES
DCREASON^GMRYUT11 DT+2
$$UP^XLFSTR DT+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!!,"*** DC IV/LOCK/PORT AND SITE ***",!
  • Line Location: DCIV+1
Function Call: WRITE
  • Prompt: !!,"IV DC'ed date/time has to be after "_$P(Y,":",1,2),!
  • Line Location: DT+0
Function Call: WRITE
  • Prompt: !,"NO FUTURE DATE ALLOWED",!
  • Line Location: DT+1
Function Call: WRITE
  • Prompt: !,"Do you want to restart the DC'd IV "
  • Line Location: QUES+0
Function Call: WRITE
  • Prompt: !!,"Do you want to proceed to the Restart DC'd IV option?",!
  • Condition for execution: %=0
  • Line Location: QUES+0
Function Call: WRITE
  • Prompt: !
  • Line Location: ECHO+0
Function Call: WRITE
  • Prompt: $P(GDATA,"^",3)_" "_$P(GDATA,"^",4)_" "_$P(GDATA,"^",5)_" mls "
  • Line Location: ECHO+1
Function Call: WRITE
  • Prompt: "LOCK/PORT"
  • Line Location: ECHO+2
Function Call: WRITE
  • Prompt: " started on "_$P(Y,":",1,2)_" DC'ED"
  • Line Location: ECHO+3
Function Call: WRITE
  • Prompt: !!,GSITE
  • Line Location: CHECK+1
Function Call: WRITE
  • Prompt: !!,"Infusion site has not been discontinued",!
  • Line Location: WARN+1
Function Call: WRITE
  • Prompt: !!,?5,"is(are) still running",!
  • Line Location: WARN+3
Function Call: WRITE
  • Prompt: !,?5,$P(^GMR(126,DFN,"IV",G,0),"^",3)_" ("_$P(^(0),"^",4)_") "_$P(^(0),"^",5)_" mls started on "
  • Line Location: WRITE+0
Function Call: WRITE
  • Prompt: $P(Y,":",1,2)
  • Line Location: WRITE+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" DT, WRITE
^GMR(126 - [#126] DT+4, ECHO, WRITE

Label References

Name Line Occurrences
CHECK DCIV+1
DT DT, DT+1
QDC DCIV+1, DT, DT+2, DT+6
QUES QUES
WARN DT+4
WRITE WARN+1, WARN+2

Naked Globals

Name Field # of Occurrence
^(0 DT+4, WRITE

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % DT, QUES*
%DT DT*!
%DT("A" DT*
%DT("B" DT*
>> DA DT+4*
>> DA(1 DT+3*, DT+4
>> DFN DT+3, ECHO, WRITE
G DT+3*, QDC!, WARN+2*, WRITE
G(1 DT+3*, DT+4
>> GADD DCIV+1*
GCT QDC!
>> GDA DT+7*, CHECK+1*, CHECK+2, CHECK+3
>> GDA(1 DT+7*, CHECK+3*
GDATA QDC!, ECHO*, ECHO+1, CHECK+3*
GDCDA DCIV+1*, QDC!, ECHO
>> GDCDT DT*, DT+1
>> GDCIV DCIV+1*
>> GDCREAS DT+7
>> GMROUT DCIV+1*, DT+2, DT+3, DT+4, DT+6, QDC*, WARN+1
GMRX QDC!
>> GMRXY DCIV+1
>> GMRZ DT+4*
>> GMRZ(1 DT+4*
>> GMRZ(2 DT+4*
>> GMRZ(3 DT+4*
>> GNOW DT*, DT+1
>> GOPT QUES*
>> GSITE DT+3, DT+7, CHECK+1, CHECK+3, WARN+2
GST QDC!
GST( DT+3, DT+7, CHECK+1, CHECK+3, WARN+2
GSTART DT, DT+3!, CHECK+1*
GYES DT+7*, QUES, QDC!
IOF DCIV+1
>> X DCIV+1
>> Y DT*, ECHO*, ECHO+3, WRITE*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All