Routine: APCPPURG

Information

APCPPURG ; IHS/TUCSON/LAB - OHPRD-TUCSON/EDE PURGE VISIT POINTERS AUGUST 14, 1992 ; [ 04/03/98 08:39 AM ]

Source file <APCPPURG.m>

Package	Total	Call Graph
Patient Care Component Data Transmission	1	CHKSITE^APCPDRI
VA Fileman	1	^DIR

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

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Bye",!! Line Location: APCPPURG+4
Function Call: WRITE	Prompt: !!,"DONE",!! Line Location: APCPPURG+7
Function Call: WRITE	Prompt: !!,"Log entry ",APCP("LOG")," was for date range ",APCP("BEGIN DATE")," through ",APCP("END DATE"),!,"and generated ",APCP("COUNT")," transactions from ",APCP("VISITS")," visits." 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(APCP("COUNT")>1:"are",1:"is")," ",APCP("COUNT")," generation",$S(APCP("COUNT")>1:"s ",1:" "),"with VISIT data." Line Location: INIT+9
Routine Call	DIR Line Location: RDD+1 RD+1

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

Name	Field # of Occurrence
APCP	INIT+1!, EOJ+1!
APCP("BEGIN D	ATE" , DELCHK+1, DELCHK+2, DELCHK+5
APCP("COUNT"	DELCHK+1, DELCHK+5, INIT+3, INIT+7, INIT+8, INIT+9, CHKENTRY+3
APCP("END DAT	E" , DELCHK+1, DELCHK+3, DELCHK+5
APCP("LAST LO	G" , INIT+6*, INIT+7
APCP("LOG"	PROCESS+1*, DELCHK+1, DELCHK+4, DELCHK+5, RDD+2
APCP("OLDEST	LOG" , PROCESS+1, INIT+7, CHKENTRY+2
APCP("QFLG"	APCPPURG+4, PROCESS+1, RDD+3, INIT+2, INIT+3, INIT+5, INIT+8, RD+2*
APCP("VISITS"	DELCHK+4*, DELCHK+5
APCP("X"	INIT+6, INIT+7, CHKENTRY+1, CHKENTRY+2
DA	RDD+1!, RD+1!
DIR	RDD+1!, RD+1!
DIR("A"	RDD+1, RD+1
DIR("B"	RDD+1, RD+1
DIR(0	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