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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Kernel 5 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  ($$FMTE,$$NOW)^XLFDT  $$NS^XUAF4  
Text Integration Utility 5 ($$SELSVC,SELDIV)^TIULA  $$PERSNAME^TIULC1  $$NAME^TIULS  $$PROVSVC^TIULV  $$READ^TIUU  
VA FileMan 4 DT^DILF  $$EXTERNAL^DILFD  $$GET1^DIQ  ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Kernel 1 ^DIC(19  
Text Integration Utility 1 TIU REVIEW MRT ADD SGNR  

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

External References

Name Field # of Occurrence
^%ZIS DEV+3
HOME^%ZIS DEV+12
^%ZISC DEV+13
^%ZTLOAD DEV+10
DT^DILF DHDR+4
$$EXTERNAL^DILFD PRNTITEM+7, PATPRNT+3
$$GET1^DIQ PRNTITEM+4, PATPRNT+4
^DIR BEGIN+21, ASK+2
$$SELSVC^TIULA BEGIN+13
SELDIV^TIULA BEGIN+2
$$PERSNAME^TIULC1 ADDELMNT+16
$$NAME^TIULS ADDELMNT+19
$$PROVSVC^TIULV ADDELMNT+14
$$READ^TIUU ASKRNG+7, ASKRNG+9
$$FMTE^XLFDT DHDR+5, DHDR+8, PRNTITEM+11
$$NOW^XLFDT DHDR+8
$$NS^XUAF4 DHDR+6, PRINT+24

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
Routine Call
  • %ZIS
  • Line Location:
    • DEV+3
Routine Call
  • %ZIS
  • Line Location:
    • DEV+12
Routine Call
  • DIR
  • Line Location:
    • BEGIN+21
    • ASK+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^TIU(8925 - [#8925] EXTERNAL^DILFD

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TIU(8925 - [#8925] BUILD+10, GATHER+12, ADDELMNT+5, ADDELMNT+8, PRNT+10, PRNT+11, PRNT+15, PRNT+16, PRNTITEM+3
^TIU(8925.1 - [#8925.1] PRNTITEM+10
^TIU(8925.7 - [#8925.7] GATHER+9, GATHER+11, ADDELMNT+10, ADDELMNT+12, ADDELMNT+13
^TMP("TIUD" BUILD+2!, EXIT+1!, ADDELMNT+20*, PRINT+3, PRINT+7, PRINT+12, PRINT+15, PRINT+17, PRINT+26

Label References

Name Line Occurrences
$$ASKRNG BEGIN+10
$$PATPRNT PRNTITEM+5
$$PRNT PRNTITEM+2
$$STATXFER PRNTITEM+8
ADDELMNT GATHER+13
ASK PRINT+10, PRINT+19, PRINT+22, PRINT+26
ASKRNGQ ASKRNG+8, ASKRNG+10
BUILD DEV+13
DHDR PRINT+6, PRINT+10, PRINT+19, PRINT+22
EXIT DEV+3, DEV+4
GATHER BUILD+7, BUILD+11
PRINT BUILD+12
PRNTITEM PRINT+18
SHDR PRINT+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DEV+3*, DEV+11!
ADDMPRNT PRNT+8~, PRNT+10*, PRNT+11*, PRNT+12, PRNT+13
DIR BEGIN+15~, ASK+2~!
DIR("?" BEGIN+17*, BEGIN+18*, BEGIN+19*, BEGIN+20*
DIR("A" BEGIN+16*
DIR(0 BEGIN+16*, ASK+2*
DIRUT BEGIN+15~, BEGIN+21, ASKRNG+5~, ASKRNG+8, ASKRNG+10
DTOUT BEGIN+15~, ASKRNG+5~
DUOUT BEGIN+15~, ASKRNG+5~
ENDT ASKRNG~, ASKRNG+9*, ASKRNG+10
IDPRNT PRNT+8~, PRNT+15*, PRNT+16*, PRNT+17, PRNT+18
INIT PATPRNT+1~, PATPRNT+5*, PATPRNT+6
IO DEV+13, ASK+1
IO("Q" DEV+4
IO(0 ASK+1
IOF DHDR+7
IOSL PRINT+10, PRINT+19, PRINT+22
IOST ASK+1
LST4 PATPRNT+1~, PATPRNT+4*, PATPRNT+6
PAT PATPRNT+1~, PATPRNT+3*, PATPRNT+5
POP DEV+3!
SELDIV BEGIN+2, EXIT+1!
STDT ASKRNG~, ASKRNG+7*, ASKRNG+8, ASKRNG+9
TIUAS ADDELMNT+11~, ADDELMNT+12*, ADDELMNT+13, ADDELMNT+14, ADDELMNT+16*, ADDELMNT+19*, ADDELMNT+20, PRINT+8~, PRINT+9*, PRINT+12*
, PRINT+15, PRINT+17, PRINT+18, PRNTITEM~, PRNTITEM+12
TIUASREC ADDELMNT+4~, ADDELMNT+7*, ADDELMNT+10*, ADDELMNT+12, ADDELMNT+13
TIUASSVC ADDELMNT+11~, ADDELMNT+14*, ADDELMNT+15, ADDELMNT+17*, ADDELMNT+18*, ADDELMNT+20
TIUD0 PRNTITEM+1~, PRNTITEM+3*, PRNTITEM+5, PRNTITEM+6, PRNTITEM+9
TIUD12 ADDELMNT+4~, ADDELMNT+8*, ADDELMNT+9, PRNTITEM+1~
TIUDA GATHER+7~, ADDELMNT~, ADDELMNT+5, ADDELMNT+8, ADDELMNT+10, ADDELMNT+20, PRNT~, PRNT+10, PRNT+15, PRINT+16~
, PRINT+17*, PRINT+18, PRNTITEM~, PRNTITEM+2, PRNTITEM+3, PRNTITEM+13
TIUDATE PRNTITEM+1~, PRNTITEM+11*, PRNTITEM+12
TIUDCNT PRINT+4~, PRINT+5*, PRINT+20*, PRINT+25, PRINT+27
TIUDI BEGIN+3, EXIT+1!
TIUDI( BEGIN+4, BUILD+5, BUILD+6
TIUDI("ENTRIES" BEGIN+5*, BEGIN+7*, BUILD+4
TIUDIV DEV+11!
TIUDVSTR PRINT+24~*, PRINT+25
TIUEDT ADDELMNT+4~, ADDELMNT+9*, ADDELMNT+20, PRINT+13~, PRINT+14*, PRINT+15*, PRINT+17, PRINT+18, PRNTITEM~, PRNTITEM+11
TIUENDT BEGIN+1~, BEGIN+10, BUILD+7, BUILD+11, EXIT+1!, GATHER~, GATHER+9, DHDR~, DHDR+5, PRINT+6
, PRINT+10, PRINT+19, PRINT+22
TIUFP DHDR~
TIUI BEGIN+1~, BEGIN+4*, BEGIN+5
TIUIEN GATHER+10~*, GATHER+11*, GATHER+12, GATHER+13
TIUIFP DEV+11!, BUILD+1~, BUILD+6*, BUILD+7, BUILD+9*, BUILD+10*, BUILD+11, GATHER~, GATHER+12, ADDELMNT+4~
, ADDELMNT+9*, ADDELMNT+20, DHDR+6, PRINT+1~, PRINT+2*, PRINT+3*, PRINT+6, PRINT+7, PRINT+10, PRINT+12
, PRINT+15, PRINT+17, PRINT+19, PRINT+22, PRINT+24, PRINT+26
TIUINST DHDR+2~, DHDR+6*, DHDR+7
TIUJ GATHER+7~
TIUK BUILD+1~, BUILD+5*, BUILD+6
TIULST4 PRNTITEM+1~, PRNTITEM+4*
TIUOUT PRINT+1~, PRINT+2*, PRINT+3, PRINT+7, PRINT+10, PRINT+12, PRINT+15, PRINT+19, PRINT+22, PRINT+23
, PRINT+26, PRINT+28, ASK+3*
TIUPAT PRNTITEM+1~, PRNTITEM+4, PRNTITEM+5*, PRNTITEM+12, PATPRNT~, PATPRNT+2, PATPRNT+3, PATPRNT+4
TIUPG DHDR+3*, DHDR+9, PRINT+1~, PRINT+2*
TIUPRNT PRNT+8~, PRNT+9*, PRNT+13*, PRNT+18*, PRNT+19, PRNTITEM+1~, PRNTITEM+2*, PRNTITEM+14
TIUR DHDR+2~, DHDR+4
TIURNG DHDR+2~, DHDR+5*, DHDR+9
TIURPT BEGIN+15~, BEGIN+21*, DEV+1, DEV+11!, DHDR+10, DHDR+12, PRINT+11, PRINT+18
TIUS GATHER+7~
TIUSTAT ADDELMNT+4~, ADDELMNT+5*, ADDELMNT+6, PRNTITEM+1~, PRNTITEM+6*, PRNTITEM+7*, PRNTITEM+8*, PRNTITEM+12, STATXFER~, STATXFER+1
, STATXFER+2, STATXFER+3, STATXFER+4, STATXFER+5, STATXFER+6, STATXFER+7, STATXFER+8
TIUSTDT BEGIN+1~, BEGIN+10, BUILD+7, BUILD+11, EXIT+1!, GATHER~, GATHER+8, DHDR~, DHDR+5, PRINT+6
, PRINT+10, PRINT+19, PRINT+22
TIUSVC ADDELMNT+4~, SHDR~, SHDR+2, PRINT+4~, PRINT+5*, PRINT+7*, PRINT+11, PRINT+12, PRINT+15, PRINT+17
, PRINT+21
TIUSVCNT PRINT+8~, PRINT+9*, PRINT+20*, PRINT+21
TIUSVCS BEGIN+1~, BEGIN+13, BUILD+7, BUILD+11, EXIT+1!, GATHER~, GATHER+13, ADDELMNT~, ADDELMNT+15
TIUSVCS( ADDELMNT+15
TIUTOT PRINT+1~, PRINT+2*, PRINT+27*, PRINT+29
TIUTP GATHER+7~, GATHER+8*, GATHER+9*, GATHER+11
TIUTYP PRNTITEM+1~, PRNTITEM+9*, PRNTITEM+10*, PRNTITEM+13
U GATHER+12, ADDELMNT+5, ADDELMNT+9, ADDELMNT+12, ADDELMNT+13, ADDELMNT+17, PRNT+10, DHDR+6, PRINT+24, PRNTITEM+5
, PRNTITEM+6, PRNTITEM+10
Y BEGIN+21, ASKRNG+5~, ASKRNG+11*, ASKRNGQ, ASK+2~, ASK+3
ZTDESC DEV+9*, DEV+11!
>> ZTQUEUED BUILD+3
>> ZTREQ BUILD+3*
ZTRTN DEV+5*, DEV+11!
ZTSAVE DEV+11!
ZTSAVE("TIUDI(" DEV+6*
ZTSAVE("TIUENDT" DEV+7*
ZTSAVE("TIURPT" DEV+6*
ZTSAVE("TIUSTDT" DEV+7*
ZTSAVE("TIUSVCS" DEV+8*
ZTSAVE("TIUSVCS(" DEV+8*
ZTSK DEV+10, DEV+11!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All