Routine: TIUPEVNT

Information

TIUPEVNT ; SLC/JER,AJB - Event logger for upload/filer ;Sep 18, 2021@22:54:45

Package	Total	Call Graph
Text Integration Utility	9	$$NOW^TIULC $$FIXCODE^TIULC1 GETTIU^TIULD SETPARM^TIULE ($$DATE,$$NAME,$$STRIP)^TIULS (FIELDS,WHOGETS)^TIUPEVN1 $$WHATITLE^TIUPUTU $$READ^TIUU ($$MAKEBUF,FILE)^TIUUPLD
VA FileMan	3	^DIC (,CHK)^DIE EN^DIWE
Kernel	1	(DELETEA,SETUP)^XQALERT

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: 11

Package	Total	Caller Graph
Text Integration Utility	11	TIUCPFIX TIUFIX1 TIUPEFIX TIUPUTA TIUPUTC TIUPUTC1 TIUPUTD TIUPUTS TIUPUTSX TIURE TIUTSK

Entry Points

Name	Comments	DBIA/ICR reference
MAIN(BUFDA,ETYPE,ECODE,TIUTYPE,FDA,MSG)	; ---- Controls branching
LOG(BUFDA,ETYPE,ECODE,TIUTYPE,EVNTDA,FDA,MSG)	; ---- Register event in ; TIU UPLOAD LOG file ; (#8925.4)
ERRMSG(ETYPE,ECODE,TIUTYPE,FDA,MSG)	; ---- Set error messages
ERRMSX
ALERT(BUFDA,ERRMSG,EVNTDA)	; ---- Send alerts for filing errors
DISPLAY	; ---- Alert followup action for filing errors
DISPX
WRITEHDR(EVNTDA,TIUTYPE,TIUINQ)	; ---- Write header to screen
VALID(TIULINE,TIUFLD,TIUVALID)	;Is header missing valid Author or DDT?
ALERTDEL(DA)	; ---- Delete alerts associated with a given record
RESOLVE(EVNTDA,ECHO)	; ---- Indicate resolution of error
INQRHELP	; Help for Upload Error Inquire to Patient Record prompt

External References

Name	Field # of Occurrence
^DIC	LOG+6, LOG+38, ERRMSG+7
^DIE	LOG+13, LOG+33, RESOLVE+10
CHK^DIE	VALID+2
EN^DIWE	DISPLAY+25
$$NOW^TIULC	LOG+6, RESOLVE+3
$$FIXCODE^TIULC1	DISPLAY+14
GETTIU^TIULD	ERRMSG+11
SETPARM^TIULE	DISPLAY+3
$$DATE^TIULS	ERRMSG+14
$$NAME^TIULS	ERRMSG+12
$$STRIP^TIULS	VALID+1
FIELDS^TIUPEVN1	MAIN+8
WHOGETS^TIUPEVN1	ALERT+8
$$WHATITLE^TIUPUTU	ALERT+6
$$READ^TIUU	DISPLAY+17, DISPLAY+24, DISPLAY+26
$$MAKEBUF^TIUUPLD	LOG+21
FILE^TIUUPLD	DISPLAY+32
DELETEA^XQALERT	ALERTDEL+2
SETUP^XQALERT	ALERT+21

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: DISPLAY+17
Function Call: WRITE	Prompt: !!,"Filing error resolution code could not be found for this document type.",!,"Please edit the buffered data directly and refile." Line Location: DISPLAY+22
Function Call: WRITE	Prompt: !!,"You may now edit the buffered upload data in an attempt to resolve error:",!,$P(XQADATA,";",2),! Line Location: DISPLAY+23
Function Call: WRITE	Prompt: !!,"The header of the original, failed record looks like this:",! Line Location: WRITEHDR+7
Function Call: WRITE	Prompt: !,TIULINE Line Location: WRITEHDR+9
Function Call: WRITE	Prompt: !,"Do you wish to be prompted for the data necessary to resolve the filing error?" Line Location: INQRHELP+1
Function Call: WRITE	Prompt: !,"If not, answer NO to proceed and edit the buffered data directly without" Line Location: INQRHELP+2
Function Call: WRITE	Prompt: !,"prompts, or enter '^' to come back and resolve the error later." Line Location: INQRHELP+3
Routine Call	DIC Line Location: LOG+6 LOG+38 ERRMSG+7
Routine Call	DIE Line Location: LOG+13 LOG+33 RESOLVE+10
Routine Call	DIE Line Location: VALID+2

FileNo	Call Tags
^TIU(8925 - [#8925]	CHK^DIE
^TIU(8925.4 - [#8925.4]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TIU(8925.2 - [#8925.2]	LOG+5, LOG+18, LOG+24, LOG+26!, LOG+27, LOG+29, LOG+30!, LOG+31, LOG+35*, ALERT+3
^TIU(8925.4 - [#8925.4]	LOG+16, LOG+18, LOG+19*, WRITEHDR+8, WRITEHDR+9, RESOLVE+7
^TIU(8925.99 - [#8925.99]	ALERT+12, ALERT+13, ALERT+14
^VA(200 - [#200]	ALERTDEL+2

Label References

Name	Line Occurrences
$$ERRMSG	LOG+10
ALERT	LOG+42
ALERTDEL	DISPLAY+30
DISPX	DISPLAY+9, DISPLAY+24
ERRMSX	ERRMSG+2, ERRMSG+6, ERRMSG+10
LOG	MAIN+6
RESOLVE	DISPLAY+21, DISPLAY+31
VALID	WRITEHDR+13
WRITEHDR	DISPLAY+13

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BUFDA	MAIN~, MAIN+6, LOG~, LOG+5, LOG+18, LOG+26, LOG+27, LOG+29, LOG+30, ALERT~ , ALERT+3, ALERT+16, ALERT+19
BUFREC	LOG+3~, LOG+5, LOG+12, ALERT+1~, ALERT+3
DA	LOG+3~, LOG+10, LOG+13!, LOG+33, ERRMSG+1~, ERRMSG+11~, ALERTDEL~, ALERTDEL+1, ALERTDEL+2, RESOLVE+1~ , RESOLVE+5, RESOLVE+7
DA(1	LOG+36*
DIC	LOG+3~, LOG+6, LOG+10, LOG+36, LOG+39!, ERRMSG+1~, ERRMSG+7, DISPLAY+1~, DISPLAY+25
DIC(0	LOG+6, LOG+36, ERRMSG+7*
DIE	LOG+3~, LOG+10, LOG+33, ERRMSG+1~, RESOLVE+1~, RESOLVE+4*
>> DIRUT	DISPLAY+18
DLAYGO	LOG+3~, LOG+6, LOG+35, LOG+39!
DR	LOG+3~, LOG+12, LOG+33, RESOLVE+1~, RESOLVE+9*
DT	LOG+16, LOG+24
DUZ(2	LOG+12, ALERT+12
DWPK	DISPLAY+1~, DISPLAY+25*
ECHO	RESOLVE~, RESOLVE+2
ECODE	MAIN~, MAIN+6, LOG~, LOG+10, ERRMSG~, ERRMSG+6, ERRMSG+7
ERRMSG	LOG+3~, LOG+10, LOG+12, LOG+41, LOG+43, ALERT~, ALERT+17, ALERT+19
ETYPE	MAIN~, MAIN+6, MAIN+8, LOG~, LOG+10, LOG+12, LOG+14, ERRMSG~, ERRMSG+2, ERRMSG+6
EVNTDA	MAIN+1~, MAIN+7, MAIN+8, LOG~, LOG+10, LOG+16, LOG+18, LOG+19, LOG+33, LOG+37 , LOG+41, LOG+43, ALERT~, ALERT+19, DISPLAY+1~, DISPLAY+5, WRITEHDR~, WRITEHDR+8, WRITEHDR+9, RESOLVE~ , RESOLVE+5
FDA	MAIN~, MAIN+2, MAIN+7, LOG~, LOG+9, LOG+11, ERRMSG~
FDA(8925	ERRMSG+11
INQUIRE	DISPLAY+1~, DISPLAY+17*, DISPLAY+19
MSG	MAIN~, MAIN+2, MAIN+9, LOG~, LOG+9, LOG+11, ERRMSG~
MSG("DIERR"	ERRMSG+10, ERRMSG+16
NEWBUF	LOG+3~, LOG+21*, LOG+22, LOG+24, LOG+26, LOG+29, LOG+31, LOG+33, LOG+35, LOG+36 , LOG+42
PRFILERR	DISPLAY+2~, DISPLAY+28*
RESCODE	DISPLAY+1!, DISPLAY+14*, DISPLAY+16, DISPLAY+19
RESTIME	RESOLVE+1~, RESOLVE+3*, RESOLVE+9
RETRY	DISPLAY+1~, DISPLAY+26*, DISPLAY+28, DISPLAY+30, DISPLAY+31, DISPLAY+32
TIU	ERRMSG+11~, DISPLAY+1~
TIU("EDT"	ERRMSG+14
TIU("PID"	ERRMSG+14
TIU("PNM"	ERRMSG+12
TIUBLIN	LOG+23~
TIUBUF	DISPLAY+2~, DISPLAY+8*, DISPLAY+25, DISPLAY+30, DISPLAY+32
TIUDAD	ALERT+8~
TIUDONE	DISPLAY+1!, DISPLAY+9, DISPLAY+21
TIUERMSG	LOG+4~, LOG+41*, LOG+42, LOG+43
TIUEVNT	DISPLAY+2~, DISPLAY+5*, DISPLAY+9, DISPLAY+13, DISPLAY+21, DISPLAY+31
TIUEVTDA	MAIN+1~, MAIN+6, MAIN+7, LOG+4~, LOG+41*, LOG+42, LOG+43
TIUFDA	MAIN+1~, MAIN+2, MAIN+6, MAIN+7, LOG+4~, LOG+9, LOG+10, LOG+11
TIUFLD	WRITEHDR+4~, WRITEHDR+12*, WRITEHDR+13, VALID~, VALID+2
>> TIUFRST	LOG+17, LOG+25
>> TIUHDR(	ERRMSG+4
>> TIUHDR("TIUTITLE"	ERRMSG+13, ALERT+6
>> TIUHSIG	LOG+27
TIUI	LOG+17, LOG+29, ALERT+1~, ALERT+12, ALERT+13, ALERT+14, WRITEHDR+4~, WRITEHDR+6, WRITEHDR+8, WRITEHDR+9 , RESOLVE+1~
TIUINQ	DISPLAY+2~, DISPLAY+13, WRITEHDR~, WRITEHDR+14
>> TIUINST	LOG+12
TIUJ	LOG+23~, LOG+25, LOG+26, LOG+27, LOG+29, LOG+30
TIUK	LOG+3~, LOG+17*, LOG+18
TIUL	LOG+3~, LOG+17, LOG+18, LOG+19, LOG+23~, LOG+25, LOG+26, LOG+28, LOG+29, LOG+31
TIULINE	WRITEHDR+4~, WRITEHDR+9, WRITEHDR+10, WRITEHDR+12, WRITEHDR+13, VALID~, VALID+1, VALID+2
TIUMSG	MAIN+1~, MAIN+2, MAIN+6, MAIN+8, MAIN+9, LOG+4~, LOG+9, LOG+10, LOG+11
>> TIUPRM0	LOG+17, DISPLAY+3
>> TIUPRM1	DISPLAY+3
>> TIUREC("FILE"	ERRMSG+4
>> TIUREC("TYPE"	ALERT+7, ALERT+19
TIUSKIP	DISPLAY+2~, DISPLAY+9, DISPLAY+18*
TIUSUB	ALERT+1~, ALERT+13*, ALERT+14
>> TIUTITLE	ERRMSG+3
TIUTYPE	MAIN~, MAIN+6, LOG~, LOG+10, LOG+12, ERRMSG~, ERRMSG+3, ERRMSG+4, ERRMSG+8, ERRMSG+13* , ERRMSG+14, DISPLAY+1!, DISPLAY+10*, DISPLAY+13, DISPLAY+14, WRITEHDR~, WRITEHDR+10
TIUVALID	WRITEHDR+4~, WRITEHDR+5, WRITEHDR+11, WRITEHDR+13, WRITEHDR+14, VALID~, VALID+2, VALID+3
TIUXQA	ALERT+2~, ALERT+8*
TYPE	ALERT+1~, ALERT+6, ALERT+7, ALERT+8
U	LOG+12, LOG+17, LOG+19, LOG+31, ERRMSG+8, RESOLVE+7
X	LOG+3~, LOG+6, LOG+37, ERRMSG+1~, ERRMSG+7*, RESOLVE+1~
XQA	ALERT+1~, ALERT+8*, ALERT+11, ALERT+15, ALERTDEL+1~
XQA(	ALERT+14*
XQADATA	ALERT+1~, ALERT+19*, DISPLAY+5, DISPLAY+8, DISPLAY+10, DISPLAY+23
XQAID	ALERT+1~, ALERT+16, ALERTDEL+1~, ALERTDEL+2*
XQAKILL	ALERT+1~, DISPLAY+1!, ALERTDEL+1~
XQAMSG	ALERT+1~, ALERT+17*, ALERT+18
XQAROU	ALERT+1~, ALERT+20*
XQX1	DISPX!
Y	LOG+3~, LOG+7, LOG+10, ERRMSG+1~, ERRMSG+2, ERRMSG+8, ERRMSG+12, ERRMSG+14, ERRMSG+16*, ERRMSX , RESOLVE+1~
Y(0	ERRMSG+8
>> ZTQUEUED	ALERT+18

Customize PDF page

Package: Text Integration Utility