Routine: TIUASRPT

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

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!

Customize PDF page

Package: Text Integration Utility

Routine: TIUASRPT

Information

Source Information

Call Graph

Call Graph Total: 15

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: