Routine: FBAABPG

Entry Points

Name	Line Occurrences
Function Call: WRITE	Prompt: *7,!!,"DUZ and DUZ(0) must be defined as a valid user to run the batch purge.",!! Line Location: FBAABPG+3
Function Call: WRITE	Prompt: *7,!!,"You must have programmer access (DUZ(0)='@') before running the batch purge.",!! Line Location: FBAABPG+4
Function Call: WRITE	Prompt: !,*7,?7,"There are no batches finalized !!" Line Location: FBAABPG+6
Function Call: WRITE	Prompt: !,"This option is used to purge Fee Basis batch numbers that were" Line Location: RD+0
Function Call: WRITE	Prompt: !,"finalized before a specified date (at least 18 months ago)." Line Location: RD+1
Function Call: WRITE	Prompt: ! Line Location: SETDT+0
Function Call: WRITE	Prompt: @IOF Condition for execution: $E(IOST,1,2)="C-" Line Location: START+0
Function Call: WRITE	Prompt: ?15,"* BEGIN FEE BASIS BATCH NUMBER PURGE *",!!! Line Location: START+0
Function Call: WRITE	Prompt: "." Line Location: GOT+0
Function Call: WRITE	Prompt: !!,?10,"There are no batch numbers to purge for this time frame !! " Line Location: PRT+0
Function Call: WRITE	Prompt: !!!!,?15,"* FEE BASIS BATCH NUMBER PURGE FINISHED *" Line Location: PRT+3
Routine Call	DIR Line Location: SETDT+6

FileNo	Call Tags
^FBAA(161.7 - [#161.7]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^FBAA(161.4 - [#161.4]	PRT+2*
^FBAA(161.7 - [#161.7]	FBAABPG+6, START+1, MORE
^FBAA(162.1 - [#162.1]	RPHP, RPHP+1!
^FBAAC - [#162]	MEDP, TRAVP
^FBAAC("AC"	MEDP, MEDP+1!
^FBAAC("AD"	TRAVP, TRAVP+1!
^FBAAI - [#162.5]	CHP*
^FBAAI("AC"	CHP, CHP+1!
^FBAAI("AE"	CHP+1!
^VA(200 - [#200]	PRT+4

Name	Field # of Occurrence
^("FBREJ"	CHP
^(0	MEDP, TRAVP, RPHP*, PRT+4

Name	Field # of Occurrence
%DT	SETDT*, SETDT+2!
%DT("A"	SETDT+1*
%DT(0	SETDT*
B	MORE*, END!
CNT	START, GOT, PRT, PRT+1, PRT+4, END!
D0	END!
D1	END!
DA	GOT*, END!
DIC	END!
DIK	GOT*, END!
DIR	SETDT+6!
DIR("?"	SETDT+5*
DIR("A"	SETDT+4*
DIR("B"	SETDT+4*
DIR(0	SETDT+4*
DIRUT	SETDT+6, END!
DIW	END!
DIWL	END!
DIWT	END!
DN	END!
DT	FBAABPG+5, SETDT, PRT+2
DUZ	FBAABPG+3, PRT+4
DUZ(0	FBAABPG+3, FBAABPG+4
FBDUZ	MORE*, END!
FBPGDT	FBAABPG+5*, SETDT+8, PRT+4, END!
>> FBPOP	SETDT+8
FBTYPE	MORE*, END!
I	START+1*, MORE, MEDP, MEDP+1, TRAVP, TRAVP+1, RPHP, RPHP+1, GOT, END! , CHP, CHP+1
IO	START
IOF	START
IOST	START
J	MEDP, TRAVP, RPHP, END!, CHP
K	MEDP, TRAVP, RPHP*, END!
L	MEDP*, END!
M	MEDP*, END!
PD	START+1*, END!
PDAT	SETDT+2*, SETDT+8, START+1, PRT+1, PRT+4, END!
PGM	SETDT+8*, END!
VAL	SETDT+8*, END!
VAR	SETDT+8*, END!
X	END!
XM1	END!
XMA	END!
XMB	PRT+4*, END!
XMB(1	PRT+4*
XMB(2	PRT+4*
XMB(3	PRT+4*
XMB(4	PRT+4*
XMDT	END!
XMM	END!
Y	FBAABPG+5, SETDT+2, SETDT+6, PRT+4, END!
Y(0	MORE*