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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All
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>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Kernel 5 (,HOME)^%ZIS  ^%ZISC  (,$$S)^%ZTLOAD  ($$FMADD,$$NOW)^XLFDT  MES^XPDUTL  
VA FileMan 4 NOW^%DTC  ^DIE  $$GET1^DIQ  ^DIR  
Text Integration Utility 2 KILL^TIUDD8  MAIL^TIUP113P  
Registration 1 $$SITE^VASITE  

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

External References

Name Field # of Occurrence
NOW^%DTC HDR+2
^%ZIS DEVICE+5
HOME^%ZIS DEVICE+11
^%ZISC DEVICE+12
^%ZTLOAD MAIN+6, UPDATE+33, DEVICE+9
$$S^%ZTLOAD SETDIV+20, TWOA+10
^DIE SETRSLT+8
$$GET1^DIQ PRINT+14
^DIR UPDATE+22, UPDATE+24, ASK+3
KILL^TIUDD8 BUILD+1
MAIL^TIUP113P SETCHKQ+5
$$SITE^VASITE SETDIV+36, UPDATE+25
$$FMADD^XLFDT SETDIV+8
$$NOW^XLFDT SETDIV+2, SETCHKQ+1, SETCHKQ+2
MES^XPDUTL DEVICE+4

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
Routine Call
  • DIE
  • Line Location:
    • SETRSLT+8
