Routine: DGPTCR

Information

DGPTCR ;ALB/MJK - Census Worklist Re-gen ; JAN 27, 2005

Source file <DGPTCR.m>

Name	Comments	DBIA/ICR reference
GEN	; -- ask user regen ques
GEN1
GENQ
REGEN	; -- census workfile generation ; -- kill off old values ; input: DGCN := ifn of census date file ; DGCDT := date of census ; DGFIRST := flag(1/0) to send bulletin (option)
Q
CHK	; -- determine if good adm then set work entry
CHKQ
FEE	; --check for fee entries
FEECHK	; -- determine if good adm then set work entry
FEECHKQ
BULL	; -- bull to user re-generating
BULL1
BULLQ
SET	; -- set line in xmtext array
BLANK
OLD	;
NEW	;
HEAD	;
AD
ADQ
AD1
AD1Q
BLDMSG	;Build message text if regen currently running
SNDMSG	;Generate mail message to user

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: GEN+2
Function Call: WRITE	Prompt: !!,"Are you sure" Line Location: GEN1+0
Function Call: WRITE	Prompt: " (Ok, work file will remain the same.)" Line Location: GEN1+1
Function Call: WRITE	Prompt: !?5,"Answer 'YES' if you want the system to re-calculate which",!?5,"admissions require Census records.",!?5,"Otherwise, answer 'NO'." Line Location: GEN1+2
Function Call: WRITE	Prompt: ! Line Location: GEN1+4

FileNo	Call Tags
^DG(45.85 - [#45.85]	Classic Fileman Calls
^DG(45.86 - [#45.86]	Classic Fileman Calls