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

Entry Points

Name Comments DBIA/ICR reference
PRINT ; -- Device Selection
PRINTQ
LIST ; -- Entry point to generate list
LISTQ
LISTONE(TIUDA,TIUVSIT) ;Entry point to list one record
; Input -- TIUDA TIU Document file (#8925) IEN
; TIUVSIT Visit file (#9000010) IEN
; 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 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

FileMan Files Accessed Via FileMan Db Call

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