Routine: TIUPUTC1

Package	Total	Call Graph
Text Integration Utility	5	$$CHKFILE^TIUADCL $$STRIP^TIULS $$ISA^TIULX MAIN^TIUPEVNT $$WHATYPE^TIUPUTU
VA FileMan	4	^%DT NOW^%DTC ^DIC CHK^DIE

Package

Total

Call Graph

Text Integration Utility

$$CHKFILE^TIUADCL $$STRIP^TIULS $$ISA^TIULX MAIN^TIUPEVNT $$WHATYPE^TIUPUTU

VA FileMan

^%DT NOW^%DTC ^DIC CHK^DIE

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Text Integration Utility	1	TIUPUTC

Entry Points

Name	Comments	DBIA/ICR reference
GETREC(HEADER,RECORD,TIUHDR)	; ---- Look-up/create record (if LAYGO allowed)
FAIL	; Log Filing Error ; ---- If lookup fails, log 8925.4 error w/ hdr info. Create new ; 8925.2 buffer entry with hdr, text, & 8925.4 log #. ; Kill most of old buffer. Send file error alerts:
DICTDT(DATE)	;TEST** -- Returns 1 if Discharge Summary's Dictation Date is in the future, 0 otherwise

External References

Name	Field # of Occurrence
^%DT	DICTDT+2
NOW^%DTC	DICTDT+2
^DIC	GETREC+65
CHK^DIE	GETREC+47, GETREC+48
$$CHKFILE^TIUADCL	GETREC+35
$$STRIP^TIULS	GETREC+3, GETREC+33, GETREC+40
$$ISA^TIULX	GETREC+35
MAIN^TIUPEVNT	GETREC+4, GETREC+10, GETREC+14, GETREC+68, FAIL+4
$$WHATYPE^TIUPUTU	GETREC+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,">>> HEADER IDENTIFIED:",!,HEADER Line Location: GETREC+2
Function Call: WRITE	Prompt: !,TIULINE Line Location: GETREC+26
Function Call: WRITE	Prompt: !,"Future dictation dates are not allowed for this type of document" Line Location: GETREC+36
Function Call: WRITE	Prompt: !,TIUBGN,! Line Location: GETREC+41
Routine Call	DIC Line Location: GETREC+65
Routine Call	DIE Line Location: GETREC+47 GETREC+48

FileNo	Call Tags
^TIU(8925 - [#8925]	CHK^DIE

FileNo

Call Tags

^TIU(8925 - [#8925]

CHK^DIE

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC - [#1]	GETREC+13
^TIU(8925.1 - [#8925.1]	GETREC+7, GETREC+29, GETREC+30, GETREC+32, GETREC+39, GETREC+68, FAIL+4
^TIU(8925.2 - [#8925.2]	GETREC+24, GETREC+25
^TMP("TIUPUTC"	GETREC+6, GETREC+12, GETREC+16, GETREC+36, GETREC+70, FAIL+6

Name	Line Occurrences
$$DICTDT	GETREC+35
FAIL	GETREC+45, GETREC+57

Name

Line Occurrences

$$DICTDT

GETREC+35

FAIL

GETREC+45, GETREC+57

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	DICTDT+1~, DICTDT+2
%DT	DICTDT+1~, DICTDT+2*
>> DA	GETREC+4, GETREC+10, GETREC+14, GETREC+24, GETREC+25, GETREC+68, FAIL+4
DATE	DICTDT~, DICTDT+2
DIC	GETREC+1~, GETREC+61*
DIC(0	GETREC+61, GETREC+62, GETREC+63*, GETREC+65
DLAYGO	GETREC+1~, GETREC+42*
HEADER	GETREC~, GETREC+2, GETREC+3
RECORD	GETREC~
RECORD("#"	GETREC+56, GETREC+66
RECORD("BOILON"	GETREC+9*
RECORD("FILE"	GETREC+8*, GETREC+10, GETREC+13, GETREC+42, GETREC+61
RECORD("ROOT"	GETREC+13*
RECORD("TEXT"	GETREC+19, GETREC+20
RECORD("TYPE"	GETREC+8*, GETREC+29, GETREC+30, GETREC+32, GETREC+39, GETREC+45, GETREC+68, FAIL+4
>> TIUBGN	GETREC+21, GETREC+25, GETREC+41
TIUCAP	GETREC+22~, GETREC+28*, GETREC+29, GETREC+31
TIUD1	GETREC+1~, GETREC+7*, GETREC+8, GETREC+9, GETREC+14, GETREC+17, GETREC+19, GETREC+42, GETREC+62
TIUD4	GETREC+1~, GETREC+7*, GETREC+51, GETREC+56
TIUDSFTR	GETREC+1~, GETREC+35*
>> TIUFDT	GETREC+36*, GETREC+41
TIUFIELD	GETREC+22~, GETREC+30*, GETREC+31, GETREC+33, GETREC+35, GETREC+36, GETREC+37
TIUHDR	GETREC~
TIUHDR(	GETREC+33, GETREC+36, GETREC+37, GETREC+40, GETREC+53, GETREC+55, GETREC+63, GETREC+64
TIUHDR("1307"	GETREC+35
TIUHDR("TIUDDT"	GETREC+47
TIUHDR(1202	GETREC+48
>> TIUI	GETREC+21, GETREC+24*, GETREC+25
TIUJ	GETREC+52~, GETREC+54, GETREC+59
TIUKEY	GETREC+1~, GETREC+64*, GETREC+65
>> TIULINE	GETREC+21, GETREC+25*, GETREC+26, GETREC+28, GETREC+33, GETREC+40
TIUNOD	GETREC+22~, GETREC+29*, GETREC+30, GETREC+32, GETREC+39, GETREC+52~
>> TIUREC("TYPE"	GETREC+35
TIUREQ	GETREC+22~, GETREC+32, GETREC+37
TIUVALID	GETREC+44~, GETREC+45, GETREC+47, GETREC+48, GETREC+51
TIUVAR	GETREC+22~, GETREC+39, GETREC+40, GETREC+52~, GETREC+53*, GETREC+54, GETREC+55
TIUVAR(	GETREC+54*, GETREC+59
U	GETREC+8, GETREC+9, GETREC+14, GETREC+17, GETREC+19, GETREC+30, GETREC+32, GETREC+39, GETREC+42, GETREC+62 , GETREC+68, FAIL+4
X	GETREC+1~, GETREC+3, GETREC+4, GETREC+5, GETREC+10, GETREC+11, GETREC+14, GETREC+15, GETREC+65, DICTDT+1~ , DICTDT+2*
Y	GETREC+1~, GETREC+3*, GETREC+4, GETREC+7, GETREC+8, GETREC+56, GETREC+57, GETREC+66, GETREC+67, DICTDT+1~ , DICTDT+2
>> ZTQUEUED	GETREC+2, GETREC+5, GETREC+11, GETREC+15, GETREC+26, GETREC+31, GETREC+36, GETREC+41

Customize PDF page

Package: Text Integration Utility