Routine: TIUGEDIT

Call Graph

Call Graph Total: 25

Package	Total	Call Graph
Text Integration Utility	22	SEND^TIUALRT UPDTIRT^TIUDIRT ($$GETTMPL,$$GETVMETH)^TIUEDI1 $$GETEXIT^TIUEDI2 $$CREATREC^TIUEDI3 DIE^TIUEDI4 DELETE^TIUEDIT PRINT^TIUEPRNT $$GETRECG^TIUGEDI1 LINK^TIUGR2 DOCSPICK^TIULA2 ($$COMMIT,$$PNAME,$$SUPPVSIT,DOCPRM)^TIULC1 GETTIU^TIULD $$EMPTYDOC^TIULF $$CANDO^TIULP QUE^TIUPXAP1 UPIDDATA^TIURL1 EDSIG^TIURS EVENT^TIUSRVP1 (RELEASE,VERIFY)^TIUT $$READ^TIUU DEFER^TIUVSIT
VA Fileman	2	^DIC ^DIE
Registration	1	(CLEAR,FULL)^VALM1

Package	Total	Caller Graph
Text Integration Utility	2	TIUGR TIUGR1

Package

Total

Caller Graph

Text Integration Utility

TIUGR TIUGR1

Entry Points

Name	Comments	DBIA/ICR reference
ADDDAD(DADDA,ADDED)	; Create new ID entry and link it to note DADDA ; Assumes DADDA can receive ID entries. ; Requires DADDA = parent note ; Requires DADLINE = parent note line number ; Returns ADDED > 0 if new note added (may not be linked), otherwise = 0
TITLE	; -- Get title. Limit titles to those user can link, at least
VISIT	; -- Get visit (use same visit as first entry unless visit
TRYLINK(DA,DADDA,TIUDAD)	; Check specific docmt now that we know
VALID	; -- Validate, i.e. ask user if OK: --
DIE(DA,TIUQUIT)	; Invoke ^DIE
ADDDAD1(DADDA,DA)	; Enter one new ID Document and link it to DADDA ; Call with: ; [DADDA] --> IFN of note new note will be added to, ; i.e. parent note. Required. ; [DA] --> IFN of new note or 0 if not created. Passed back.
ADDSTUB(DADDA)	; Prompt user for new stub ID entries for parent DADDA

External References

Name	Field # of Occurrence
^DIC	ADDSTUB+9
^DIE	DIE+5, DIE+6
SEND^TIUALRT	DIE+7
UPDTIRT^TIUDIRT	DIE+7
$$GETTMPL^TIUEDI1	DIE+3
$$GETVMETH^TIUEDI1	VALID+1
$$GETEXIT^TIUEDI2	VALID+42
$$CREATREC^TIUEDI3	ADDSTUB+24
DIE^TIUEDI4	VALID+25
DELETE^TIUEDIT	VALID+27
PRINT^TIUEPRNT	VALID+46
$$GETRECG^TIUGEDI1	VALID+18
LINK^TIUGR2	ADDSTUB+27, VALID+38, TRYLINK+12
DOCSPICK^TIULA2	ADDSTUB+15, TITLE+3
$$COMMIT^TIULC1	VALID+32
$$PNAME^TIULC1	DIE+4, ADDDAD+8, VALID+4
$$SUPPVSIT^TIULC1	VISIT+2
DOCPRM^TIULC1	ADDSTUB+22, VALID+14
GETTIU^TIULD	ADDSTUB+14, ADDDAD1+10
$$EMPTYDOC^TIULF	VALID+27
$$CANDO^TIULP	TRYLINK+6
QUE^TIUPXAP1	VALID+31
UPIDDATA^TIURL1	ADDDAD+19
EDSIG^TIURS	VALID+40
EVENT^TIUSRVP1	VISIT+3
RELEASE^TIUT	VALID+34
VERIFY^TIUT	VALID+35
$$READ^TIUU	ADDDAD+10, ADDDAD+15, TRYLINK+9
DEFER^TIUVSIT	VALID+30
CLEAR^VALM1	ADDDAD+16
FULL^VALM1	ADDDAD+17

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?5,$C(7),"No Edit template defined for ",$$PNAME^TIULC1(+$P(^TIU(8925,+DA,0),U)),! Line Location: DIE+4
Function Call: WRITE	Prompt: !!," If you wish you may add stub interdisciplinary entries for this note:",! Line Location: ADDSTUB+4
Function Call: WRITE	Prompt: !," Stub entry added",!! Line Location: ADDSTUB+28
Function Call: WRITE	Prompt: !!,"This note appears to be an interdisciplinary parent. Please select" Line Location: ADDDAD+12
Function Call: WRITE	Prompt: !,"the note you want to attach to this note FIRST, or check with IRM" Line Location: ADDDAD+13
Function Call: WRITE	Prompt: !,"or your clinical coordinator." Line Location: ADDDAD+14
Function Call: WRITE	Prompt: !!,"Adding a new interdisciplinary entry to",!,TITLE Line Location: ADDDAD+16
Function Call: WRITE	Prompt: !!,"Please select a title for your entry:" Line Location: TITLE+2
Function Call: WRITE	Prompt: !,$C(7),"No Validation Method defined for " Line Location: VALID+3
Function Call: WRITE	Prompt: $$PNAME^TIULC1(TIUTYP),".",!,"Please contact IRM..." Line Location: VALID+4
Function Call: WRITE	Prompt: !,$C(7),"Patient & Visit required." Line Location: VALID+10
Function Call: WRITE	Prompt: !,"Document not attached" Line Location: VALID+28
Function Call: WRITE	Prompt: !!,$P(CANLINK,U,2),!," Entry saved as a stand-alone note. Please attach it later if you are",!," authorized to do so." Line Location: TRYLINK+8
Function Call: WRITE	Prompt: !!,"Entry added to ",$P(TIUDAD("DOCTYP"),U,2) Line Location: TRYLINK+13
Routine Call	DIE Line Location: DIE+5 DIE+6
Routine Call	DIC Line Location: ADDSTUB+9

Name	Line Occurrences (* Changed, ! Killed)
^TIU(8925 - [#8925]	DIE+2*, DIE+3, DIE+4, DIE+8, ADDSTUB+3, ADDDAD+7, ADDDAD1+11, VALID+26
^TMP("TIUR"	ADDDAD+19

Name	Line Occurrences
ADDDAD1	ADDDAD+18
DIE	ADDSTUB+26
TRYLINK	VALID+22

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADDED	ADDDAD~, ADDDAD+6, ADDDAD+19
ADDING	ADDDAD+5~, ADDDAD+10*, ADDDAD+11
CANLINK	TRYLINK+5~, TRYLINK+6*, TRYLINK+7, TRYLINK+8
CONTINUE	ADDDAD1+6~
DA	DIE~, DIE+2, DIE+3, DIE+4, DIE+7, DIE+8, ADDSTUB+1~, ADDSTUB+24, ADDSTUB+26, ADDSTUB+27 , ADDDAD1~, ADDDAD1+8, VALID+18, VALID+19, VALID+22, VALID+25, VALID+26, VALID+27, VALID+30, VALID+34 , VALID+35, VALID+38, VALID+40, VALID+43, VALID+46, TRYLINK~, TRYLINK+6, TRYLINK+12
DADDA	ADDSTUB~, ADDSTUB+3, ADDSTUB+14, ADDSTUB+27, ADDDAD~, ADDDAD+7, ADDDAD+18, ADDDAD+19, ADDDAD1~, ADDDAD1+10 , ADDDAD1+11, VALID+18, VALID+22, VALID+38, TRYLINK~, TRYLINK+12
DFN	ADDSTUB+1~, ADDSTUB+3, ADDSTUB+24, ADDDAD1+6~, ADDDAD1+11, VISIT+3, VALID+18
DIC	ADDSTUB+2~, ADDSTUB+7*
DIC("A"	ADDSTUB+7*
DIC("S"	ADDSTUB+8*
DIC(0	ADDSTUB+7*
DIE	DIE+1~, DIE+5, DIE+6
>> DIROUT	TRYLINK+10
DR	DIE+1~, DIE+3, DIE+4, DIE+6
>> DTOUT	TRYLINK+10
>> DUOUT	TRYLINK+10
DUZ	DIE+2
EDIT	ADDDAD1+6~, VALID+18, VALID+22, VALID+28
KIDDA	ADDDAD+5~, ADDDAD+18, ADDDAD+19
LINKTL	ADDDAD1+5~
STATUS	ADDDAD+5~, ADDDAD+8*, ADDDAD+9
TITLE	ADDDAD+5~, ADDDAD+8*, ADDDAD+16
TITLEDA	ADDDAD+5~, ADDDAD+8*
TIU	DIE+7, ADDSTUB+20, ADDSTUB+24, ADDDAD1+5~, ADDDAD1+6~, VISIT+3, VISIT+4, VALID+18
TIU("REFDT"	VALID+7!
TIU("STOP"	VALID+30
TIU("VSTR"	VALID+9
TIUASK	ADDDAD1+5~, VALID+12
TIUAUTH	ADDSTUB+1~, ADDSTUB+5, ADDSTUB+6!, ADDSTUB+12*
>> TIUCHNG("DELETE"	VALID+27*
TIUCMMTX	ADDDAD1+6~, VALID+32*, VALID+33
TIUD0	ADDDAD+5~, ADDDAD+7*, ADDDAD+8
TIUDAD	ADDSTUB+1~, ADDSTUB+14, ADDSTUB+20, ADDDAD1+5~, ADDDAD1+10, VISIT+4, VALID+22, TRYLINK~
TIUDAD("DOCTYP"	TRYLINK+13
TIUDAD("VSTR"	VISIT+3
TIUDPRM	ADDSTUB+1~, ADDSTUB+22, ADDDAD1+6~, VALID+14, VALID+18
TIUDPRM(0	VALID+30, VALID+46
TIUEXIT	ADDDAD1+6~, VALID+42*, VALID+43
TIULMETH	ADDDAD1+5~
TIUNEW	ADDDAD1+6~, VALID+18, VALID+22, VALID+27
TIUOUT	ADDDAD1+5~, TITLE+4, VALID+2
TIUPRMT	ADDSTUB+1~
TIUQUIT	DIE~, DIE+4, ADDSTUB+25~, ADDSTUB+26, ADDDAD1+7~, VALID+24~, VALID+25, VALID+28, TRYLINK+10
TIURTYP	ADDSTUB+1~
TIUTDA	ADDSTUB+25~, VALID+24~, VALID+43*
TIUTYP	ADDSTUB+1~, ADDSTUB+5, ADDSTUB+6!, ADDSTUB+15, ADDSTUB+17, ADDSTUB+18, ADDSTUB+22, ADDDAD1+6~, TITLE+3, TITLE+4 , TITLE+5, VISIT+2, VALID+1, VALID+4, VALID+14, VALID+18, VALID+32, VALID+42
TIUTYP(1	ADDSTUB+18, ADDSTUB+24, TITLE+5
TIUVMETH	ADDDAD1+5~, VALID+1*, VALID+2, VALID+8
TIUVSUPP	ADDDAD1+5~, VISIT+2*, VISIT+3
U	DIE+3, DIE+4, ADDSTUB+3, ADDSTUB+18, ADDDAD+8, ADDDAD1+11, TITLE+5, VALID+30, VALID+46, TRYLINK+8 , TRYLINK+13
>> VALMAR	VALID+27
>> VALMBCK	VALID+27*
>> VALMSG	VALID+19, VALID+38, TRYLINK+11, TRYLINK+14
X	ADDSTUB+2~
Y	DIE+1~, ADDSTUB+2~, ADDSTUB+11, ADDSTUB+12

Customize PDF page

Package: Text Integration Utility

Routine: TIUGEDIT

Information

Source Information

Call Graph

Call Graph Total: 25

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: