Routine: TIUPUTS

Package	Total	Call Graph
Text Integration Utility	14	(AUDIT,MERGTEXT)^TIUEDI1 $$PATIENT^TIULA ($$CHKSUM,$$IDATE,$$NOW)^TIULC ($$PERSNAME,$$POSTFILE,$$WHOCOSIG,$$WHOSIGNS)^TIULC1 GETTIU^TIULD ($$DATE,$$NAME)^TIULS $$ISA^TIULX (FILE,LOADTIUX,MAKEADD)^TIUPEFIX (ALERTDEL,RESOLVE)^TIUPEVNT BUFPURGE^TIUPUTC $$MAKEADD^TIUPUTU $$CLASS^TIUSROI RELEASE^TIUT $$READ^TIUU
VA FileMan	3	(,IX)^DIC FILE^DIE EN^DIQ
Kernel	1	$$NOW^XLFDT
Surgery	1	ONE^SROESTV

Package	Total	Caller Graph
Text Integration Utility	2	TIUHL7P3 ^TIU(8925.1

Entry Points

Name	Comments	DBIA/ICR reference
LOOKUP	; Look-up code used by router/filer ; Required: TIUSRCN, TIUSDA, TIUSSN, TIUODT
LOOKUPX
CANEDIT(DA)	; Check whether or not document is released
COPYDAD(DA,PARENT)	; copy fixed field data for addenda
FINDCASE(DFN,TIUODT)	; Find Surgical Case for Pt & Dt, if unique
GETSDA(TIUSRCN)	; Get Op Report for Case
CALLDIC(TIUX)	; Call ^DIC to get the IEN for the TIU DOCUMENT
FOLLOWUP(TIUDA)	; Post-filing code for Operation Reports
FIX	; Filing error resolution code for Operation Reports
FIXX
DICW(TIUDA)	; Write identifiers
DICS(TIUDA)	; Filter IX^DIC list

External References

Name	Field # of Occurrence
^DIC	CALLDIC+2
IX^DIC	FIX+16
FILE^DIE	COPYDAD+15, FOLLOWUP+7, FOLLOWUP+9
EN^DIQ	FIX+21
ONE^SROESTV	DICW+9
AUDIT^TIUEDI1	FOLLOWUP+11
MERGTEXT^TIUEDI1	FIX+41
$$PATIENT^TIULA	LOOKUP+6, FIX+7
$$CHKSUM^TIULC	FOLLOWUP+11
$$IDATE^TIULC	LOOKUP+8, LOOKUP+24, COPYDAD+12
$$NOW^TIULC	COPYDAD+10
$$PERSNAME^TIULC1	DICW+4
$$POSTFILE^TIULC1	FIX+42
$$WHOCOSIG^TIULC1	FOLLOWUP+6
$$WHOSIGNS^TIULC1	FOLLOWUP+5
GETTIU^TIULD	FOLLOWUP+3, FIX+40
$$DATE^TIULS	DICW+4
$$NAME^TIULS	DICW+4
$$ISA^TIULX	DICS+3, DICS+4
FILE^TIUPEFIX	FIX+39
LOADTIUX^TIUPEFIX	FIX+34
MAKEADD^TIUPEFIX	FIX+31
ALERTDEL^TIUPEVNT	FIXX
RESOLVE^TIUPEVNT	FIXX+1
BUFPURGE^TIUPUTC	FIXX+2
$$MAKEADD^TIUPUTU	LOOKUP+28
$$CLASS^TIUSROI	DICS+3, DICS+4
RELEASE^TIUT	FOLLOWUP+10
$$READ^TIUU	FIX+10, FIX+19, FIX+22
$$NOW^XLFDT	COPYDAD+13

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Time Out of O.R. has not yet been entered for Surgical Case #",TIUSRCN Line Location: LOOKUP+14
Function Call: WRITE	Prompt: !,"the Surgical Service must complete this step before the Operation" Line Location: LOOKUP+15
Function Call: WRITE	Prompt: !,"Report can be uploaded..." Line Location: LOOKUP+16
Function Call: WRITE	Prompt: !,"Existing document may not be edited...Creating Addendum." Line Location: LOOKUP+27
Function Call: WRITE	Prompt: !!,"Okay, no harm done...",! Line Location: FIX+9
Function Call: WRITE	Prompt: ! Line Location: FIX+13
Function Call: WRITE	Prompt: ! Line Location: FIX+21
Function Call: WRITE	Prompt: ! Line Location: FIX+22
Function Call: WRITE	Prompt: !!,"Existing document may not be edited...Creating Addendum.",! Line Location: FIX+30
Function Call: WRITE	Prompt: "Done." Line Location: FIXX+3
Function Call: WRITE	Prompt: ?35,"Dated: ",$$DATE^TIULS(+TIUD13,"MM/DD/CCYY@HR:MIN"),?62,"By: ",$E($$NAME^TIULS($$PERSNAME^TIULC1(+$P(TIUD12,U,2)),"LAST,FI MI"),1,13) Line Location: DICW+4
Function Call: WRITE	Prompt: !?11,"Case #: ",TIUD14," ",$P(@TIUPRNM@(TIUD14),U,2) Line Location: DICW+12
Routine Call	DIC Line Location: CALLDIC+2
Routine Call	DIC Line Location: FIX+16
Routine Call	DIE Line Location: COPYDAD+15 FOLLOWUP+7 FOLLOWUP+9

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^SRF - [#130]	LOOKUP+10, LOOKUP+13, LOOKUP+18, FINDCASE+3, GETSDA+1, GETSDA+2
^SRF("B"	FINDCASE+2
^TIU(8925 - [#8925]	LOOKUP+18, CANEDIT+1, COPYDAD+2, FOLLOWUP+8, FIX+18, FIX+28, FIX+36!, FIX+38*, FIX+41!, DICW+3 , DICS+2

Label References

Name	Line Occurrences
$$CALLDIC	LOOKUP+25
$$CANEDIT	LOOKUP+26, FIX+29
$$FINDCASE	LOOKUP+8
$$GETSDA	LOOKUP+10
COPYDAD	LOOKUP+29
FIXX	FIX+29
LOOKUPX	LOOKUP+3, LOOKUP+5, LOOKUP+7, LOOKUP+9, LOOKUP+11, LOOKUP+20, LOOKUP+22, LOOKUP+24

Naked Globals

Name	Field # of Occurrence
^(12	COPYDAD+2, FOLLOWUP+8, DICW+3
^(13	DICW+3
^(14	COPYDAD+2, DICW+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	FIX+6~
>> BUFDA	FIX+26
D	FIX+6~, FIX+12*
D0	FIX+6~
DA	CANEDIT~, CANEDIT+1, COPYDAD~, COPYDAD+3, CALLDIC+1~, FIX+6~, FIX+21*, FIX+23
DFN	LOOKUP+2~, LOOKUP+6*, LOOKUP+7, LOOKUP+8, LOOKUP+20, LOOKUP+22, FINDCASE~, FINDCASE+2
DIC	CALLDIC+1~, CALLDIC+2, FIX+6~, FIX+12
DIC("S"	FIX+15*
DIC("W"	FIX+14*
DIC(0	CALLDIC+2, FIX+12
>> DIROUT	FIX+5, FIX+24
DK	FIX+6~
DL	FIX+6~
DTOUT	FIX+2~, FIX+24
DUOUT	FIX+2~, FIX+5, FIX+24
DX	FIX+6~
>> ERRDA	FIXX+1
FDA	COPYDAD+1~, FOLLOWUP+1~
FDARR	COPYDAD+1~, COPYDAD+3, COPYDAD+4, COPYDAD+5, COPYDAD+6, COPYDAD+7, COPYDAD+8, COPYDAD+9, COPYDAD+10, COPYDAD+11 , COPYDAD+14, FOLLOWUP+1~, FOLLOWUP+2, FOLLOWUP+4, FOLLOWUP+5, FOLLOWUP+6, FOLLOWUP+9
FLAGS	COPYDAD+1~, COPYDAD+3, COPYDAD+15, FOLLOWUP+1~, FOLLOWUP+2, FOLLOWUP+7, FOLLOWUP+9
IENS	COPYDAD+1~, COPYDAD+3, FOLLOWUP+1~, FOLLOWUP+2
PARENT	COPYDAD~, COPYDAD+2, COPYDAD+6
S	FIX+6~
SRODT	LOOKUP+2~
SUCCESS	FIX+1~, FIX+32*, FIX+39
TIU	FOLLOWUP+1~, FOLLOWUP+3, FIX+2~, FIX+40, FIX+41
TIU("EDT"	FOLLOWUP+4
TIUADD	FIX+2~, FIX+31, FIX+32
TIUBUF	FIX+1~, FIX+26*, FIX+31, FIX+34, FIXX, FIXX+2
>> TIUCLASS	DICW+6
TIUCN	FINDCASE+1~, FINDCASE+2, FINDCASE+3, FINDCASE+6
TIUD0	LOOKUP+2~, LOOKUP+18, LOOKUP+22, COPYDAD+1~, COPYDAD+2, COPYDAD+4, COPYDAD+5, COPYDAD+6, FIX+1~, FIX+28* , DICW+2~, DICW+3, DICS+1~, DICS+2, DICS+3, DICS+4
TIUD12	COPYDAD+1~, COPYDAD+2, COPYDAD+11, DICW+2~, DICW+3, DICW+4
TIUD13	DICW+2~, DICW+3*, DICW+4
TIUD14	COPYDAD+1~, COPYDAD+2, COPYDAD+7, COPYDAD+8, DICW+2~, DICW+3, DICW+7*, DICW+8, DICW+9, DICW+10 , DICW+12
TIUDA	FOLLOWUP~, FOLLOWUP+2, FOLLOWUP+3, FOLLOWUP+5, FOLLOWUP+6, FOLLOWUP+8, FOLLOWUP+10, FOLLOWUP+11, FIX+1~, FIX+23* , FIX+24, FIX+28, FIX+29, FIX+31, FIX+36, FIX+38, FIX+39, FIX+40, FIX+41, FIX+43 , DICW~, DICW+3, DICS~, DICS+2
TIUDAD	LOOKUP+2~, LOOKUP+28*, LOOKUP+29
>> TIUDONE	FIXX+4*
TIUFPRIV	FIX+6~
>> TIUHDR(	LOOKUP+17!
>> TIUHDR(1405	LOOKUP+17!
TIUHIT	FINDCASE+1~, FINDCASE+5, FINDCASE+6, FINDCASE+7, FIX+1~, FIX+3, FIX+21
TIUMSG	COPYDAD+1~, FOLLOWUP+1~
TIUODT	LOOKUP+3, LOOKUP+8, LOOKUP+24, COPYDAD+12, FINDCASE~, FINDCASE+4
TIUOPDT	COPYDAD+1~, COPYDAD+12*, COPYDAD+13
TIUOUT	FIX+1~, FIX+5, FIX+11, FIX+20, FIX+22*, FIX+23
TIUPOP	FINDCASE+1~, FINDCASE+2, FINDCASE+5, FINDCASE+7
>> TIUPOST	FIX+42*, FIX+44
TIUPRM0	FIX+1~
TIUPRM1	FIX+1~
TIUPRNM	DICW+2~, DICW+9, DICW+10, DICW+12
TIURDT	COPYDAD+1~, COPYDAD+13*, COPYDAD+14
>> TIUREC("#"	FIX+43*
TIUS0	DICW+10~*, DICW+11
TIUSDA	LOOKUP+10*, LOOKUP+11, LOOKUP+18, LOOKUP+25, LOOKUPX!
TIUSR0	LOOKUP+2~, LOOKUP+18, LOOKUP+20, LOOKUP+24, FINDCASE+3~, FINDCASE+4
TIUSRCN	LOOKUP+8*, LOOKUP+9, LOOKUP+10, LOOKUP+13, LOOKUP+14, LOOKUP+18, LOOKUPX!, COPYDAD+9, GETSDA~, GETSDA+1 , GETSDA+2
>> TIUSSN	LOOKUP+3, LOOKUP+4*, LOOKUP+5, LOOKUP+6
TIUTYP	FIX+2~, FIX+28*, FIX+39, FIX+42
TIUX	CALLDIC~, CALLDIC+2, FIX+1~, FIX+34, FIX+39
TIUX(	FIX+36!, FIX+37!
TIUX("TEXT"	FIX+38!
TIUX(1205	FIX+37!
TIUX(1211	FIX+37!
TIUX(1405	FIX+37!
TIUY	FINDCASE+1~, FINDCASE+7, FINDCASE+8, GETSDA+1~, GETSDA+2, GETSDA+3, DICS+1~, DICS+3, DICS+4*, DICS+5
U	LOOKUP+22, LOOKUP+24, CANEDIT+1, COPYDAD+4, COPYDAD+5, COPYDAD+6, COPYDAD+7, COPYDAD+8, COPYDAD+11, FINDCASE+4 , GETSDA+1, GETSDA+2, FOLLOWUP+4, FOLLOWUP+8, DICW+4, DICW+7, DICW+12
VA	DICW+2~
VADM	DICW+2~
VAERR	DICW+2~
X	CALLDIC+1~, CALLDIC+2, FIX+6~, FIX+7, FIX+8, FIX+18, DICW+2~
>> XQADATA	FIX+26, FIXX+1
Y	LOOKUP+3, LOOKUP+5, LOOKUP+7, LOOKUP+9, LOOKUP+12, LOOKUP+20, LOOKUP+22, LOOKUP+24, LOOKUP+25, LOOKUP+26 , LOOKUP+28, LOOKUP+29, CALLDIC+1~, CALLDIC+3, FIX+6~, FIX+17, FIX+21, DICW+2~
>> ZTQUEUED	LOOKUP+13

Customize PDF page

Package: Text Integration Utility

Routine: TIUPUTS

Information

Source Information

Call Graph

Call Graph Total: 19

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: