Routine: TIURDIV

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

Package	Total	Caller Graph
Text Integration Utility	1	TIU UNSIGNED/UNCOSIGNED REPORT

Entry Points

Name	Comments	DBIA/ICR reference
ASKRNGQ
BEGIN	; Select Division(s), Entry Date Range, Service, Type of Report
PRINT(TIUSTDT,TIUENDT)	; Display/print the output ; Input -- TIUSTDT Start Date ; TIUENDT End Date ; Output -- None
FHDR(TIUSVC)	; Service Header ; Input -- TIUSVC SERVICE/SECTION file (#49) NAME ; Output -- None
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
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
ASK	; End of page
ASKRNG(STDT,ENDT)	;Prompt for entry date range ; Input -- None ; Output -- 1=Successful and 0=Failure ; STDT Start Date ; ENDT End Date
HDR(TIUIFP,TIUSTDT,TIUENDT)	; Page (Division) Header ; Input -- TIUIFP INSTITUTION file (#4) IEN ; TIUSTDT Start Date ; TIUENDT End Date ; Output -- None
PRTELMNT(TIUDA,TIUIFP,TIUSVC,TIUAUECS,TIUEDT,TIUSTDT,TIUENDT)	; Print each element ; Input -- TIUDA TIU DOCUMENT file (#8925) IEN ; TIUIFP INSTITUTION file (#4) IEN ; TIUSVC SERVICE/SECTION file (#49) NAME ; TIUAUECS AUTHOR/ExpCos NAME ; TIUEDT Inverse REFERENCE DATE ; TIUSTDT Start Date ; TIUENDT End Date ; Output -- None
ADDELMNT(TIUDA,TIUSTDT,TIUENDT,TIUSVCS)	; Add each element to the list ; Input -- TIUDA TIU DOCUMENT file (#8925) IEN ; TIUSTDT Start Date ; TIUENDT End Date ; TIUSVCS Service Selection Array ; Output -- None

External References

Name	Field # of Occurrence
^%ZIS	DEV+1
HOME^%ZIS	DEV+11
^%ZISC	DEV+12
^%ZTLOAD	DEV+9
DT^DILF	HDR+7
$$EXTERNAL^DILFD	PRTELMNT+20, PRTELMNT+22, PRTELMNT+27, PRTELMNT+28, PRTELMNT+29
$$GET1^DIQ	PRTELMNT+16
^DIR	BEGIN+21, ASK+2
$$SELSVC^TIULA	BEGIN+13
SELDIV^TIULA	BEGIN+2
$$PERSNAME^TIULC1	ADDELMNT+18
$$DATE^TIULS	PRTELMNT+24
$$NAME^TIULS	ADDELMNT+23
$$PROVSVC^TIULV	ADDELMNT+15
$$READ^TIUU	ASKRNG+7, ASKRNG+9
$$FMTE^XLFDT	HDR+8
$$NS^XUAF4	PRINT+28, HDR+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This report must be sent to a 132-column device.",! Line Location: BEGIN+22
Function Call: WRITE	Prompt: ! Line Location: DEV+1
Function Call: WRITE	Prompt: !!,"You must select a 132-column device." Line Location: DEV+2
Function Call: WRITE	Prompt: !,$S($D(ZTSK):"Request Queued!",1:"Request Cancelled!") Line Location: DEV+9
Function Call: WRITE	Prompt: !!,"NO Unsigned/Uncosigned Documents!!" Line Location: PRINT+8
Function Call: WRITE	Prompt: !!," Totals for Service: ",$E(TIUSVC,1,25),"---" Line Location: PRINT+23
Function Call: WRITE	Prompt: " UNSIGNED: ",$G(SCT(TIUIFP,TIUSVC,5)) Line Location: PRINT+24
Function Call: WRITE	Prompt: " UNCOSIGNED: ",$G(SCT(TIUIFP,TIUSVC,6)) Line Location: PRINT+25
Function Call: WRITE	Prompt: !!,"Totals for Division: ",$E($P($$NS^XUAF4(TIUIFP),U),1,25),"---" Line Location: PRINT+28
Function Call: WRITE	Prompt: " UNSIGNED: ",$G(ICT(TIUIFP,5)) Line Location: PRINT+29
Function Call: WRITE	Prompt: " UNCOSIGNED: ",$G(ICT(TIUIFP,6)) Line Location: PRINT+30
Function Call: WRITE	Prompt: !!,"GRAND Totals (All Divisions)--- UNSIGNED: ",+$G(GTCT(5)) Line Location: PRINT+35
Function Call: WRITE	Prompt: " UNCOSIGNED: ",+$G(GTCT(6)) Line Location: PRINT+36
Function Call: WRITE	Prompt: !,$G(TIUAUECS) Line Location: PRTELMNT+19
Function Call: WRITE	Prompt: ?17,$S(TIUPT:$E($$EXTERNAL^DILFD(8925,.02,"",TIUPT),1,14),1:"UNK") Line Location: PRTELMNT+20
Function Call: WRITE	Prompt: ?32,$S(TIULST4]"":$G(TIULST4),1:"UNK") Line Location: PRTELMNT+21
Function Call: WRITE	Prompt: ?39,$E($$EXTERNAL^DILFD(8925,.05,"",TIUS),1,10) Line Location: PRTELMNT+22
Function Call: WRITE	Prompt: ?50,$S(TIUEDT>0:$$DATE^TIULS(TIUEDT,"MM/DD/YY"),1:"UNK") Line Location: PRTELMNT+24
Function Call: WRITE	Prompt: ?60,$G(TIUDA) Line Location: PRTELMNT+26
Function Call: WRITE	Prompt: ?74,$S(TIUTP:$E($$EXTERNAL^DILFD(8925,.01,"",TIUTP),1,15),1:"UNK") Line Location: PRTELMNT+27
Function Call: WRITE	Prompt: ?91,TIUECS Line Location: PRTELMNT+28
Function Call: WRITE	Prompt: ?104,TIUAU Line Location: PRTELMNT+29
Function Call: WRITE	Prompt: ?119,$$PRNT(TIUDA) Line Location: PRTELMNT+31
Function Call: WRITE	Prompt: ! Line Location: ASK+2
Function Call: WRITE	Prompt: @IOF,?26,"Unsigned and Uncosigned Documents "_TIURNG,?(IOM-10) Line Location: HDR+10
Function Call: WRITE	Prompt: "Page ",+$G(TIUPG),!,"PRINTED:",?26,"for ",TIUINST,!,TIUR(0) Line Location: HDR+11
Function Call: WRITE	Prompt: ! Line Location: HDR+12
Function Call: WRITE	Prompt: LNE Line Location: HDR+12
Function Call: WRITE	Prompt: !,"AUTHOR/EXP COS",?17,"PATIENT",?25,"LAST4",?39,"STATUS" Line Location: HDR+14
Function Call: WRITE	Prompt: ?50,"ENTRY DT",?60,"IEN",?74,"DOC TYPE" Line Location: HDR+15
Function Call: WRITE	Prompt: ?91,"EXP COSGNR",?104,"AUTHOR",?119,"PARENT IEN",!,LNE Line Location: HDR+16
Function Call: WRITE	Prompt: !!?10,"SERVICE: ",TIUSVC Line Location: FHDR+3
Function Call: WRITE	Prompt: !!,"Please specify an Entry Date Range:",! Line Location: ASKRNG+6
Routine Call	%ZIS Line Location: DEV+11
Routine Call	DIR Line Location: BEGIN+21 ASK+2
Routine Call	%ZIS Line Location: DEV+1

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+9, GATHER+11, GATHER+13, GATHER+15, ADDELMNT+8, ADDELMNT+9, ADDELMNT+10, PRTELMNT+10, PRNT+10 , PRNT+11, PRNT+15, PRNT+16
^TMP("TIUD"	BUILD+2!, EXIT+1!, ADDELMNT+24*, PRINT+8, PRINT+9, PRINT+11, PRINT+15, PRINT+17, PRINT+18

Label References

Name	Line Occurrences
$$ASKRNG	BEGIN+10
$$PRNT	PRTELMNT+31
ADDELMNT	GATHER+16
ASK	PRINT+12, PRINT+22, PRINT+27, PRINT+32, PRTELMNT+14
ASKRNGQ	ASKRNG+8, ASKRNG+10
BUILD	DEV+12
DEV	DEV+2
EXIT	DEV+1, DEV+3
FHDR	PRINT+13, PRINT+22, PRTELMNT+14
GATHER	BUILD+7, BUILD+11
HDR	PRINT+9, PRINT+12, PRINT+22, PRINT+27, PRINT+34, PRTELMNT+14
PRINT	BUILD+12
PRTELMNT	PRINT+19

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	DEV+1*, DEV+10!
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
GTCT	PRINT+4~
GTCT(5	PRINT+7, PRINT+31, PRINT+35
GTCT(6	PRINT+7, PRINT+31, PRINT+36
ICT	PRINT+4~
ICT(	PRINT+10, PRINT+29, PRINT+30, PRINT+31, PRTELMNT+12
IDPRNT	PRNT+8~, PRNT+15, PRNT+16, PRNT+17, PRNT+18
IO	DEV+12, ASK+1
IO("Q"	DEV+3
IO(0	ASK+1
IOF	HDR+10
IOM	DEV+2, HDR+10, HDR+12
IOSL	PRINT+12, PRINT+22, PRINT+27, PRTELMNT+14
IOST	ASK+1
LNE	HDR+5~, HDR+12*, HDR+16
POP	DEV+1!
SCT	PRINT+4~
SCT(	PRINT+14, PRINT+24, PRINT+25, PRTELMNT+13
SELDIV	BEGIN+2, EXIT+1!
STDT	ASKRNG~, ASKRNG+7*, ASKRNG+8, ASKRNG+9
TIUAU	ADDELMNT+6~, ADDELMNT+10, ADDELMNT+11, PRINT+4~, PRTELMNT+17, PRTELMNT+29*
TIUAUECS	ADDELMNT+7~, ADDELMNT+11, ADDELMNT+15, ADDELMNT+18, ADDELMNT+23, ADDELMNT+24, PRINT+6~, PRINT+14, PRINT+15*, PRINT+17 , PRINT+18, PRINT+19, PRTELMNT~, PRTELMNT+19
TIUD0	ADDELMNT+7~, ADDELMNT+9, PRTELMNT+9~, PRTELMNT+10, PRTELMNT+11, PRTELMNT+16, PRTELMNT+17
TIUD12	ADDELMNT+6~, ADDELMNT+10, ADDELMNT+12, PRTELMNT+9~, PRTELMNT+10, PRTELMNT+17
TIUDA	GATHER+7~, GATHER+14, GATHER+15, GATHER+16, ADDELMNT~, ADDELMNT+8, ADDELMNT+9, ADDELMNT+10, ADDELMNT+24, PRINT+4~ , PRINT+18*, PRINT+19, PRTELMNT~, PRTELMNT+10, PRTELMNT+26, PRTELMNT+31, PRNT~, PRNT+10, PRNT+15
TIUDI	BEGIN+3, EXIT+1!
TIUDI(	BEGIN+4, BUILD+5, BUILD+6
TIUDI("ENTRIES"	BEGIN+5, BEGIN+7, BUILD+4
TIUDIV	DEV+10!
TIUECS	ADDELMNT+7~, ADDELMNT+10, ADDELMNT+11, PRINT+4~, PRTELMNT+17, PRTELMNT+28*
TIUEDT	ADDELMNT+6~, ADDELMNT+12, ADDELMNT+14, ADDELMNT+24, PRINT+4~, PRINT+16, PRINT+17*, PRINT+18, PRINT+19, PRTELMNT~ , PRTELMNT+24
TIUENDT	BEGIN+1~, BEGIN+10, BUILD+7, BUILD+11, BUILD+12, EXIT+1!, GATHER~, GATHER+16, ADDELMNT~, ADDELMNT+14 , PRINT~, PRINT+9, PRINT+12, PRINT+19, PRINT+22, PRINT+27, PRINT+34, PRTELMNT~, PRTELMNT+14, HDR~ , HDR+8
TIUI	BEGIN+1~, BEGIN+4*, BEGIN+5
TIUIFP	DEV+10!, BUILD+1~, BUILD+6, BUILD+7, BUILD+9, BUILD+10, BUILD+11, GATHER~, GATHER+9, GATHER+11 , GATHER+13, GATHER+15, ADDELMNT+6~, ADDELMNT+12, ADDELMNT+24, PRINT+5~, PRINT+7, PRINT+9, PRINT+10, PRINT+11 , PRINT+12, PRINT+14, PRINT+15, PRINT+17, PRINT+18, PRINT+19, PRINT+22, PRINT+24, PRINT+25, PRINT+27 , PRINT+28, PRINT+29, PRINT+30, PRINT+31, PRINT+34*, PRTELMNT~, PRTELMNT+12, PRTELMNT+13, PRTELMNT+14, HDR~ , HDR+9
TIUINST	HDR+5~, HDR+9*, HDR+11
TIUJ	GATHER+7~, GATHER+12, GATHER+13, GATHER+15
TIUK	BUILD+1~, BUILD+5*, BUILD+6
TIULST4	PRINT+5~, PRTELMNT+16*, PRTELMNT+21
TIUOUT	PRINT+5~, PRINT+7, PRINT+9, PRINT+11, PRINT+12, PRINT+15, PRINT+17, PRINT+21, PRINT+22, PRINT+26 , PRINT+27, PRINT+32, PRINT+33, PRTELMNT+14, ASK+3
TIUPG	PRINT+5~, PRINT+7, HDR+6, HDR+11
TIUPRNT	PRNT+8~, PRNT+9, PRNT+13, PRNT+18*, PRNT+19
TIUPT	PRINT+5~, PRTELMNT+16*, PRTELMNT+20
TIUR	HDR+5~, HDR+7
TIUR(0	HDR+11
TIURNG	HDR+5~, HDR+8*, HDR+10
TIURPT	BEGIN+15~, BEGIN+21*, BEGIN+22, DEV+2, DEV+10!, PRINT+13, PRINT+22, PRTELMNT+14, PRTELMNT+15, HDR+13
TIUS	GATHER+7~, GATHER+10, GATHER+11, GATHER+13, GATHER+15, ADDELMNT+7~, ADDELMNT+9, ADDELMNT+11, PRTELMNT+9~, PRTELMNT+11 , PRTELMNT+12, PRTELMNT+13, PRTELMNT+22, PRTELMNT+28, PRTELMNT+29
TIUSTDT	BEGIN+1~, BEGIN+10, BUILD+7, BUILD+11, BUILD+12, EXIT+1!, GATHER~, GATHER+16, ADDELMNT~, ADDELMNT+14 , PRINT~, PRINT+9, PRINT+12, PRINT+19, PRINT+22, PRINT+27, PRINT+34, PRTELMNT~, PRTELMNT+14, HDR~ , HDR+8
TIUSVC	ADDELMNT+6~, ADDELMNT+15, ADDELMNT+17, ADDELMNT+19, ADDELMNT+20, ADDELMNT+22, ADDELMNT+24, PRINT+5~, PRINT+10, PRINT+11* , PRINT+13, PRINT+14, PRINT+15, PRINT+17, PRINT+18, PRINT+19, PRINT+22, PRINT+23, PRINT+24, PRINT+25 , PRTELMNT~, PRTELMNT+13, PRTELMNT+14, FHDR~, FHDR+3
TIUSVCS	BEGIN+1~, BEGIN+13, BUILD+7, BUILD+11, EXIT+1!, GATHER~, GATHER+16, ADDELMNT~, ADDELMNT+17
TIUSVCS(	ADDELMNT+17
TIUTP	GATHER+7~, GATHER+8, GATHER+9, GATHER+11, GATHER+13, GATHER+15, PRINT+5~, PRTELMNT+17*, PRTELMNT+27
U	ADDELMNT+9, ADDELMNT+10, ADDELMNT+12, ADDELMNT+19, ADDELMNT+20, PRINT+28, PRTELMNT+11, PRTELMNT+16, PRTELMNT+17, HDR+9 , PRNT+10
Y	BEGIN+21!, ASK+2~, ASK+3, ASKRNG+5~, ASKRNG+11*, ASKRNGQ
ZTDESC	DEV+8*, DEV+10!
>> ZTQUEUED	BUILD+3
>> ZTREQ	BUILD+3*
ZTRTN	DEV+4*, DEV+10!
ZTSAVE	DEV+10!
ZTSAVE("TIUDI("	DEV+5*
ZTSAVE("TIUENDT"	DEV+6*
ZTSAVE("TIURPT"	DEV+5*
ZTSAVE("TIUSTDT"	DEV+6*
ZTSAVE("TIUSVCS"	DEV+7*
ZTSAVE("TIUSVCS("	DEV+7*
ZTSK	DEV+9, DEV+10!

Customize PDF page

Package: Text Integration Utility

Routine: TIURDIV

Information

Source Information

Call Graph

Call Graph Total: 14

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: