Routine: TIUCNSLT

Package	Total	Call Graph
Text Integration Utility	4	$$CLASS^TIUCNSLT ($$DELETE,$$HASADDEN,$$ISADDNDM)^TIULC1 $$ISA^TIULX $$READ^TIUU
Consult Request Tracking	2	(GET,SEND)^GMRCTIU ROLLBACK^GMRCTIU1
Authorization Subscription	1	$$ISA^USRLM
VA FileMan	1	^DIE

Package	Total	Caller Graph
Text Integration Utility	27	TIU IS THIS A CONSULT? TIU144 TIUCCRHL7P2 TIUCNFIX TIUCNSLT TIUCPCL TIUHL7U2 TIULA4 TIULC1 TIULD TIULP TIUP134 TIUPNFIX TIUPUTCN TIUPUTPN TIURA3 TIURB TIURB2 TIURS TIURS1 TIUSRVA TIUSRVD TIUSRVLV TIUSRVP TIUSRVPT TIUSRVR ^TIU(8925.1
Imaging	4	MAGGNTI MAGGNTI1 MAGGNTI2 MAGGSIU1
Enterprise Health Management Platform	2	HMPDJ08 HMPDTIU
Mental Health	2	YTQCONS YTQRQAD3
Virtual Patient Record	2	VPRDJ08 VPRDTIU

Entry Points

Name	Comments	DBIA/ICR reference
GETCNSLT(DFN,TIUCPF,TIUDA,TIUOVR)	; Match consult result
AGN	; Loop for handling repeated attempts
GETX
BREAK	; Handle prompting
DADCR(DA)	; Get the Consult request associated with the parent record
WRITE
POST(TIUDA,STATUS)	; Post status updates to Consult Tracking
ISCNSLT(TIUY,TITLE)	; Boolean RPC to evaluate whether TITLE is a CONSULT
CHANGE(TIUDA,TIUCPF,TIUNOCS)	; Re-direct the TIU Document to a different CT Record ; Passes back TIUNOCS=-1 if pt has no requests or none is selected
CHAGN
RETREAT(DA,TIUD14)	; If Pt has no requests, retreat gracefully
UPDTADD(TIUDA,TIUCVP)	; Addenda for re-linked original are updated
ROLLBACK(TIUDA)	; Roll back CT Record when TIU changes require it
CLASS()	; What is the TIU Class (or Document Class) for CONSULTS
REMCNSLT(TIUDA)	;Remove link to consult if there is one ;*171
CONSCT(TIUDA,TIUOTTL,TIUNTTL)	;
CNSCTGUI(TIUDA,TIUOTTL,TIUNTTL)	;

External References

Name	Field # of Occurrence
^DIE	CHAGN+4, RETREAT+2, UPDTADD+8, UPDTADD+9, ROLLBACK+3
GET^GMRCTIU	POST+4
SEND^GMRCTIU	AGN+16
ROLLBACK^GMRCTIU1	ROLLBACK+2
$$CLASS^TIUCNSLT	CONSCT+5, CNSCTGUI+5
$$DELETE^TIULC1	REMCNSLT+4
$$HASADDEN^TIULC1	UPDTADD+2
$$ISADDNDM^TIULC1	AGN+12, UPDTADD+6
$$ISA^TIULX	ISCNSLT+4, CONSCT+6, CNSCTGUI+6
$$READ^TIUU	CONSCT+12
$$ISA^USRLM	AGN+15

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$C(7),"No CONSULT REQUESTS to Result for ",$P($G(^DPT(DFN,0)),U),".",! Line Location: AGN+19
Function Call: WRITE	Prompt: !,"You must link this Result to a Consult Request...",! Line Location: AGN+22
Function Call: WRITE	Prompt: !,"The following CONSULT REQUEST" Line Location: AGN+24
Function Call: WRITE	Prompt: $S(+TIUCNT>1:"(S) are",1:" is")," available:" Line Location: AGN+25
Function Call: WRITE	Prompt: " ",+TIUX Line Location: AGN+36
Function Call: WRITE	Prompt: !,"CHOOSE 1-",TIUII Line Location: BREAK+1
Function Call: WRITE	Prompt: !,"<RETURN> TO CONTINUE",!,"OR '^' TO QUIT" Condition for execution: $D(^TMP("GMRCR",$J,"TIU",TIUII+1,0)) Line Location: BREAK+1
Function Call: WRITE	Prompt: ": " Line Location: BREAK+1
Function Call: WRITE	Prompt: !!,$C(7),"INVALID RESPONSE",! Line Location: BREAK+4
Function Call: WRITE	Prompt: !,TIUX Line Location: WRITE+0
Function Call: WRITE	Prompt: ! Line Location: CHAGN+1
Function Call: WRITE	Prompt: !!,$C(7),"You must select a Consult Request...Restoring record." Line Location: CHAGN+2
Function Call: WRITE	Prompt: !,"The Title you selected is not a Consults Title." Line Location: CONSCT+7
Function Call: WRITE	Prompt: !," The note is currently linked to a Consults Request," Line Location: CONSCT+8
Function Call: WRITE	Prompt: !," but will be disassociated when the title is changed" Line Location: CONSCT+9
Function Call: WRITE	Prompt: !," to a non Consults Title.",! Line Location: CONSCT+10
Function Call: WRITE	Prompt: !,"Do you want to continue with this Change Title Action?" Line Location: CONSCT+11
Function Call: WRITE	Prompt: !,"Title not changed." Line Location: CONSCT+13
Routine Call	DIE Line Location: CHAGN+4 RETREAT+2 UPDTADD+8 UPDTADD+9 ROLLBACK+3

Used in RPC

RPC Name	Call Tags
TIU IS THIS A CONSULT?	ISCNSLT

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^TIU(8925 - [#8925]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	AGN+19
^TIU(8925 - [#8925]	AGN+8, AGN+11, DADCR+1, DADCR+2, POST+1, POST+3, CHANGE+3, UPDTADD+4, ROLLBACK+1, REMCNSLT+3
^TIU(8925.1 - [#8925.1]	CLASS+2, CLASS+3
^TMP("GMRCR"	AGN+18, AGN+20, AGN+27, AGN+28, AGN+34, BREAK+1, BREAK+2, BREAK+4

Label References

Name	Line Occurrences
$$CLASS	ISCNSLT+2
$$DADCR	AGN+12
$$GETCNSLT	CHAGN+1
AGN	AGN+23
BREAK	AGN+29, AGN+32, BREAK+4
GETX	AGN+3, AGN+11, AGN+12
POST	CHAGN+7, RETREAT+5
REMCNSLT	CONSCT+14, CNSCTGUI+8
RETREAT	CHAGN+3
ROLLBACK	CHANGE+6
UPDTADD	CHAGN+5
WRITE	AGN+29

Naked Globals

Name	Field # of Occurrence
^(0	CLASS+3
^(14	AGN+11, CHANGE+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	AGN+6, DADCR~, DADCR+1, POST+1~, CHANGE+2~, CHAGN, CHAGN+4, RETREAT~, UPDTADD+3~, UPDTADD+4* , UPDTADD+6, ROLLBACK+1~, ROLLBACK+3*
DFN	GETCNSLT~, AGN+2, AGN+8, AGN+16, AGN+19, CHANGE+2~, CHANGE+4*, CHANGE+5, CHAGN+1
DIE	CHANGE+2~, CHAGN+4, RETREAT+1~, RETREAT+2, UPDTADD+5~, UPDTADD+8, ROLLBACK+1~, ROLLBACK+3
DR	CHANGE+2~, CHAGN+4, RETREAT+1~, RETREAT+2, UPDTADD+5~, UPDTADD+7, ROLLBACK+1~, ROLLBACK+3
DTIME	BREAK+1
DUZ	AGN+15
GMRCDA	POST+1~, POST+2, POST+4, ROLLBACK+1~, ROLLBACK+2
GMRCO	AGN+3, CHANGE+2~, CHANGE+4, CHANGE+6!, CHAGN+6, RETREAT+1~, RETREAT+3*
GMRCSTAT	CHANGE+2~, CHAGN+6, CHAGN+7, RETREAT+1~, RETREAT+4, RETREAT+5
GMRCVP	CHANGE+2~, CHAGN+1*, CHAGN+2, CHAGN+3, CHAGN+5, CHAGN+6
GMRCY	CLASS+1~, CLASS+2, CLASS+3, CLASS+4
STATUS	POST~, POST+4
TITLE	ISCNSLT~, ISCNSLT+4
TIUAUTH	POST+1~, POST+3*, POST+4
TIUCLASS	ISCNSLT+1~, ISCNSLT+2, ISCNSLT+3, ISCNSLT+4, CONSCT+4~, CONSCT+5, CONSCT+6, CNSCTGUI+4~, CNSCTGUI+5*, CNSCTGUI+6
TIUCNT	AGN+1~, AGN+20, AGN+21, AGN+25
TIUCPF	GETCNSLT~, AGN+16, CHANGE~, CHAGN+1
TIUCVP	UPDTADD~
TIUD0	CHANGE+2~, CHANGE+3*, CHANGE+4, CHAGN+6, RETREAT+4
TIUD14	CHANGE+2~, CHANGE+3*, CHANGE+4, CHAGN+3, RETREAT~, RETREAT+3
TIUDA	GETCNSLT~, AGN+6, AGN+8, AGN+11, AGN+12, POST~, POST+1, POST+3, POST+4, CHANGE~ , CHANGE+3, CHANGE+6, CHAGN, CHAGN+3, CHAGN+4, CHAGN+5, CHAGN+7, RETREAT+5, UPDTADD~, UPDTADD+2 , UPDTADD+4, ROLLBACK~, ROLLBACK+1, ROLLBACK+2, ROLLBACK+3, REMCNSLT~, REMCNSLT+3, CONSCT~, CONSCT+14, CNSCTGUI~ , CNSCTGUI+8
TIUDADA	DADCR+1~*, DADCR+2
TIUDELX	REMCNSLT+2~, REMCNSLT+4*, REMCNSLT+5
TIUER	AGN+1~, AGN+23, AGN+26, AGN+27, AGN+31, AGN+33, BREAK+2
TIUI	AGN+1~, AGN+20, AGN+26, AGN+27*, AGN+28, AGN+29
TIUII	AGN+1~, AGN+28*, AGN+32, BREAK+1, BREAK+2
TIUNOCS	CHANGE~, CHAGN, CHAGN+3
TIUNTTL	CONSCT~, CONSCT+6, CNSCTGUI~, CNSCTGUI+6
TIUOK	AGN+1~, AGN+26, AGN+27, AGN+34, BREAK+5
TIUOTTL	CONSCT~, CONSCT+6, CNSCTGUI~, CNSCTGUI+6
TIUOUT	AGN+1~, AGN+2, AGN+23, AGN+30, AGN+31, AGN+32, AGN+33*
TIUOVR	GETCNSLT~, AGN+15*, AGN+16
>> TIUPOP	CHAGN+3*
>> TIUQUIT	CONSCT+12*, CONSCT+13
TIUTYPE	REMCNSLT+2~, REMCNSLT+3*, REMCNSLT+4
TIUX	AGN+1~, AGN+3, AGN+11, AGN+12, AGN+28, AGN+34*, AGN+36, GETX, WRITE
TIUY	AGN+1~, GETX, GETX+1, DADCR+1~, DADCR+2, DADCR+3, ISCNSLT~, ISCNSLT+3, ISCNSLT+4
U	AGN+8, AGN+11, AGN+19, DADCR+1, DADCR+2, POST+1, POST+3, CHANGE+4, CHAGN+6, RETREAT+3 , RETREAT+4, ROLLBACK+1, CLASS+3
X	AGN+1~, BREAK+1*, BREAK+2, BREAK+3, BREAK+4, BREAK+5

Customize PDF page

Package: Text Integration Utility

Routine: TIUCNSLT

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 37

Entry Points

External References

Interaction Calls

Used in RPC

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: