Routine: IBY593PR

Package	Total	Call Graph
Kernel	5	^%ZTLOAD $$HTFM^XLFDT UPDATE^XPDID (BMES,MES)^XPDUTL $$PROD^XUPROD
VA FileMan	2	(,DD)^%DT $$GET1^DIQ
Automated Information Collection System	1	$$ADD^IBDFDBS

Entry Points

Name	Comments	DBIA/ICR reference
POST	; POST ROUTINE(S)
DONE	; Displays the 'Done' message and finishes the progress bar
REINDEX(IBXPD)	; Run new indices. This is needed for entries at site not in file coming across.
PATIENT(IBXPD)	; Kick off Patient file update of Covered by Health Insurance flag (2.3192)
ADDSOI(IBXPD)	; Add new Source of Information.
EN35512	; Add Source of Information Codes
TASK(X,ZTDESC,ZTRTN)	;bypass for queued task
TASKQ	;
GETTASK(IDT)	;
SCHED(ZTDTH)	;

Name	Field # of Occurrence
^%DT	TASK+3
DD^%DT	TASK+4, TASK+9
^%ZTLOAD	SCHED+5
$$GET1^DIQ	ADDSOI+12
$$ADD^IBDFDBS	ADDSOI+9
$$HTFM^XLFDT	GETTASK+18
UPDATE^XPDID	REINDEX+10, PATIENT+10, ADDSOI+14
BMES^XPDUTL	REINDEX+1, PATIENT+1, ADDSOI+2, ADDSOI+11, ADDSOI+12
MES^XPDUTL	DONE+1, DONE+2, REINDEX+2, REINDEX+3, REINDEX+9, PATIENT+2, PATIENT+3, PATIENT+9, ADDSOI+3, ADDSOI+4 , ADDSOI+8, ADDSOI+13
$$PROD^XUPROD	POST+5

FileNo	Call Tags
^IBE(355.12 - [#355.12]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("UCI"	GETTASK+4, SCHED+3
^%ZTSK - [#14.4]	GETTASK+7, GETTASK+8, GETTASK+9
^IBE(355.12 - [#355.12]	ADDSOI+7

Name	Field # of Occurrence
>> %DT	TASK+2*
IBDATA	ADDSOI+1~, ADDSOI+9
IBDATA(	ADDSOI+6*, ADDSOI+7, ADDSOI+8, ADDSOI+11
IBERR	ADDSOI+1~, ADDSOI+9, ADDSOI+10
IBIEN	ADDSOI+1~, ADDSOI+9*, ADDSOI+12
IBLN	ADDSOI+1~, ADDSOI+5*
IBPCE	ADDSOI+1~, ADDSOI+6*
IBPRD	POST+1~, POST+5*
IBSTR	ADDSOI+1~, ADDSOI+5*, ADDSOI+6
IBXPD	POST+1~, REINDEX~, REINDEX+1, REINDEX+10, PATIENT~, PATIENT+1, PATIENT+10, ADDSOI~, ADDSOI+2, ADDSOI+13 , ADDSOI+14
IDT	TASK+1~, TASK+4*, TASK+7, TASK+13, GETTASK~
MSG	REINDEX+4~, REINDEX+8, REINDEX+9, PATIENT+4~, PATIENT+8, PATIENT+9, TASK+1~, TASK+10, TASK+16, TASK+19* , TASKQ+1
TASK	GETTASK+1~, GETTASK+6, GETTASK+7, GETTASK+8, GETTASK+9
TASKNO	GETTASK+1~, GETTASK+6*, GETTASK+7, GETTASK+20
TDT	GETTASK+1~, GETTASK+6, GETTASK+18, GETTASK+20
TSK	TASK+1~, TASK+7, TASK+8, TASK+9, TASK+10, TASK+13, TASK+16
U	ADDSOI+6, TASK+9, GETTASK+15, GETTASK+20
X	TASK~
XDT	TASK+1~, TASK+4*, TASK+19
XPDIDTOT	POST+1~, POST+2*, REINDEX+1, PATIENT+1, ADDSOI+2, ADDSOI+13
XUSUCI	GETTASK+1~, GETTASK+4, GETTASK+15, SCHED+1~, SCHED+3
Y	TASK+1~, TASK+4, TASK+9*, TASK+10, GETTASK+1~, GETTASK+4, SCHED+3
ZTDESC	REINDEX+4~, REINDEX+6, REINDEX+8, PATIENT+4~, PATIENT+6, PATIENT+8, TASK~, GETTASK+8
ZTDTH	SCHED~
ZTIO	TASK+1~, SCHED+1~, SCHED+4*
ZTQUEUED	REINDEX+4~, REINDEX+5, PATIENT+4~, PATIENT+5
ZTRTN	REINDEX+4~, REINDEX+7, REINDEX+8, PATIENT+4~, PATIENT+7, PATIENT+8, TASK~
ZTSK	TASK+1~, SCHED+1~, SCHED+6
ZTSK0	GETTASK+1~, GETTASK+9*, GETTASK+12, GETTASK+15, GETTASK+18

Name	Field # of Occurrence
$T(EN35512+IBLN	ADDSOI+5