Routine: DGPTCR

Information

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

Source Information

Source file <DGPTCR.m>

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
VA Fileman	4	^DIC (FILE,YN)^DICN ^DIE ^DIK
Registration	2	WARD^DGPTC1 (CHKCUR,DATE)^DGPTCO1
Kernel	1	^%ZTLOAD
MailMan	1	^XMD

Caller Graph

Caller Graph Total: 5

Package	Total	Caller Graph
Registration	5	DGPT CENSUS REGEN WORKFILE DGPTC DGPTCO1 DGPTCO3 DGPTCR1

Entry Points

Name	Comments	DBIA/ICR reference
SNDMSG	;Generate mail message to user
CHKQ
FEECHK	; -- determine if good adm then set work entry
GEN1
BULL	; -- bull to user re-generating
NEW	;
SET	; -- set line in xmtext array
OLD	;
AD1
BULLQ
BLANK
AD1Q
GEN	; -- ask user regen ques
HEAD	;
FEE	; --check for fee entries
AD
ADQ
CHK	; -- determine if good adm then set work entry
BULL1
FEECHKQ
BLDMSG	;Build message text if regen currently running
Q
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)
GENQ

External References

Name	Field # of Occurrence
^%ZTLOAD	GEN1+4
WARD^DGPTC1	CHK+3
CHKCUR^DGPTCO1	GEN+1
DATE^DGPTCO1	GEN+2
^DIC	GEN+4
FILE^DICN	CHK+8, FEECHK+8
YN^DICN	GEN1
^DIE	REGEN+19
^DIK	REGEN+15
^XMD	BULL1, SNDMSG+6

