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

Package: Text Integration Utility

Routine: TIUP134P


Information

TIUP134P ; SLC/JAK,RMO - Post-Install for TIU*1*134 Cont.;7/8/02@13:15:47

Source Information

Source file <TIUP134P.m>

Entry Points

Name Comments DBIA/ICR reference
PRINT ; -- Device Selection
PRINTQ
LIST ; -- Entry point to generate list
LISTQ
LISTONE(TIUDA,TIULNK) ;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
; 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 ALL records processed to date by the"
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: !,"auto-link routine independent of the date range selected at"
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !,"processing time."
  • 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: !,$E($G(VADM(1)),1,20)_" ("_$G(VA("BID"))_")"
  • Line Location: LISTONE+11
Function Call: WRITE
  • Prompt: ?30,TIUDA
  • Line Location: LISTONE+12
Function Call: WRITE
  • Prompt: ?42,$E($P($G(^TIU(8925.1,+$G(^TIU(8925,+TIUDA,0)),0)),U,1),1,10)
  • Line Location: LISTONE+13
Function Call: WRITE
  • Prompt: ?53,$$DATE^TIULS(+$P($G(^TIU(8925,+TIUDA,13)),U,1),"MM/DD/CCYY HR:MIN")
  • Line Location: LISTONE+14
Function Call: WRITE
  • Prompt: ?70,$E($G(TIUVISIT(9000010,DA,.22,"E")),1,15)
  • Line Location: LISTONE+19
Function Call: WRITE
  • Prompt: ?86,$G(TIUVISIT(9000010,DA,.01,"E"))
  • Line Location: LISTONE+20
Function Call: WRITE
  • Prompt: ?109,"Yes-Visit #"_$P(TIULNK,U,3)
  • Line Location: LISTONE+21
Function Call: WRITE
  • Prompt: ?109,"No-"
  • Line Location: LISTONE+23
Function Call: WRITE
  • Prompt: $S(TIUEX=1:"Multiple Visits",TIUEX=2:"Entry in Use",TIUEX=3:"No Matching Visit",1:"")
  • Line Location: LISTONE+24
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: @IOF,"TIU*1*134 AUTO-LINK MISSING VISIT TO DOCUMENT LIST - Printed: ",TIUNOW
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,"Patient",?30,"Document #",?42,"Title",?53,"Reference Date",?70,"Visit Location",?86,"Visit Date/Time",?109,"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