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

Caller Graph Total: 1

Package	Total	Caller Graph
General Medical Record - IO	1	GMRYED3

Entry Points

Name	Comments	DBIA/ICR reference
WRITE
QDC
ECHO
WARN	;WARNING FOR ^ TO QUIT
QUES
DT
CHECK	;
DCIV	;REMOVE IV FROM IV SITE

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