Interaction Calls

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
Routine Call	DIE Line Location: REGEN+19
Routine Call	DIC Line Location: GEN+4

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	BULL+2, BULL+5, AD+2, AD1+2
^DG(45.85 - [#45.85]	REGEN+7, REGEN+9, REGEN+11, REGEN+13, REGEN+14, REGEN+15, REGEN+20
^DG(45.86 - [#45.86]	BULL+2, BULL+5
^DGPM - [#405]	CHK+1, CHK+5, AD
^DGPM("ATT1"	REGEN+17
^DGPT - [#45]	FEE+5, FEE+6, FEE+7, FEECHK+1, AD+3, AD1, AD1+3
^DGPT("ACENSUS"	AD+3, AD1+3
^DGPT("AFEE"	FEE+1, FEE+2, FEE+4
^DPT - [#2]	CHK+2, FEECHK+2, AD+1, AD1+1
^UTILITY("DGPT REGEN"	REGEN+8!, Q!, BULL+1!, SET+2*

Label References

Name	Line Occurrences
AD	OLD+3, NEW+3
AD1	NEW+4
AD1Q	AD1
ADQ	AD
BLANK	BULL+4, BULL+5, BULL+7, OLD+1, NEW+1, HEAD+1
BLDMSG	REGEN+7
BULL	REGEN+21
BULL1	BULL+7
BULLQ	BULL+1
CHK	REGEN+17
CHKQ	CHK+1, CHK+2, CHK+3
FEE	REGEN+18
FEECHK	FEE+9
FEECHKQ	FEECHK+1, FEECHK+2
GEN1	GEN1+2
GENQ	GEN+4, GEN1+1
HEAD	OLD+2, NEW+2
NEW	BULL+9
OLD	BULL+9
SET	BULL+5, BULL+7, BULL+8, BLANK, OLD+2, NEW+2, HEAD+2, HEAD+3, AD+4, AD1+4
SNDMSG	REGEN+7

Naked Globals

Name	Field # of Occurrence
^(0	REGEN+15, CHK+1, CHK+5, AD, AD+1, AD+3, AD1, AD1+1, AD1+3
^(70	FEE+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	GEN1*, GEN1+1, GEN1+2, GENQ!
>> DA	REGEN+12, REGEN+13, REGEN+14, REGEN+15, REGEN+19
DD	CHK+8!, FEECHK+8!
DFN	Q!, CHK+2, CHK+6, CHK+7, CHKQ!, FEE+1, FEE+2, FEE+4, FEECHK+2, FEECHK+6 , FEECHK+7, OLD+3, NEW+3, NEW+4*, AD+1, AD1+1
>> DGAD	REGEN+17, CHK+1, CHK+6, OLD+3, NEW+3*, AD
DGAD0	Q!, CHK+1, CHK+2, CHK+4, CHK+5, FEECHK+4
DGAD1	Q!, CHK+5, FEECHK+5
DGBLK	BULL+2!*, BULLQ!, AD+1, AD+2, AD1+1, AD1+2
>> DGCDT	GEN+4*, REGEN+17, CHK+3, FEECHK+3
DGCI	AD+3, ADQ!, AD1+3
DGCN	GEN+4*, GENQ!, REGEN+9, REGEN+11, REGEN+19, BULL+2, BULL+5, AD+3, AD1+3
DGCWD	CHK+3*, CHKQ!
DGDS	FEE+7, FEE+8, FEECHK+3, FEECHK+5, FEECHKQ!
DGDT	REGEN+17, Q!, FEE+2, FEE+4, FEECHK+3, FEECHK+4
DGEW	Q!
DGFIRST	REGEN+9*, Q!, BULL+1
DGI	REGEN+11*, REGEN+12, Q!, BULLQ!
DGL	BULL+5, BULL+7, BULL+8, BULLQ!, SET+2, BLANK, OLD+2, NEW+2, HEAD+2, HEAD+3 , AD, AD+1, AD+2, AD+3, AD1, AD1+1, AD1+2, AD1+3
DGLINE	BULL+3, BULLQ!, SET+1, SET+2
DGMV	Q!
DGNEW	REGEN+10*, Q!, CHK+6, FEECHK+6, BULL+6, BULL+7, BULL+9, NEW+3, NEW+4
DGOLD	REGEN+10*, REGEN+15, Q!, CHK+6, FEECHK+6, BULL+6, BULL+7, BULL+9, OLD+3
DGPMAN	CHK+1*, CHKQ!
DGPMCA	CHK+1*, CHKQ!
>> DGPTCV5	BULL+6
DGPTF	REGEN+14, REGEN+15!, CHK+4, CHK+6
DGPTMSG	REGEN+7~
DGPTMSG(1	BLDMSG+1*
DGPTMSG(2	BLDMSG+2*
DGPTMSG(3	BLDMSG+3*
DGPTMSG(4	BLDMSG+4*
DGPTMSG(5	BLDMSG+5*
DGPTMSG(6	BLDMSG+6*
DGPTMSG(7	BLDMSG+7*
DGT	CHK+3*, CHKQ!
DGX	BULLQ!, AD, AD+2, AD+3, AD1, AD1+2
DIC	GEN+3, GEN+4!, CHK+7, CHK+8!, FEECHK+7*, FEECHK+8!
DIC("A"	GEN+3*
DIC("B"	GEN+3*
DIC("DR"	CHK+7, FEECHK+7
DIC(0	GEN+3, CHK+7, FEECHK+7*
>> DIE	REGEN+19*
DIK	REGEN+12*, REGEN+15!
DO	CHK+8!, FEECHK+8!
>> DR	REGEN+19*
DUZ	BULL+3, SNDMSG+4
PTFEE	FEE+4, FEE+5, FEE+6, FEE+7, FEECHK+1, FEECHK+4, FEECHK+6, FEECHKQ!, NEW+4, AD1 , AD1+2, AD1+3
U	GEN+4, REGEN+14, REGEN+15, CHK+2, CHK+4, CHK+5, FEE+6, FEECHK+4, BULL+5, AD+1 , AD+2, AD+3, AD1+1, AD1+2, AD1+3
>> X	CHK+7, FEECHK+7
XMDUZ	SNDMSG+1~, SNDMSG+3*
XMSUB	BULL+3, BULLQ!, SNDMSG+1~, SNDMSG+2
XMTEXT	BULL+3, BULLQ!, SNDMSG+1~, SNDMSG+5
XMY	BULLQ!, SNDMSG+1~
XMY(	BULL+3, SNDMSG+4
>> XQM	REGEN+8*
Y	GEN+3, GEN+4, GENQ!, CHK+3, BULL+2, BULL+3, BULL+5, AD+2, AD1+2
>> ZTDESC	GEN1+3*
>> ZTIO	GEN1+3*
>> ZTRTN	GEN1+3*
>> ZTSAVE("DGCDT"	GEN1+4*
>> ZTSAVE("DGCN"	GEN1+4*

Customize PDF page

Package: Registration

Routine: DGPTCR

Call Graph Total: 8

Caller Graph Total: 5