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 |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^DG(45.85 - [#45.85] | Classic Fileman Calls |
^DG(45.86 - [#45.86] | Classic Fileman Calls |