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

Package: Text Integration Utility

Routine: TIUASRPT


Information

TIUASRPT ; SLC/JMH - Review unsigned additional signer Documents by DIVISION ; [12/2/04 11:50am]

Source Information

Source file <TIUASRPT.m>

Entry Points

Name Comments DBIA/ICR reference
BEGIN ; Select Division(s), Entry Date Range, Service, Type of Report
DEV ; Device selection
BUILD ; Build list
EXIT ; Clean up and exit
GATHER(TIUIFP,TIUSTDT,TIUENDT,TIUSVCS) ; Find records for the list
; Input -- TIUIFP INSTITUTION file (#4) IEN
; (0 = gather all divisions)
; TIUSTDT Start Date
; TIUENDT End Date
; TIUSVCS Service Selection Array
; Output -- None
ADDELMNT(TIUDA,TIUSVCS) ; Add each element to the list
; Input -- TIUDA TIU DOCUMENT file (#8925) IEN
; TIUSVCS Service Selection Array
; Output -- None
PRNT(TIUDA) ; Does document have a parent?
; Input -- TIUDA TIU Document file (#8925) IEN
; Output -- TIUPRNT Null= TIU Document file (#8925) entry does
; not have a parent
; Exists= TIU Document file (#8925) entry is
; an addendum or ID child.
; Value: Parent TIU Document file
; (#8925) IEN
ASKRNG(STDT,ENDT) ;Prompt for entry date range
; Input -- None
; Output -- 1=Successful and 0=Failure
; STDT Start Date
; ENDT End Date
ASKRNGQ
DHDR(TIUFP,TIUSTDT,TIUENDT) ;
SHDR(TIUSVC) ;
; SERVICE HEADER
PRINT ;
PRNTITEM(TIUDA,TIUAS,TIUEDT) ;
ASK ;
STATXFER(TIUSTAT) ;format a small status string
PATPRNT(TIUPAT) ; format patient as initials and then last 6 SSN

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This report should be sent to a 132 Column Device"
  • Line Location: DEV+2
Function Call: WRITE
  • Prompt: !
  • Line Location: DEV+3
Function Call: WRITE
  • Prompt: !,$S($D(ZTSK):"Request Queued!",1:"Request Cancelled!")
  • Line Location: DEV+10
Function Call: WRITE
  • Prompt: !!,"Please specify an Entry Date Range:",!
  • Line Location: ASKRNG+6
Function Call: WRITE
  • Prompt: @IOF,"Pending Additional Signature Documents for "_TIUINST
  • Line Location: DHDR+7
Function Call: WRITE
  • Prompt: " on "_$$FMTE^XLFDT($$NOW^XLFDT)
  • Line Location: DHDR+8
Function Call: WRITE
  • Prompt: !,?10,TIURNG,?70,"Page: "_+$G(TIUPG)
  • Line Location: DHDR+9
Function Call: WRITE
  • Prompt: !,"------------------------------------------------------------------------------"
  • Line Location: DHDR+11
Function Call: WRITE
  • Prompt: !,"------------------------------------------------------------------------------------------------------------------------------------"
  • Line Location: DHDR+13
Function Call: WRITE
  • Prompt: !,"IDENT. SIGNER",?17,"PATIENT",?27,"STATUS",?35,"ENTRY DATE"
  • Line Location: DHDR+14
Function Call: WRITE
  • Prompt: ?54,"DOCUMENT TITLE",?81,"DOCUMENT IEN"
  • Line Location: DHDR+15
Function Call: WRITE
  • Prompt: !,"------------------------------------------------------------------------------------------------------------------------------------"
  • Line Location: DHDR+16
Function Call: WRITE
  • Prompt: !!?10,"SERVICE: ",TIUSVC
  • Line Location: SHDR+2
Function Call: WRITE
  • Prompt: !," Totals for Service ",TIUSVC,": ",?55,TIUSVCNT
  • Line Location: PRINT+21
Function Call: WRITE
  • Prompt: !,"Totals for Division ",TIUDVSTR,": ",?55,TIUDCNT
  • Line Location: PRINT+25
Function Call: WRITE
  • Prompt: !,"Totals for all Divisions: ",?55,TIUTOT
  • Line Location: PRINT+29
Function Call: WRITE
  • Prompt: !,TIUAS,?17,$G(TIUPAT),?27," "_TIUSTAT,?35,$G(TIUDATE)
  • Line Location: PRNTITEM+12
Function Call: WRITE
  • Prompt: ?54,$G(TIUTYP),?81,TIUDA
  • Line Location: PRNTITEM+13
Function Call: WRITE
  • Prompt: " PARENT = "_TIUPRNT
  • Line Location: PRNTITEM+14
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^TIU(8925 - [#8925] EXTERNAL^DILFD
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call