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: 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>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNVSIT - [#9000010] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call