Routine: DG53461

Information

DG53461 ;ALB/AEG - DG*5.3*461 POST-INSTALLATION ;7-2-2002

Source file <DG53461.m>

Package	Total	Call Graph
Kernel	2	($$DT,$$FMTE,$$NOW)^XLFDT ($$COMCP,$$NEWCP,$$UPCP,$$VERCP,BMES,MES)^XPDUTL
Registration	2	(M1,M2,M3,MESS)^DG53461U $$UPD^DGENDBS
VA Fileman	1	C^%DTC

Name	Comments	DBIA/ICR reference
EN	; Main Entry Point.
PURGE	; Cleanup duplicate CD procedures and report on those procedures.
EN1	; Control process flow from this point forward.
INIT	; Initialize Tracking Global and associated checkpoints.
CLEAN	; Cleanup symbol table / temp globals and get out.
SETTMP(DFN,P1)	; Return data value of specific entry being looked at
DUPL	; Clean-up Duplicate Entries.
LOOP	; Initial Pass through the patient file to determine which records have ; corrupted data.

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	LOOP+8, LOOP+10, LOOP+13, LOOP+15, SETTMP+1, SETTMP+2, DUPL+9, DUPL+10, PURGE+13
^TMP("DUPLICATE"	DUPL+9, DUPL+10, PURGE+1, PURGE+3, PURGE+7, PURGE+8
^TMP("ERROR"	PURGE+12*, PURGE+19
^TMP($J	INIT+1!, SETTMP+1, SETTMP+2, DUPL+4, DUPL+5, DUPL+6, DUPL+14!, CLEAN+1!
^UTILITY("SCRATCH"	DUPL+7*, DUPL+8, DUPL+14!
^UTILITY($J	DUPL+9, DUPL+10, PURGE+13!, PURGE+18, CLEAN+1!
^XTMP("DG-"	INIT+11, INIT+13, INIT+14
^XTMP("DG-DFN"	INIT+1!, INIT+16, INIT+21, CLEAN+1!
^XTMP("DG-P1"	INIT+1!, INIT+17, INIT+22, CLEAN+1!

Name	Field # of Occurrence
%	INIT+2~, INIT+6, INIT+8, INIT+20, INIT+23, INIT+24, EN1+2~, EN1+4, LOOP+18~, LOOP+19 , LOOP+24~, LOOP+25*
COUNT	DUPL+2~, DUPL+5*, DUPL+6, DUPL+7
DATA	PURGE+9~, PURGE+11
DATA(	PURGE+10*
DFN	LOOP+5~, LOOP+8, LOOP+10, LOOP+13, LOOP+15, LOOP+16, LOOP+25, SETTMP~, SETTMP+1, SETTMP+2 , DUPL+2~, DUPL+3, DUPL+4, DUPL+5, DUPL+6, DUPL+7, DUPL+8, DUPL+9, DUPL+10, PURGE+5~ , PURGE+6, PURGE+7*, PURGE+8, PURGE+10, PURGE+12, PURGE+13
DGCNT	LOOP+5~, LOOP+8*, LOOP+9
DGDOD	LOOP+5~, LOOP+10*, LOOP+12
DGENDA	PURGE+9~, PURGE+10*, PURGE+11
DGENDA(1	PURGE+10*
DT	INIT+12
ERROR	PURGE+11, PURGE+12, CLEAN+2!
I	INIT+2~, INIT+10, INIT+11, INIT+13, INIT+14, LOOP+14~, DUPL+2~, DUPL+6, DUPL+7, DUPL+8 , DUPL+9, DUPL+10
IJ	DUPL+2~, DUPL+6*, DUPL+7, DUPL+8, DUPL+9, DUPL+10
MESS	LOOP+4~, CLEAN+2!
P1	LOOP+14~, LOOP+15*, LOOP+16, LOOP+19, SETTMP~, SETTMP+2
PIEN	LOOP+14~, LOOP+15, PURGE+5~, PURGE+6, PURGE+8*, PURGE+10
U	INIT+13, LOOP+10, LOOP+13, SETTMP+1, DUPL+9, DUPL+10, PURGE+13
VAL	DUPL+2~, DUPL+6*, DUPL+8, DUPL+9, PURGE+5~
VAL1	DUPL+2~, DUPL+6*, DUPL+8, DUPL+10
X	INIT+2~, INIT+13
X1	INIT+2~, INIT+12*
X2	INIT+2~, INIT+12*
XMZ	CLEAN+2!
>> XPDNM	INIT+4, INIT+15, INIT+20, LOOP+19, LOOP+25
ZTQUEUED	LOOP+7, LOOP+9, CLEAN+2!