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 ;27-Mar-2013 08:22;DU

Source Information

Source file <TIUASRPT.m>

Call Graph

Call Graph Total: 15

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Text Integration Utility 1 TIU REVIEW MRT ADD SGNR  

Entry Points

Name Comments DBIA/ICR reference
ASKRNGQ
ADDELMNT(TIUDA,TIUSVCS) ; Add each element to the list
; Input -- TIUDA TIU DOCUMENT file (#8925) IEN
; TIUSVCS Service Selection Array
; Output -- None
BEGIN ; Select Division(s), Entry Date Range, Service, Type of Report
; IHS/MSC/MGH Changed SSN to HRCN Patch 1011
DHDR(TIUFP,TIUSTDT,TIUENDT) ;
PATPRNT(TIUPAT) ; format patient as initials and then last 6 SSN
SHDR(TIUSVC) ;
; SERVICE HEADER
STATXFER(TIUSTAT) ;format a small status string
DEV ; Device selection
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
ASK ;
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
EXIT ; Clean up and exit
BUILD ; Build list
PRINT ;
ASKRNG(STDT,ENDT) ;Prompt for entry date range
; Input -- None
; Output -- 1=Successful and 0=Failure
; STDT Start Date
; ENDT End Date
PRNTITEM(TIUDA,TIUAS,TIUEDT) ;

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+22, ASK+2
$$SELSVC^TIULA BEGIN+14
SELDIV^TIULA BEGIN+3
$$PERSNAME^TIULC1 ADDELMNT+16
$$NAME^TIULS ADDELMNT+19
$$PROVSVC^TIULV ADDELMNT+14
$$HRCN^TIUR2 PATPRNT+5
$$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+12
Routine Call
  • DIR
  • Line Location:
    • BEGIN+22
    • ASK+2
Routine Call
  • %ZIS
  • Line Location:
    • DEV+3

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+11
$$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+16~, ASK+2~!
DIR("?" BEGIN+18*, BEGIN+19*, BEGIN+20*, BEGIN+21*
DIR("A" BEGIN+17*
DIR(0 BEGIN+17*, ASK+2*
DIRUT BEGIN+16~, BEGIN+22, ASKRNG+5~, ASKRNG+8, ASKRNG+10
DTOUT BEGIN+16~, ASKRNG+5~
DUOUT BEGIN+16~, ASKRNG+5~
DUZ(2 PATPRNT+5
ENDT ASKRNG~, ASKRNG+9*, ASKRNG+10
HRCN PATPRNT+1~, PATPRNT+5*, PATPRNT+7
IDPRNT PRNT+8~, PRNT+15*, PRNT+16*, PRNT+17, PRNT+18
INIT PATPRNT+1~, PATPRNT+6*, PATPRNT+7
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*
PAT PATPRNT+1~, PATPRNT+3*, PATPRNT+6
POP DEV+3!
SELDIV BEGIN+3, 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+4, EXIT+1!
TIUDI( BEGIN+5, BUILD+5, BUILD+6
TIUDI("ENTRIES" BEGIN+6*, BEGIN+8*, 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+2~, BEGIN+11, BUILD+7, BUILD+11, EXIT+1!, GATHER~, GATHER+9, DHDR~, DHDR+5, PRINT+6
, PRINT+10, PRINT+19, PRINT+22
TIUFP DHDR~
TIUI BEGIN+2~, BEGIN+5*, BEGIN+6
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, PATPRNT+5
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+16~, BEGIN+22*, 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+2~, BEGIN+11, 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+2~, BEGIN+14, 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+22, 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