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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: TIUP113

Package: Text Integration Utility

Routine: TIUP113


Information

TIUP113 ; SLC/JAK - Post-Install for TIU*1*113 ;12/01/03

Source Information

Source file <TIUP113.m>

Entry Points

Name Comments DBIA/ICR reference
BUILD ; -- Rebuild SEARCH CATEGORIES so DIVISION is selectable
MAIN ; -- Control unit
SETDIV ; -- Automatically set division for documents
SETCHKQ ; Send bulletin and re-set check point
SETEX(TIUDA,TIUEX) ; -- Load ^XTMP with exception entries
; Input -- TIUDA TIU Document file (#8925) IEN
; TIUEX Exception types:
; 1=Cannot determine DIVISION from Hospital Location
; 2=Attempted to load DIVISION data but entry in use
; (value=1) (see SETRSLT for value=2)
SETRSLT(TIUDA,RESULT) ; -- Set DIVISION data and ADIV x-ref
; Input -- TIUDA TIU Document file (#8925) IEN
; RESULT Institution file (#4) IEN
UPDATE ; -- Exception entries
TWOA ; -- Load entries with selection
; Input -- RESULT Institution file (#4) IEN
THREEB(TIUS) ; -- Try to load locked entries
; Input -- TIUS Choice 3
NOEX(TIUS,TIUJ) ; -- No exceptions
; Input -- TIUS Choice 2 or 3
; -- TIUJ Exception entry types A (1) or B (2)
DEVICE ; -- Device Selection
PRINT ; -- Print job
ASK ; -- End of Page
HDR ; -- Header
EXHDR ; -- Exception entry headers
EXIT ; -- Exits here if ^ at: DEVICE prompt,
; -- two UPDATE areas, or at End of Page

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"PATCH TIU*1*113"
  • Line Location: MAIN+2
Function Call: WRITE
  • Prompt: !!,"Load the DIVISION field for TIU DOCUMENT file (#8925) entries.",!
  • Line Location: MAIN+3
Function Call: WRITE
  • Prompt: !!,"A task has been queued in the background and a bulletin will be sent"
  • Line Location: MAIN+8
Function Call: WRITE
  • Prompt: !,"to you upon completion of the task or if the task is stopped."
  • Line Location: MAIN+9
Function Call: WRITE
  • Prompt: !!,"The task number is "_$G(ZTSK)_"."
  • Line Location: MAIN+10
Function Call: WRITE
  • Prompt: !,"If you did not receive a mail message which indicated the post-"
  • Line Location: UPDATE+1
Function Call: WRITE
  • Prompt: !,"install COMPLETED, you must invoke MAIN^TIUP113 from Programmer"
  • Line Location: UPDATE+2
Function Call: WRITE
  • Prompt: !,"mode before following the instructions below.",!
  • Line Location: UPDATE+3
Function Call: WRITE
  • Prompt: !!,"A task has been queued in the background for Choice 2."
  • Line Location: UPDATE+35
Function Call: WRITE
  • Prompt: !,"The task number is "_$G(ZTSK)_"."
  • Line Location: UPDATE+36
Function Call: WRITE
  • Prompt: !!,"...Choice 3 - UPDATING NOW....",!!
  • Line Location: THREEB+3
Function Call: WRITE
  • Prompt: !,"Choice: ",TIUS,"-type ",$S(TIUJ=2:"B",1:"A")
  • Line Location: NOEX+5
Function Call: WRITE
  • Prompt: " has no exceptions."
  • Line Location: NOEX+6
Function Call: WRITE
  • Prompt: !!
  • Line Location: DEVICE+5
Function Call: WRITE
  • Prompt: !,$S($D(ZTSK):"Request queued",1:"Request Cancelled!")
  • Line Location: DEVICE+9
Function Call: WRITE
  • Prompt: !!,$P($T(EXHDR+TIUS),";",3)
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: !?4,"No exceptions."
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: !!,$P($T(EXHDR+TIUS),";",3)
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: !?4,TIUDA
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: " ",$P($G(^TIU(8925.6,+TIUST,0)),U)
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: ": ",$$GET1^DIQ(4,TIUIFP,.01)
  • Line Location: PRINT+14
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: @IOF,"TIU*1*113 POST-INSTALL EXCEPTION LIST - Printed: ",TIUNOW
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !!,"Listed below are TIU DOCUMENT entry numbers that did not get "
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: "DIVISION data",!,"loaded. If a division name is listed with an "
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: "entry number, the record was",!,"in use and the division data "
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: "could not be loaded."
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: LNE
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: $C(7),$C(7),!!,"OK...please remember to finish the post-install "
  • Line Location: EXIT+3
Function Call: WRITE
  • Prompt: "by: >D UPDATE^TIUP113"
  • Line Location: EXIT+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] GET1^DIQ
^TIU(8925 - [#8925] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call