Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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

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
Info |  Source |  Entry Points |  Interaction Calls