Routine: TIUPUTSX

Package	Total	Call Graph
Text Integration Utility	7	$$PATIENT^TIULA $$IDATE^TIULC ($$NAME,$$SSN)^TIULO ($$DATE,$$NAME)^TIULS (ALERTDEL,RESOLVE)^TIUPEVNT $$READ^TIUU FILE^TIUUPLD
VA FileMan	3	^DIC EN^DIQ EN^DIWE

Entry Points

Name	Comments	DBIA/ICR reference
LOOKUP	; Upload Lookup Method for Document Definition Operative Report ; -- Requires lookup variables TIUSRCN, TIUSSN, & TIUODT --
LOOKUPX
FIX	; Filing Error Resolution Code for Docmt Def Operative Report ; -- Called by MRT Review Filing Events option (FILERR^TIURE) ; if BUFDA exists; otherwise called from an alert ; (DISPLAY^TIUPEVNT). Warning: XQADATA may be left around ; from a PREVIOUS alert, so don't use it's existence to ; determine how this was called. -- ;
FIXEXIT	; ; -- Set variables to go to exit for DISPLAY^TIUPEVNT ; or FILERR^TIURE immediately upon return from this resolve ; code. (Everything they do after executing the resolve code ; has been incorporated INTO THIS CODE.)
RECDHELP	;Help for correct record prompt
FILEHELP	;Help for retrying the upload filer prompt

External References

Name	Field # of Occurrence
^DIC	FIX+15
EN^DIQ	FIX+19
EN^DIWE	FIX+51
$$PATIENT^TIULA	LOOKUP+36
$$IDATE^TIULC	LOOKUP+42
$$NAME^TIULO	FIX+32
$$SSN^TIULO	FIX+34
$$DATE^TIULS	FIX+36
$$NAME^TIULS	FIX+32
ALERTDEL^TIUPEVNT	FIX+60
RESOLVE^TIUPEVNT	FIX+60
$$READ^TIUU	FIX+20, FIX+41, FIX+52
FILE^TIUUPLD	FIX+60

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: FIX+13
Function Call: WRITE	Prompt: !,"OK, you can try again later" Line Location: FIX+15
Function Call: WRITE	Prompt: ! Line Location: FIX+19
Function Call: WRITE	Prompt: !,"OK, you can try again later" Line Location: FIX+21
Function Call: WRITE	Prompt: !!,"To file the transcribed Surgeon's Dictation into the Surgery record you have" Line Location: FIX+26
Function Call: WRITE	Prompt: !,"just selected, you will need to correct the upload data in its temporary" Line Location: FIX+27
Function Call: WRITE	Prompt: !,"storage place, and then try again to file it." Line Location: FIX+28
Function Call: WRITE	Prompt: !!,"The stored upload header data for ",$$NAME^TIULS($$NAME^TIULO(+TIUSR0),"LAST,FIRST MI") Line Location: FIX+32
Function Call: WRITE	Prompt: !,"should be corrected to read:" Line Location: FIX+33
Function Call: WRITE	Prompt: !!,"PATIENT SSN:",?20,$$SSN^TIULO(+TIUSR0) Line Location: FIX+34
Function Call: WRITE	Prompt: !,"CASE NUMBER:",?20,SURGDA Line Location: FIX+35
Function Call: WRITE	Prompt: !,"OPERATION DATE:",?20,$$DATE^TIULS($P($P(TIUSR0,U,9),".")),! Line Location: FIX+36
Function Call: WRITE	Prompt: !,"OK, you can try again later" Line Location: FIX+41
Function Call: WRITE	Prompt: !,"Can't find stored upload record; see IRM" Line Location: FIX+46
Function Call: WRITE	Prompt: !!,"You may now correct the stored upload data." Line Location: FIX+50
Function Call: WRITE	Prompt: !,"OK, you can try again later." Line Location: FIX+58
Function Call: WRITE	Prompt: !,"Old error marked resolved; new error created. New error may take several more",!,"seconds to file, and may not be within current date/time range.",! Line Location: FIX+61
Function Call: WRITE	Prompt: !,"Is this the Surgery record you wish to upload the transcribed data into?" Line Location: RECDHELP+1
Function Call: WRITE	Prompt: !,"If not, answer NO and select a different record, or enter '^' to come back",!,"and resolve the filing error later." Line Location: RECDHELP+2
Function Call: WRITE	Prompt: !,"If you are sure that you have identified the correct Surgery record, and have" Line Location: FILEHELP+1
Function Call: WRITE	Prompt: !,"corrected the stored header data accordingly, then answer YES to try again" Line Location: FILEHELP+2
Function Call: WRITE	Prompt: !,"to upload the data into the Surgery record." Line Location: FILEHELP+3
Function Call: WRITE	Prompt: !,"If you answer NO, the corrected data will remain in temporary storage," Line Location: FILEHELP+4
Function Call: WRITE	Prompt: !,"the filing error alert will remain in place, and you can attempt to resolve" Line Location: FILEHELP+5
Function Call: WRITE	Prompt: !,"the alert later." Line Location: FILEHELP+6
Routine Call	DIC Line Location: FIX+15

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^SRF - [#130]	LOOKUP+34, FIX+29

Label References

Name	Line Occurrences
FIXEXIT	FIX+23, FIX+41, FIX+46, FIX+58
LOOKUPX	LOOKUP+14, LOOKUP+16, LOOKUP+39, LOOKUP+42

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BUFDA	FIX+44, FIX+45, FIX+61
DA	FIX+12~, FIX+18*
DFN	LOOKUP+11~, LOOKUP+36*, LOOKUP+39
DIC	FIX+7~, FIX+12~, FIX+13, FIX+51
DIC("A"	FIX+14*
DIC(0	FIX+13*
DIQ	FIX+12~
DIQ(0	FIX+18*
>> DIRUT	FIX+21
DWPK	FIX+7~, FIX+51*
ECHO	FIX+8~, FIX+59*, FIX+60
>> ERRDA	FIX+44
EVNTDA	FIXEXIT+5!
RETRY	FIX+7~, FIX+52*, FIX+58
SURGDA	FIX+7~, FIX+18*, FIX+29, FIX+35
TIUBUF	FIX+7~, FIX+44, FIX+45, FIX+46, FIX+51, FIX+60
>> TIUDONE	FIX+61, FIXEXIT+5*
TIUERRDA	FIX+7~, FIX+44, FIX+45, FIX+46, FIX+47*, FIX+60
TIUHDR	LOOKUP+31!
>> TIUODT	LOOKUP+14, LOOKUP+42
TIUOK	FIX+7~, FIX+11, FIX+20*, FIX+23
TIUOUT	FIX+7~, FIX+11, FIX+15, FIX+21
TIUSR0	LOOKUP+11~, LOOKUP+34, LOOKUP+39, LOOKUP+42, FIX+8~, FIX+29, FIX+32, FIX+34, FIX+36
>> TIUSRCN	LOOKUP+14, LOOKUP+34, LOOKUP+45
>> TIUSSN	LOOKUP+14, LOOKUP+15*, LOOKUP+16, LOOKUP+36
U	LOOKUP+42, FIX+36
VA	FIX+31~
VADM	FIX+31~
VAERR	FIX+31~
X	FIX+7~, FIX+12~
>> XQADATA	FIX+45
Y	LOOKUP+14, LOOKUP+16, LOOKUP+39, LOOKUP+42, LOOKUP+45*, FIX+7~, FIX+12~, FIX+15, FIX+18

Customize PDF page

Package: Text Integration Utility

Routine: TIUPUTSX

Information

Source Information

Call Graph

Call Graph Total: 10

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: