Routine: TIUPUTSX

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Info
Source
Call Graph
Entry Points
External References
Interaction Calls
Global Variables Directly Accessed
Label References
Local Variables

Information

TIUPUTSX ; SLC/MAM - Uploading Op Reports to SURGERY file #130 ;11/15/01

Source Information

Source file <TIUPUTSX.m>

Call Graph

Call Graph Total: 10

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
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. -- ;
FILEHELP	;Help for retrying the upload filer prompt
RECDHELP	;Help for correct record prompt
LOOKUP	; Upload Lookup Method for Document Definition Operative Report ; -- Requires lookup variables TIUSRCN, TIUSSN, & TIUODT --
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.)

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

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

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

Local Variables

>>	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