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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: TIUP149P

Package: Text Integration Utility

Routine: TIUP149P


Information

TIUP149P ; SLC/JAK,RMO - Post-Install for TIU*1*149 Cont.;10/30/02@09:27:47

Source Information

Source file <TIUP149P.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  $$FMTE^XLFDT  
VA FileMan 3 NOW^%DTC  EN^DIQ1  ^DIR  
MailMan 1 ^XMD  
Registration 1 OERR^VADPT  
Text Integration Utility 1 $$CHKINF^TIUP149  

Entry Points

Name Comments DBIA/ICR reference
PRINT ; -- Device Selection
PRINTQ
ASKEX(TIUOUT) ;Ask if user would like to exclude NDBI fix needed records
; Input -- None
; Output -- 1=Yes and 0=No
; TIUOUT Timeout or up-arow flag
LIST ; -- Entry point to generate list
LISTQ
LISTONE(TIUDA,TIULNK,EXNDBIF) ;Entry point to list one record
; Input -- TIUDA TIU Document file (#8925) IEN
; TIULNK 1st piece= 1=Linked and 0=Not Linked
; 2nd piece= Exception type if not linked
; 3rd piece= Visit file (#9000010) IEN if linked
; EXNDBIF Exclude "NDBI Fix Needed" records flag (Optional)
; Output -- None
LISTONEQ
ASK ; -- End of Page
HDR ; -- Header for report
MAIL ;Send completion message to user who initiated post-install

External References

Name Field # of Occurrence
NOW^%DTC HDR+2
^%ZIS PRINT+11
HOME^%ZIS PRINT+18
^%ZISC PRINT+19
^%ZTLOAD PRINT+16
EN^DIQ1 LISTONE+21
^DIR ASKEX+7, ASK+3
$$CHKINF^TIUP149 PRINT+7
OERR^VADPT LISTONE+14
$$FMTE^XLFDT MAIL+8, MAIL+9, MAIL+21
^XMD MAIL+33

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This routine will print the results of the clean up routine in patch"
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !,"TIU*1*149 which provides a clean up for documents pointing to a different"
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !,"patient's visit in the TIU DOCUMENT file (#8925)."
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !!,*7,"This report requires a column width of 132.",!
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: !,$S($D(ZTSK):"Request queued",1:"Request Cancelled!")
  • Line Location: PRINT+16
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKEX+7
Function Call: WRITE
  • Prompt: !?4,"No records in list."
  • Line Location: LIST+4
Function Call: WRITE
  • Prompt: !,$E($G(VADM(1)),1,20)_" ("_$G(VA("BID"))_")"
  • Line Location: LISTONE+15
Function Call: WRITE
  • Prompt: ?30,TIUDA
  • Line Location: LISTONE+16
Function Call: WRITE
  • Prompt: ?42,$E($P($G(^TIU(8925.1,+$G(^TIU(8925,+TIUDA,0)),0)),U,1),1,15)
  • Line Location: LISTONE+17
Function Call: WRITE
  • Prompt: ?60,$G(TIUVISIT(9000010,DA,.01,"E"))
  • Line Location: LISTONE+22
Function Call: WRITE
  • Prompt: ?84,$E($G(TIUVISIT(9000010,DA,.22,"E")),1,20)
  • Line Location: LISTONE+23
Function Call: WRITE
  • Prompt: ?106,"Yes - Visit #"_$P(TIULNK,U,3)
  • Line Location: LISTONE+24
Function Call: WRITE
  • Prompt: ?106,"No - "
  • Line Location: LISTONE+26
Function Call: WRITE
  • Prompt: $S(TIUEX=1:"Entry in Use",TIUEX=2:"Unlinked Visit",TIUEX=3:"NDBI Fix Needed",1:"")
  • Line Location: LISTONE+27
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: @IOF,"TIU*1*149 TIU DOCUMENTS LINKED TO A DIFFERENT PATIENT'S VISIT CLEAN-UP - Printed: ",TIUNOW
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,"Patient",?30,"Document #",?42,"Title",?60,"Visit Date/Time",?84,"Hospital Location",?106,"Linked"
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: LNE
  • Line Location: HDR+5
Routine Call
  • DIR
  • Line Location:
    • ASKEX+7
    • ASK+3
Routine Call
  • %ZIS
  • Line Location:
    • PRINT+11
Routine Call
  • %ZIS
  • Line Location:
    • PRINT+18

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNVSIT - [#9000010] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" HDR+2
^TIU(8925 - [#8925] LISTONE+9, LISTONE+17
^TIU(8925.1 - [#8925.1] LISTONE+17
^XTMP("TIUP149" LIST+4, LIST+6, MAIL+8, MAIL+9, MAIL+12, MAIL+14, MAIL+16, MAIL+18, MAIL+20, MAIL+21
, MAIL+31

Label References

Name Line Occurrences
$$ASKEX PRINT+7
ASK LISTONE+8
HDR LIST+3, LISTONE+8
LIST PRINT+19
LISTONE LIST+6
LISTONEQ LISTONE+8, LISTONE+13
LISTQ LIST+4
PRINTQ PRINT+8, PRINT+11

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+11*, PRINT+17!
DA LISTONE+19~, LISTONE+20*, LISTONE+22, LISTONE+23
DFN LISTONE+7~, LISTONE+9*
DIC LISTONE+19~, LISTONE+20*
DIQ LISTONE+19~, LISTONE+20*
DIQ(0 LISTONE+20*
DIR ASKEX+4~, ASK+2~
DIR("A" ASKEX+5*
DIR("B" ASKEX+6*
DIR(0 ASKEX+6*, ASK+2*
DR LISTONE+19~, LISTONE+21*
DTOUT ASKEX+4~, ASKEX+8, ASK+3
DUOUT ASKEX+4~, ASKEX+8, ASK+3
DUZ MAIL+4
EXNDBIF PRINT+1~, PRINT+7*, PRINT+13, LIST+6, LISTQ!, LISTONE~, LISTONE+13
IO PRINT+19, ASK+1
IO("Q" PRINT+12!
IO(0 ASK+1
IOF HDR+3
IOM HDR+5
IOSL LISTONE+8
IOST ASK+1
LNE HDR+1~, HDR+5*
>> NDBIF MAIL+27
POP PRINT+11!
TIUDA LIST+1~, LIST+5*, LIST+6*, LISTONE~, LISTONE+9, LISTONE+16, LISTONE+17
TIUEX LISTONE+7~, LISTONE+10*, LISTONE+13, LISTONE+27
TIULNK LIST+1~, LIST+6*, LISTONE~, LISTONE+10, LISTONE+18, LISTONE+20, LISTONE+24
TIUNOW HDR+1~, HDR+2*, HDR+3
TIUOUT PRINT+1~, PRINT+7, PRINT+8, ASKEX~, ASKEX+8*, LIST+1~*, LIST+6, LISTONE+8, ASK+3*
TIURNG MAIL+2~
TIUTXT MAIL+2~
TIUTXT(1 MAIL+6*
TIUTXT(10 MAIL+16*
TIUTXT(11 MAIL+17*
TIUTXT(12 MAIL+18*
TIUTXT(13 MAIL+19*
TIUTXT(14 MAIL+21*, MAIL+23*
TIUTXT(15 MAIL+24*
TIUTXT(16 MAIL+25*
TIUTXT(17 MAIL+28*
TIUTXT(18 MAIL+29*
TIUTXT(19 MAIL+30*
TIUTXT(2 MAIL+7*
TIUTXT(20 MAIL+31*
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+19~
TIUVISIT(9000010 LISTONE+22, LISTONE+23
U LISTONE+9, LISTONE+10, LISTONE+17, LISTONE+18, LISTONE+20, LISTONE+24
VA LISTONE+7~
VA("BID" LISTONE+15
VADM LISTONE+7~
VADM(1 LISTONE+15
VAIN LISTONE+7~
VAIP LISTONE+7~
X ASK+2~
XMDUZ MAIL+1~, MAIL+3*
XMMG MAIL+1~
XMSUB MAIL+1~, MAIL+32*
XMTEXT MAIL+1~, MAIL+32*
XMY MAIL+1~
XMY( MAIL+3*, MAIL+4*
XMY("G.PATIEN T SAFETY NOTIFICATIONS" , MAIL+5*
XMZ MAIL+1~
Y ASKEX+4~, ASKEX+9, ASK+2~, HDR+2*
ZTDESC PRINT+15*, PRINT+17!
ZTDTH PRINT+17!
ZTIO PRINT+17!
>> ZTQUEUED LIST+2
>> ZTREQ LIST+2*
ZTRTN PRINT+14*, PRINT+17!
ZTSAVE PRINT+17!
ZTSAVE("EXNDBIF" PRINT+13*
ZTSK PRINT+16, PRINT+17!
Info |  Source |  Call 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