Routine: TIU199

Package	Total	Call Graph
VA Fileman	5	DD^%DT ^DIC FILE^DIE ENALL^DIK ^DIR
Text Integration Utility	3	DTRANGE^TIUADCL $$ISSURFOR^TIUADSIG $$HRCN^TIUR2
Registration	2	DEM^VADPT (CLEAR,PAUSE)^VALM1

Package	Total	Caller Graph
Text Integration Utility	1	TIU MARK SIGNED BY SURROGATE

Entry Points

Name	Comments	DBIA/ICR reference
HEAD	;
EN	; MAIN DRIVER
GETPAT(TIUDFN)	;
PROMPT()	; PROMPT BASED ON DATA IN ^TMP($J) - QUIT VALUE DETERMINES FLOW IN LOOP/EN LINE TAGS
TRIGGER	; trigger code for the .05 field of file 8925.7 ; note - do not "NEW" DA or X as these are passed in from FileMan
POST199	; REINDEX THE ABBREVIATION FIELD OF FILE 8925.1
PRINT	;
NODATA()	;
LOOP	;
GATHER	; COLLECT DATA BASED ON SEARCH CRITERIA

External References

Name	Field # of Occurrence
DD^%DT	PRINT+7
^DIC	EN+5
FILE^DIE	TRIGGER+6, PROMPT+15
ENALL^DIK	POST199+3
^DIR	PROMPT+6
DTRANGE^TIUADCL	EN+7
$$ISSURFOR^TIUADSIG	TRIGGER+4
$$HRCN^TIUR2	GETPAT+6
DEM^VADPT	GETPAT+3
CLEAR^VALM1	EN+2, PROMPT+11, HEAD+1, NODATA+1
PAUSE^VALM1	NODATA+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: PROMPT+2
Function Call: WRITE	Prompt: "ADDITIONAL SIGNER: ",TIUNAME,!! Line Location: HEAD+2
Function Call: WRITE	Prompt: !,"SEQ",?5,"PATIENT",?31,"DOCUMENT TYPE",?58,"REFERENCE DATE" Line Location: HEAD+3
Function Call: WRITE	Prompt: !,"---",?5,"-------",?31,"-------------",?58,"--------------" Line Location: HEAD+4
Function Call: WRITE	Prompt: !!,?15,"NO DATA TO REPORT FOR THIS SEARCH" Line Location: NODATA+2
Routine Call	DIC Line Location: EN+5
Routine Call	DIE Line Location: TRIGGER+6 PROMPT+15
Routine Call	DIR Line Location: PROMPT+6

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(200 - [#200]	Classic Fileman Calls
^TIU(8925.1 - [#8925.1]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TIU(8925 - [#8925]	GATHER+14, GATHER+17
^TIU(8925.1 - [#8925.1]	PRINT+6
^TIU(8925.6 - [#8925.6]	EN+9
^TIU(8925.7 - [#8925.7]	TRIGGER+3, GATHER+4, GATHER+6, GATHER+9, GATHER+10
^TMP($J	LOOP+1, LOOP+2, LOOP+8!, GATHER+2!, GATHER+22*, PRINT+4, PRINT+5, PROMPT+10, PROMPT+13, PROMPT+16! , PROMPT+17

Label References

Name	Line Occurrences
$$GETPAT	GATHER+21
$$NODATA	LOOP+1
$$PROMPT	LOOP+4
EN	LOOP+7
GATHER	EN+10
HEAD	PRINT+2
LOOP	LOOP+6
PRINT	LOOP+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DA	TRIGGER+3, TRIGGER+5
DFN	GETPAT+1~, GETPAT+2*, GETPAT+6
DIC	EN+1~, EN+3*
DIC("A"	EN+4*
DIC(0	EN+3*
DIK	POST199+1~, POST199+2*
DIK(1	POST199+2*
DIR	PROMPT+1~
DIR("A"	PROMPT+3, PROMPT+4
DIR(0	PROMPT+5*
DIRUT	PROMPT+1~, PROMPT+8, NODATA+3~, NODATA+5
DTOUT	EN+1~, EN+6
DUOUT	EN+1~, EN+6
DUZ(2	GETPAT+6
FDA	TRIGGER+2~, PROMPT+1~
FDA(	TRIGGER+5, PROMPT+14
HRCN	GETPAT+1~, GETPAT+6*, GETPAT+8
TIU0	TRIGGER+2~, GATHER+1~, GATHER+14*, GATHER+15, GATHER+20
TIU13	GATHER+1~, GATHER+17*, GATHER+18
TIUA0	GATHER+1~, GATHER+10*, GATHER+11, GATHER+12, GATHER+13
TIUADD	GATHER+1~, GATHER+5, GATHER+6, GATHER+7, GATHER+9
TIUAIEN	GATHER+1~, GATHER+8, GATHER+9, GATHER+10, GATHER+22, PROMPT+1~, PROMPT+13*, PROMPT+14
TIUCNT	GATHER+1~, GATHER+3, GATHER+22, GATHER+23, PRINT+1~, PRINT+3, PRINT+4, PRINT+5, PRINT+8
TIUCSTAT	EN+1~, EN+9*, GATHER+16
TIUDATA	PRINT+1~, PRINT+5*, PRINT+6, PRINT+7, PRINT+8
TIUDFN	GATHER+1~, GATHER+20*, GATHER+21, GETPAT~, GETPAT+2
TIUDOC	TRIGGER+2~
TIUDTS	EN+1~, EN+7
TIUDTS("BEGDT"	EN+8, GATHER+19
TIUDTS("ENDDT"	EN+8, GATHER+19
TIUDTYP	GATHER+1~, GATHER+20*, GATHER+22
TIUEXP	TRIGGER+2~, TRIGGER+3*, TRIGGER+4
TIUNAME	EN+1~, EN+5*, HEAD+2
TIUND	NODATA+3~, NODATA+5, NODATA+6
TIUNOTE	GATHER+1~, GATHER+3, GATHER+4, GATHER+6, GATHER+9, GATHER+14, GATHER+17
TIUPAT	GATHER+1~, GATHER+21*, GATHER+22
TIUPERS	EN+1~, EN+5*, GATHER+7
TIUPN	GETPAT+1~, GETPAT+8*, GETPAT+10
TIUQ	EN+1~, EN+11, LOOP+1, LOOP+4*, LOOP+6, LOOP+7
TIURFDT	GATHER+1~, GATHER+18, GATHER+19, GATHER+22, PRINT+1~, PRINT+7, PRINT+8
TIUSET	TRIGGER+2~, TRIGGER+3, TRIGGER+4, TRIGGER+5
TIUSSN	GETPAT+1~, GETPAT+4*
TIUSTAT	GATHER+1~, GATHER+15*, GATHER+16
TIUTYP	PRINT+1~, PRINT+6*, PRINT+8
VADM	GETPAT+1~
VADM(1	GETPAT+8
VADM(2	GETPAT+4
X	TRIGGER+4, PROMPT+1~, PROMPT+9, PROMPT+10, PROMPT+13, PROMPT+16
Y	EN+1~, EN+5, EN+6, PRINT+7*

Customize PDF page

Package: Text Integration Utility

Routine: TIU199

Information

Source Information

Call Graph

Call Graph Total: 10

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: