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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: TIUP146P

Package: Text Integration Utility

Routine: TIUP146P


Information

TIUP146P ; SLC/JAK,RMO - Post-Install for TIU*1*146 Cont.;9/9/02@13:15:47

Source Information

Source file <TIUP146P.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  $$FMTE^XLFDT  
VA Fileman 4 NOW^%DTC  $$GET1^DIQ  EN^DIQ1  ^DIR  
MailMan 1 ^XMD  
Registration 1 OERR^VADPT  
Text Integration Utility 1 ($$DATE,$$UPPER)^TIULS  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Text Integration Utility 1 TIUP146  

Entry Points

Name Comments DBIA/ICR reference
PRINTQ
HDR ; -- Header for report
LISTQ
LIST ; -- Entry point to generate list
ASK ; -- End of Page
LISTONE(TIUDA,TIUVSIT) ;Entry point to list one record
; Input -- TIUDA TIU Document file (#8925) IEN
; TIUVSIT Visit file (#9000010) IEN
; Output -- None
LISTONEQ
PRINT ; -- Device Selection
MAIL ;Send completion message to user who initiated post-install

External References

Name Field # of Occurrence
NOW^%DTC HDR+2
^%ZIS PRINT+5
HOME^%ZIS PRINT+11
^%ZISC PRINT+12
^%ZTLOAD PRINT+9
$$GET1^DIQ LISTONE+15
EN^DIQ1 LISTONE+19
^DIR ASK+3
$$DATE^TIULS LISTONE+14
$$UPPER^TIULS LISTONE+11
OERR^VADPT LISTONE+9
$$FMTE^XLFDT MAIL+8, MAIL+9, MAIL+17
^XMD MAIL+23

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This routine will print the results of the search routine in patch"
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: !,"TIU*1*146 which identifies documents pointing to a different"
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !,"patient's visit in the TIU DOCUMENT file (#8925)."
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !!,*7,"This report requires a column width of 132.",!
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !,$S($D(ZTSK):"Request queued",1:"Request Cancelled!")
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: !?4,"No records in list."
  • Line Location: LIST+4
Function Call: WRITE
  • Prompt: !,TIUDA
  • Line Location: LISTONE+10
Function Call: WRITE
  • Prompt: ?12,$E($$UPPER^TIULS($P($G(^TIU(8925.6,+$P(TIUD0,U,5),0)),U)),1,5)
  • Line Location: LISTONE+11
Function Call: WRITE
  • Prompt: ?19,$S(DFN>0:$E($G(VADM(1)),1,20)_" ("_$G(VA("BID"))_")",1:"")
  • Line Location: LISTONE+12
Function Call: WRITE
  • Prompt: ?48,$E($P($G(^TIU(8925.1,+TIUD0,0)),U,1),1,10)
  • Line Location: LISTONE+13
Function Call: WRITE
  • Prompt: ?60,$$DATE^TIULS(+$P($G(^TIU(8925,+TIUDA,13)),U,1),"MM/DD/CCYY HR:MIN")
  • Line Location: LISTONE+14
Function Call: WRITE
  • Prompt: ?78,$E($$GET1^DIQ(44,+TIUHL,.01,"E"),1,15)
  • Line Location: LISTONE+15
Function Call: WRITE
  • Prompt: ?95,$G(TIUVISIT(9000010,DA,.01,"E"))
  • Line Location: LISTONE+20
Function Call: WRITE
  • Prompt: ?118,TIUVSIT
  • Line Location: LISTONE+21
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: @IOF,"TIU*1*146 TIU DOCUMENTS LINKED TO A DIFFERENT PATIENT'S VISIT - Printed: ",TIUNOW
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,"Document #",?12,"Status",?19,"Patient in Document",?48,"Title",?60,"Reference Date",?78,"Visit Location",?95,"Incorrect Visit Date &",?118,"Visit #"
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: LNE
  • Line Location: HDR+5
Routine Call
  • %ZIS
  • Line Location:
    • PRINT+11
Routine Call
  • DIR
  • Line Location:
    • ASK+3
Routine Call
  • %ZIS
  • Line Location:
    • PRINT+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SC - [#44] GET1^DIQ
^AUPNVSIT - [#9000010] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" HDR+2
^TIU(8925 - [#8925] LISTONE+6, LISTONE+7, LISTONE+14
^TIU(8925.1 - [#8925.1] LISTONE+13
^TIU(8925.6 - [#8925.6] LISTONE+11
^XTMP("TIUP146" LIST+4, LIST+6, MAIL+8, MAIL+9, MAIL+12, MAIL+14, MAIL+16, MAIL+17

Label References

Name Line Occurrences
ASK LISTONE+5
HDR LIST+3, LISTONE+5
LIST PRINT+12
LISTONE LIST+6
LISTONEQ LISTONE+5
LISTQ LIST+4
PRINTQ PRINT+5

Naked Globals

Name Field # of Occurrence
^( LIST+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % HDR+2
%ZIS PRINT+5*, PRINT+10!
DA LISTONE+17~, LISTONE+18*, LISTONE+20
DFN LISTONE+4~, LISTONE+8*, LISTONE+9, LISTONE+12
DIC LISTONE+17~, LISTONE+18*
DIQ LISTONE+17~, LISTONE+18*
DIQ(0 LISTONE+18*
DIR ASK+2~
DIR(0 ASK+2*
DR LISTONE+17~, LISTONE+19*
>> DTOUT ASK+3
>> DUOUT ASK+3
DUZ MAIL+4
IO PRINT+12, ASK+1
IO("Q" PRINT+6!
IO(0 ASK+1
IOF HDR+3
IOM HDR+5
IOSL LISTONE+5
IOST ASK+1
LNE HDR+1~, HDR+5*
POP PRINT+5!
TIUD0 LISTONE+4~, LISTONE+6*, LISTONE+8, LISTONE+11, LISTONE+13
TIUDA LIST+1~, LIST+5*, LIST+6*, LISTONE~, LISTONE+6, LISTONE+7, LISTONE+10, LISTONE+14
TIUHL LISTONE+4~, LISTONE+7*, LISTONE+15
TIUNOW HDR+1~, HDR+2*, HDR+3
TIUOUT LIST+1~*, LIST+6, LISTONE+5, ASK+3*
TIUTXT MAIL+2~
TIUTXT(1 MAIL+6*
TIUTXT(10 MAIL+17*, MAIL+19*
TIUTXT(11 MAIL+20*
TIUTXT(12 MAIL+21*
TIUTXT(2 MAIL+7*
TIUTXT(3 MAIL+8*
TIUTXT(4 MAIL+9*
TIUTXT(5 MAIL+10*
TIUTXT(6 MAIL+12*
TIUTXT(7 MAIL+13*
TIUTXT(8 MAIL+14*
TIUTXT(9 MAIL+15*
TIUVISIT LISTONE+17~
TIUVISIT(9000010 LISTONE+20
TIUVSIT LIST+1~, LIST+6*, LISTONE~, LISTONE+16, LISTONE+18, LISTONE+21
U LISTONE+7, LISTONE+8, LISTONE+11, LISTONE+13, LISTONE+14
VA LISTONE+4~
VA("BID" LISTONE+12
VADM LISTONE+4~
VADM(1 LISTONE+12
VAIN LISTONE+4~
VAIP LISTONE+4~
X ASK+2~
XMDUZ MAIL+1~, MAIL+3*
XMMG MAIL+1~
XMSUB MAIL+1~, MAIL+22*
XMTEXT MAIL+1~, MAIL+22*
XMY MAIL+1~
XMY( MAIL+3*, MAIL+4*
XMY("G.PATIEN T SAFETY NOTIFICATIONS" , MAIL+5*
XMZ MAIL+1~
Y ASK+2~, HDR+2*
ZTDESC PRINT+8*, PRINT+10!
ZTDTH PRINT+10!
ZTIO PRINT+10!
>> ZTQUEUED LIST+2
>> ZTREQ LIST+2*
ZTRTN PRINT+7*, PRINT+10!
ZTSK PRINT+9, PRINT+10!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All