Routine Call
  • DIR
  • Line Location:
    • UPDATE+22
    • UPDATE+24
    • ASK+3
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+5
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+11

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] GET1^DIQ
^TIU(8925 - [#8925] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" HDR+2
^SC - [#44] SETDIV+34
^TIU(8925 - [#8925] SETDIV+14, SETDIV+23, SETDIV+25, SETDIV+29, SETDIV+33, SETDIV+35, SETRSLT+4, SETRSLT+9, THREEB+7, PRINT+10
^TIU(8925.1 - [#8925.1] SETDIV+27
^TIU(8925.6 - [#8925.6] PRINT+11
^XTMP("TIUP113" SETDIV+2*, SETDIV+4, SETDIV+5, SETDIV+8*, SETDIV+9*, SETDIV+10*, SETDIV+11!, SETDIV+17*, SETCHKQ+1*, SETCHKQ+2*
, SETCHKQ+3*, SETCHKQ+7*, SETEX+6*, SETEX+7*, SETRSLT+5*, SETRSLT+6*, TWOA+4, TWOA+6!, TWOA+13*, THREEB+4
, THREEB+5, THREEB+7!, THREEB+8*, NOEX+4, PRINT+6, PRINT+7, PRINT+13

Label References

Name Line Occurrences
ASK PRINT+4, PRINT+8
EXIT UPDATE+22, UPDATE+24, DEVICE+5
HDR PRINT+5, PRINT+8
NOEX UPDATE+28, THREEB+2
PRINT DEVICE+12
SETEX SETDIV+29, SETDIV+38
SETRSLT SETDIV+40, TWOA+5, THREEB+6
THREEB UPDATE+38

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % HDR+2
%ZIS DEVICE+5*, DEVICE+10!
DA SETRSLT+3~, SETRSLT+7*
DIE SETRSLT+3~, SETRSLT+7*
DIR UPDATE+4~, UPDATE+24~, ASK+2~
DIR("A" UPDATE+6*, UPDATE+7*, UPDATE+8*, UPDATE+9*, UPDATE+10*, UPDATE+11*, UPDATE+12*, UPDATE+13*, UPDATE+14*, UPDATE+15*
, UPDATE+16*, UPDATE+17*, UPDATE+18*, UPDATE+19*, UPDATE+20*, UPDATE+21*
DIR(0 UPDATE+22*, UPDATE+24*, ASK+2*
DIRUT UPDATE+4~, UPDATE+22, UPDATE+24
DR SETRSLT+3~, SETRSLT+7*
DT SETDIV+8
DTOUT UPDATE+4~, ASK+3
DUOUT UPDATE+4~, ASK+3
IO DEVICE+12, ASK+1
IO("Q" DEVICE+6
IO(0 ASK+1
IOF HDR+3
IOM HDR+8
IOSL PRINT+8
IOST ASK+1
LNE HDR+1~, HDR+8*
POP DEVICE+5!
RESULT SETDIV+31~, SETDIV+36*, SETDIV+40, SETRSLT~, SETRSLT+5, UPDATE+5~, UPDATE+25*, TWOA+5, THREEB+2~, THREEB+5*
, THREEB+6
TIUCHC UPDATE+5~, UPDATE+22*, UPDATE+23, UPDATE+24, UPDATE+26, UPDATE+27
TIUCNT SETDIV+1~, SETDIV+15*, SETDIV+19, SETDIV+21*, TWOA+2~, TWOA+7*, TWOA+9, TWOA+11*
TIUDA SETDIV+1~, SETDIV+5*, SETDIV+10*, SETDIV+14*, SETDIV+17, SETDIV+23, SETDIV+25, SETDIV+29, SETDIV+33, SETDIV+35
, SETDIV+38, SETDIV+40, SETEX~, SETEX+6, SETRSLT~, SETRSLT+4, SETRSLT+5, SETRSLT+7, SETRSLT+9, UPDATE+5~
, TWOA+3*, TWOA+4*, TWOA+5, TWOA+6, THREEB+2*, THREEB+4*, THREEB+5, THREEB+6, THREEB+7, PRINT+1~
, PRINT+3*, PRINT+7*, PRINT+9, PRINT+10, PRINT+13
TIUDIV UPDATE+5~, UPDATE+25*
TIUDTYP SETDIV+24~, SETDIV+25*, SETDIV+27
TIUDVHL SETDIV+31~, SETDIV+32*, SETDIV+34*, SETDIV+36, SETDIV+37
TIUE SETDIV+31~, SETDIV+32*, SETDIV+35*, SETDIV+36, SETDIV+37
TIUEX SETDIV+24~, SETEX~, SETEX+6, SETEX+7
TIUHL SETDIV+31~, SETDIV+32*, SETDIV+33*, SETDIV+34, SETDIV+37
TIUI UPDATE+5~, UPDATE+26*, UPDATE+27
TIUIFP SETDIV+31~, SETDIV+32*, SETDIV+36*, SETDIV+37, UPDATE+25*, PRINT+1~, PRINT+13*, PRINT+14
TIUJ UPDATE+5~, NOEX~, NOEX+4, NOEX+5
TIUK UPDATE+5~, UPDATE+6*
TIUMSG DEVICE+1~, DEVICE+4
TIUMSG(1 DEVICE+2*
TIUMSG(2 DEVICE+3*
TIUNOEX UPDATE+5~, UPDATE+28, THREEB+2, NOEX+3*, NOEX+7*
TIUNOW HDR+1~, HDR+2*, HDR+3
TIUOUT UPDATE+5~, UPDATE+6*, DEVICE+1~*, DEVICE+5*, PRINT+1~*, PRINT+3, PRINT+4, PRINT+7, PRINT+8, ASK+3*
, EXIT+2
TIUS SETDIV+1~, SETDIV+9*, UPDATE+5~, UPDATE+27*, UPDATE+28, UPDATE+38, THREEB~, THREEB+2, NOEX~, NOEX+5
, PRINT+1~, PRINT+3*, PRINT+4, PRINT+6, PRINT+7, PRINT+12
TIUST PRINT+1~, PRINT+10*, PRINT+11
U SETDIV+8, SETDIV+23, SETDIV+25, SETDIV+27, SETDIV+33, SETDIV+34, SETDIV+35, THREEB+7, PRINT+10, PRINT+11
X UPDATE+4~, UPDATE+24~, ASK+2~
Y UPDATE+4~, UPDATE+22, UPDATE+24~, UPDATE+25, ASK+2~, HDR+2*
ZTDESC MAIN+1~, MAIN+5*, UPDATE+29~, UPDATE+32*, DEVICE+8*, DEVICE+10!
ZTDTH DEVICE+10!
ZTIO MAIN+1~, MAIN+4*, UPDATE+29~, UPDATE+30*, DEVICE+10!
>> ZTQUEUED PRINT+2
>> ZTREQ PRINT+2*
ZTRTN MAIN+1~, MAIN+4*, UPDATE+29~, UPDATE+30*, DEVICE+7*, DEVICE+10!
ZTSAVE MAIN+1~, UPDATE+29~
ZTSAVE("DUZ" MAIN+4*, UPDATE+31*
ZTSAVE("RESULT" UPDATE+31*
ZTSK MAIN+1~, MAIN+7, MAIN+10, UPDATE+29~, UPDATE+34, UPDATE+36, DEVICE+9, DEVICE+10!
>> ZTSTOP SETDIV+14, SETDIV+20*, SETCHKQ+1, SETCHKQ+7, TWOA+4, TWOA+10*, TWOA+13

Marked Items

Name Field # of Occurrence
$T(EXHDR+TIUS PRINT+5, PRINT+8
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All