Routine: TIUE246

Package	Total	Call Graph
Text Integration Utility	2	$$PNAME^TIULC1 $$READ^TIUU
Authorization Subscription	1	$$ISA^USRLM
Kernel	1	(BMES,MES)^XPDUTL
VA Fileman	1	FILE^DIE

Entry Points

Name	Comments	DBIA/ICR reference
REMOVE(TIUDA,TIUDCDA)	; Remove Title (TIUDA) from Document Class (TIUDCDA)
REMOVEDC(TIUDA)	; Remove Empty DC from its Parent Class
POS001(DIR)	; Set DIR("S") and DIR("B") for POS001.
ENV	; Environment Check
DELETEDC(TIUDA)	; Delete empty document class
FINDC()	; Find an ACTIVE candidate Progress Notes DC

External References

Name	Field # of Occurrence
FILE^DIE	REMOVE+4, REMOVE+16, DELETEDC+11, REMOVEDC+9
$$PNAME^TIULC1	REMOVE+24
$$READ^TIUU	ENV+11, ENV+22, REMOVE+25
$$ISA^USRLM	ENV+4
BMES^XPDUTL	REMOVE+7, REMOVE+13, REMOVE+19, DELETEDC+13, REMOVEDC+11
MES^XPDUTL	REMOVE+8, REMOVE+20, DELETEDC+14, REMOVEDC+12

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"You are not known to the system to be a Clinical Application Coordinator (CAC).",! Line Location: ENV+6
Function Call: WRITE	Prompt: !,"Before proceeding with installation of this patch, you need to either have a" Line Location: ENV+7
Function Call: WRITE	Prompt: !,"CAC present with you, or have consulted the CAC as to the Document Class under" Line Location: ENV+8
Function Call: WRITE	Prompt: !,"Progress Notes in which the new TBI/POLYTRAUMA REHABILITATION/REINTEGRATION" Line Location: ENV+9
Function Call: WRITE	Prompt: !,"PLAN OF CARE Title should be placed.",! Line Location: ENV+10
Function Call: WRITE	Prompt: !!,"Okay, no harm done...Hurry back with a CAC (or an answer!)" Line Location: ENV+12
Function Call: WRITE	Prompt: !!,"The TBI/POLYTRAUMA REHABILITATION/REINTEGRATION PLAN OF CARE Title has already" Line Location: ENV+17
Function Call: WRITE	Prompt: !,"been installed on your system...",! Line Location: ENV+18
Function Call: WRITE	Prompt: !,"It currently descends from the ",$P($G(^TIU(8925.1,TIUDCDA,0)),U)," Document Class.",! Line Location: ENV+21
Function Call: WRITE	Prompt: !,"Document Class ",$$PNAME^TIULC1(TIUDCDA)," is now empty...",! Line Location: REMOVE+24
Function Call: WRITE	Prompt: !,"Document Class has descendent titles -- Can't DELETE." Line Location: DELETEDC+4
Routine Call	DIE Line Location: REMOVE+4 REMOVE+16 DELETEDC+11 REMOVEDC+9

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TIU(8925.1 - [#8925.1]	ENV+14, ENV+19, ENV+21, FINDC+2, FINDC+4, FINDC+5, REMOVE+11, REMOVE+13, REMOVE+19, REMOVE+22 , DELETEDC+3, DELETEDC+13, REMOVEDC+2, REMOVEDC+5, REMOVEDC+11

Label References

Name	Line Occurrences
$$FINDC	POS001+3
DELETEDC	REMOVE+26
REMOVE	ENV+26
REMOVEDC	DELETEDC+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DFLT	POS001+1~, POS001+3*, POS001+4
DIR	POS001~
DIR("B"	POS001+4*
DIR("S"	POS001+2*
DUZ	ENV+4
ERR	REMOVE+1~, REMOVE+6, REMOVE+18, DELETEDC+1~, DELETEDC+12, REMOVEDC+4~, REMOVEDC+10
ERR("DIERR"	REMOVE+8, REMOVE+20, DELETEDC+14, REMOVEDC+12
FDA	REMOVE+1~, REMOVE+10!, DELETEDC+1~, REMOVEDC+4~
FDA(	REMOVE+3, REMOVE+15, DELETEDC+9, DELETEDC+10, REMOVEDC+8*
FLAGS	REMOVE+1~, REMOVE+3, REMOVE+4, REMOVE+15, REMOVE+16, DELETEDC+1~, DELETEDC+10*, DELETEDC+11
IENS	REMOVE+1~, REMOVE+2, REMOVE+3, REMOVE+14, REMOVE+15, DELETEDC+1~, DELETEDC+8, DELETEDC+9, DELETEDC+10, REMOVEDC+4~ , REMOVEDC+7, REMOVEDC+8
TIUA	FINDC+1~
TIUA(	FINDC+8*
TIUA(1	FINDC+9
TIUC	FINDC+1~, FINDC+8, FINDC+9
TIUD0	FINDC+3~, FINDC+5*, FINDC+6, FINDC+7
TIUDA	ENV+1~, ENV+14, ENV+15, ENV+19, ENV+26, FINDC+3~, FINDC+4, FINDC+5, REMOVE~, REMOVE+2 , REMOVE+11, REMOVE+13, DELETEDC~, DELETEDC+3, DELETEDC+6, DELETEDC+8, DELETEDC+13, REMOVEDC~, REMOVEDC+2, REMOVEDC+5 , REMOVEDC+11
TIUDADA	DELETEDC+1~, REMOVEDC+1~, REMOVEDC+2*, REMOVEDC+3, REMOVEDC+5, REMOVEDC+7, REMOVEDC+11
TIUDCDA	ENV+16~, ENV+19*, ENV+20, ENV+21, ENV+26, REMOVE~, REMOVE+11, REMOVE+13, REMOVE+14, REMOVE+19 , REMOVE+22, REMOVE+24, REMOVE+26
TIUFPRIV	ENV+16~, REMOVE+1~, REMOVE+2, DELETEDC+1~, DELETEDC+2, REMOVEDC+4~
TIUFWHO	ENV+16~, REMOVE+1~, REMOVE+2, DELETEDC+1~, DELETEDC+2, REMOVEDC+4~
TIUI	FINDC+1~, FINDC+2, FINDC+4
TIUKIDA	REMOVEDC+4~, REMOVEDC+5*, REMOVEDC+6, REMOVEDC+7
TIUNM	FINDC+3~, FINDC+7*, FINDC+8
TIUST	FINDC+3~, FINDC+6*
TIUTDA	REMOVE+1~, REMOVE+11*, REMOVE+12, REMOVE+14
TIUY	ENV+5~, ENV+11, ENV+12, ENV+16~, ENV+22, ENV+24, FINDC+1~, FINDC+9, FINDC+10, REMOVE+23~ , REMOVE+25*, REMOVE+26
U	ENV+21, FINDC+6, FINDC+7, REMOVE+13, REMOVE+19, DELETEDC+13, REMOVEDC+11
>> XPDABORT	ENV+4, ENV+12*
>> XPDENV	ENV+3
>> XPDQUIT	ENV+24*

Customize PDF page

Package: Text Integration Utility

Routine: TIUE246

Information

Source Information

Call Graph

Call Graph Total: 5

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: