Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: TIUPUTSX

Package: Text Integration Utility

Routine: TIUPUTSX


Information

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

Source Information

Source file <TIUPUTSX.m>

Call Graph

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
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
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All