Routine: APCHPWHP

Package	Total	Call Graph
VA Fileman	3	^%DT ^DIK ^DIR
Kernel	1	^%ZISC

Package

Total

Call Graph

^%DT ^DIK ^DIR

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"A Total of ",APCHCNT," Entries Purged.",! Line Location: DRIVER+2
Function Call: WRITE	Prompt: !!,"Purging Patient Wellness Handout Log!" Line Location: INIT+1
Function Call: WRITE	Prompt: !!,"This option is used to purge the file that maintains an entry each time a" Line Location: INIT+2
Function Call: WRITE	Prompt: !,"patient wellness handout is generated. This log can grow very large over" Line Location: INIT+3
Function Call: WRITE	Prompt: !,"time and older data can be purged from the file if that is desired. It is" Line Location: INIT+4
Function Call: WRITE	Prompt: !,"not necessary to do this but it will free up space on the disk drive. If" Line Location: INIT+5
Function Call: WRITE	Prompt: !,"you purge this file you will no longer be able to get a tally of handouts" Line Location: INIT+6
Function Call: WRITE	Prompt: !,"generated for the date range that has been purged.",! Line Location: INIT+7
Function Call: WRITE	Prompt: ! Line Location: GETDATE+2
Function Call: WRITE	Prompt: "." Line Location: PURGE+3
Routine Call	DIR Line Location: CONT+1

FileNo	Call Tags
^APCHPWHL - [#9001027]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^APCHPWHL("AC"	PURGE+1, PURGE+2
^DD("DD"	GETDATE+1, GETDATE+4

Name	Field # of Occurrence
%DT	GETDATE+2*, EOJ+1!
%DT("A"	GETDATE+2*
>> APCDCNT	PURGE+3
APCHCNT	DRIVER+2, INIT+8, PURGE+2, EOJ+1!
APCHDTP	GETDATE+1*, EOJ+1!
APCHDUZ	EOJ+1!
APCHPGE	GETDATE+4*, PURGE+1, EOJ+1!
APCHPGEY	GETDATE+4*, EOJ+1!
APCHQUIT	APCHPWHP+4, INIT+9!, GETDATE+3*
APCHX	PURGE+1*, PURGE+2, EOJ+1!
APCHY	PURGE+2*, EOJ+1!
D	EOJ+1!
D0	EOJ+1!
D1	EOJ+1!
DA	CONT+1!, PURGE+2*, EOJ+1!
DIC	EOJ+1!
DIE	EOJ+1!
>> DIK	PURGE+2*
DIR	CONT+1!
DIR("A"	CONT+1*
DIR("B"	CONT+1*
DIR(0	CONT+1*
>> DIRUT	CONT+3
DQ	EOJ+1!
DR	EOJ+1!
DT	GETDATE+1
POP	EOJ+1!
X	EOJ+1!
Y	CONT+2, GETDATE+1*, GETDATE+3, GETDATE+4, EOJ+1!
>> ZTQUEUED	EOJ+2
>> ZTREQ	EOJ+2*
ZTSK	EOJ+2!

Information