Routine: BDWPURG

Information

BDWPURG ; IHS/CMI/LAB - PURGE DW LOG ;

Source file <BDWPURG.m>

Package	Total	Call Graph
Data Warehouse Export System	1	CHKSITE^BDWRDRI
VA Fileman	1	^DIR

Name	Field # of Occurrence
CHKSITE^BDWRDRI	INIT+4
^DIR	BDWPURG+4, RDD+1, RD+1

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Bye",!! Line Location: BDWPURG+4
Function Call: WRITE	Prompt: !!,"DONE",!! Line Location: BDWPURG+7
Function Call: WRITE	Prompt: !!,"Log entry ",BDW("LOG")," was for date range ",BDW("BEGIN DATE")," through ",BDW("END DATE"),!,"and generated ",BDW("COUNT")," transactions from ",BDW("VISITS")," encounters." Line Location: DELCHK+5
Function Call: WRITE	Prompt: " Done" Line Location: RDD+2
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"SITE NOT SET!!!" Line Location: INIT+2
Function Call: WRITE	Prompt: !!,"No log entries with VISIT data." Line Location: INIT+8
Function Call: WRITE	Prompt: !!,"There ",$S(BDW("COUNT")>1:"are",1:"is")," ",BDW("COUNT")," generation",$S(BDW("COUNT")>1:"s ",1:" "),"with ENCOUNTER/VISIT data." Line Location: INIT+9
Routine Call	DIR Line Location: BDWPURG+4 RDD+1 RD+1

Name	Line Occurrences (* Changed, ! Killed)
^BDWXLOG - [#90213]	PROCESS+1, DELCHK+1, DELCHK+4, RDD+2!, INIT+6, INIT+7, CHKENTRY+1
^BDWXLOG(0	INIT+6
^DD("DD"	DELCHK+2, DELCHK+3

Name	Field # of Occurrence
BDW	INIT+1!, EOJ+1!
BDW("BEGIN DA	TE" , DELCHK+1, DELCHK+2, DELCHK+5
BDW("COUNT"	DELCHK+1, DELCHK+5, INIT+3, INIT+7, INIT+8, INIT+9, CHKENTRY+3
BDW("END DATE	" , DELCHK+1, DELCHK+3, DELCHK+5
BDW("LAST LOG	" , INIT+6*, INIT+7
BDW("LOG"	PROCESS+1*, DELCHK+1, DELCHK+4, DELCHK+5, RDD+2
BDW("OLDEST L	OG" , PROCESS+1, INIT+7, CHKENTRY+2
BDW("QFLG"	BDWPURG+4, PROCESS+1, RDD+3, INIT+2, INIT+3, INIT+5, INIT+8, RD+2*
BDW("VISITS"	DELCHK+4*, DELCHK+5
BDW("X"	INIT+6, INIT+7, CHKENTRY+1, CHKENTRY+2
DA	RDD+1!, RD+1!
DIR	BDWPURG+4!, RDD+1!, RD+1!
DIR("A"	BDWPURG+4, RDD+1, RD+1*
DIR("B"	RDD+1, RD+1
DIR(0	BDWPURG+4, RDD+1, RD+1*
>> DIRUT	RD+2
DUZ(2	INIT+2
U	DELCHK+1, DELCHK+4, INIT+6
>> X	DELCHK+1*
>> Y	DELCHK+2, DELCHK+3, RDD+2, RD+2