Routine: DGPTCO1

Information

DGPTCO1 ;ALB/MJK - Census Status Report ; 5/2/05 2:41pm

Source Information

Source file <DGPTCO1.m>

Call Graph

Call Graph Total: 11

Package	Total	Call Graph
VA Fileman	5	NOW^%DTC ^DIC (,UPDATE)^DIE EN1^DIP ^DIR
Kernel	4	^%ZIS ^%ZISC ^%ZTLOAD BMES^XPDUTL
Registration	2	(DIV,STATUS)^DGPTCO2 (BLDMSG,REGEN,SNDMSG)^DGPTCR

Caller Graph

Caller Graph Total: 7

Package	Total	Caller Graph
Registration	7	DGPT CENSUS STATUS REPORT DGPTFMO1 ^DG(45.85 DGPTC DGPTCO DGPTCO3 DGPTCR

Entry Points

Name	Comments	DBIA/ICR reference
DISQ
ERR	;
TOT	;
DATE	; -- calculate default census date
DIOENDQ
CHKCUR	; -- checks if new PTF Census Date record is needed
DIV	;
DOQ	;-- check if output device is queued. if not ask
FIND	; -- find CENSUS rec# ; input: D0 := ifn of 45.85 ; output: X := status ; DGCI := census ifn ; PTF := ptf ifn
DIS	; -- $T logic for each entry
PRT	;
ADDREC	; -- add new record
DHIT	; -- logic called for each entry printed cum stats; DGC(div,status)
STATUS	; -- compute CENSUS status
DIOEND	; -- logic called at end of rpt for totals
EN
END
START	; -- produce report
DOQT	;
FINDQ
ENQ
CREC	; -- compute CENSUS rec#

External References

Name	Field # of Occurrence
NOW^%DTC	DIOEND+2
^%ZIS	EN+6
^%ZISC	EN+10
^%ZTLOAD	EN+10
DIV^DGPTCO2	EN+4
STATUS^DGPTCO2	EN+5
BLDMSG^DGPTCR	START+4
REGEN^DGPTCR	START+10
SNDMSG^DGPTCR	START+5
^DIC	EN+2
^DIE	ADDREC+3
UPDATE^DIE	ADDREC+16
EN1^DIP	START+16
^DIR	DIOEND+1, DIOEND+7, DOQ+5
BMES^XPDUTL	ERR+1, ERR+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: EN+0
Function Call: WRITE	Prompt: !,?5,DGPTMSG(DGPTLINE,0) Line Location: START+8
Function Call: WRITE	Prompt: @IOF,?30,"Census Status Report",?59,Y,!!?26,"Division Summary Statistics",! Line Location: DIOEND+3
Function Call: WRITE	Prompt: !,DGLN,! Line Location: DIOEND+6
Function Call: WRITE	Prompt: !,DGLN Line Location: DIV+1
Function Call: WRITE	Prompt: !!?5,"OVERALL STATISTICS:" Line Location: DIV+2
Function Call: WRITE	Prompt: !?10,$S(D="TOT":"Grand Total: ",1:"Division Total: "),?30,$J(DGC(D,Z),4) Line Location: TOT+1
Function Call: WRITE	Prompt: !?10,S,": ",?30,$J(C,4) Line Location: PRT+1
Routine Call	DIE Line Location: ADDREC+16
Routine Call	DIE Line Location: ADDREC+3
Routine Call	DIC Line Location: EN+2
Routine Call	DIR Line Location: DIOEND+1 DIOEND+7 DOQ+5
Routine Call	%ZIS Line Location: EN+6

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"	START+14, DIOEND+2, DATE+2
^DD(45	STATUS+1
^DG(40.8 - [#40.8]	DIV+3
^DG(45.85 - [#45.85]	START+2, START+10, START+17, DIS+1, DHIT+2, FIND+4
^DG(45.86 - [#45.86]	DATE+1, CHKCUR+2, CHKCUR+3, CHKCUR+7, CHKCUR+9, CHKCUR+11, CHKCUR+13, CHKCUR+15
^DGPT - [#45]	FIND+6
^DGPT("ACENSUS"	FIND+6
^DIC(42 - [#42]	DIS+3, DHIT+2

Label References

Name	Line Occurrences
ADDREC	CHKCUR+18
CHKCUR	EN
DATE	EN
DIOENDQ	DIOEND+1
DISQ	DIS+2
DIV	DIOEND+5
DOQ	EN+6
DOQT	DOQ+2, DOQ+3
ENQ	EN+2, EN+4, EN+5, EN+6, EN+7, START+5, START+16
ERR	CHKCUR+5, CHKCUR+8, CHKCUR+17, ADDREC+17
FIND	STATUS+1, CREC+1
FINDQ	FIND+5
PRT	DIOEND+5
START	EN+7
STATUS	DHIT+1
TOT	DIOEND+5

Naked Globals

Name	Field # of Occurrence
^(0	DIV+3, DIS+3, DHIT+2, FIND+4, FIND+6, DATE+1, CHKCUR+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	DIOEND+2
%ZIS	EN+6*!
>> BY	START+11*
C	DIOEND+5*, DIOENDQ!, PRT+1, PRT+2
D	DIOEND+2~, DIOEND+5, DIV+2, DIV+3, TOT+1, PRT+2, DHIT+1~, DHIT+2*, DHIT+3
>> D0	DIS+1, DHIT+2, FIND+4
DA	ADDREC+1~, ADDREC+3*
DGACT	CHKCUR+1~, CHKCUR+15*, CHKCUR+16
DGC	ENQ!, START+15!
DGC(	DIOEND+5, TOT+1, DHIT+3*
DGC("TOT"	PRT+2*
DGCDT	EN+3*, ENQ!, START+14
DGCHOICE	EN+3!, ENQ!
DGCHOICE("DIV"	EN+4, DIS+2, DIS+3
DGCHOICE("STATUS"	EN+5, START+12
DGCI	FIND+4, FIND+6, STATUS+2!, CREC+1, CREC+2!
DGCLOSE	CHKCUR+1~, CHKCUR+7, CHKCUR+8, CHKCUR+10, CHKCUR+12, CHKCUR+14, CHKCUR+18, ADDREC+4, ADDREC+6, ADDREC+7 , ADDREC+8, ADDREC+9, ADDREC+10*, ADDREC+12
DGCN	EN+3*, ENQ!, START+10, START+11, START+12
DGENDT	ADDREC+1~, ADDREC+7, ADDREC+8, ADDREC+9, ADDREC+10, ADDREC+11
DGIEN	CHKCUR+1~, CHKCUR+2, CHKCUR+3, CHKCUR+5, CHKCUR+7, CHKCUR+9, CHKCUR+11, CHKCUR+13, CHKCUR+15, ADDREC+3
DGIOP	EN+6*, EN+8, ENQ!, START+15
DGLN	DIOEND+2*, DIOEND+6, DIOENDQ!, DIV+1
DGMONTH	ADDREC+1~, ADDREC+6*, ADDREC+7, ADDREC+8, ADDREC+9, ADDREC+10
DGPTLINE	START+6~, START+7, START+8
DGPTMSG	START+3~
DGPTMSG(	START+8
DGQ	EN+7, ENQ!, DOQ+1, DOQ+2, DOQ+6*
DGSTRT	ADDREC+1~, ADDREC+7, ADDREC+8, ADDREC+9, ADDREC+10, ADDREC+15
DGYR	ADDREC+1~, ADDREC+4, ADDREC+7, ADDREC+8, ADDREC+9, ADDREC+10
>> DHD	START+14*
DHIT	ENQ!, START+13*
DIC	EN+1, EN+2!, START+11
DIC("A"	EN+1*
DIC("B"	EN+1*
DIC(0	EN+1*
DIE	ADDREC+1~, ADDREC+3*
DIOEND	ENQ!, START+13*
DIR	DIOEND+1!, DIOEND+7!, DOQT+1!
DIR("A"	DOQ+4*
DIR("B"	DOQ+4*
DIR(0	DIOEND+1, DIOEND+7, DOQ+4*
DIS	ENQ!
DIS(0	START+13*
DR	ADDREC+1~, ADDREC+3*
DT	CHKCUR+18
ERR	CHKCUR+1~, CHKCUR+4, CHKCUR+5, CHKCUR+8, CHKCUR+10, CHKCUR+12, CHKCUR+14, CHKCUR+16, CHKCUR+17, ADDREC+1~ , ADDREC+17
ERR696	ADDREC+1~, ADDREC+17
FDA	ADDREC+1~
FDA(696	ADDREC+11, ADDREC+12, ADDREC+13, ADDREC+14, ADDREC+15*
>> FLDS	START+11*
>> FR	START+11, START+12
>> I	DIOEND+5*
IEN696	ADDREC+1~
IO	DOQ+3
IO("Q"	DOQ+2
IO(0	DOQ+3
IOF	DIOEND+3
IOM	EN+6
ION	EN+6
>> IOP	START+15*
IOSL	EN+6
IOST	START+5, DIOEND+1, DIOEND+7
>> J	DIOEND+5*
>> L	START+11*
>> POP	EN+6
PTF	FIND+5*, FIND+6, STATUS+2!, CREC+2!
S	DIOEND+2~, DIOEND+5, PRT+1, PRT+2, DHIT+1~, DHIT+2, DHIT+3
>> TO	START+11, START+12
U	EN+3, DIV+3, DIS+3, DHIT+2, FIND+5, FIND+6, STATUS+1, CHKCUR+7, CHKCUR+9, CHKCUR+11 , CHKCUR+13, CHKCUR+15
X	EN+9, DIOEND+1, DIS+1~, DIS+3, DHIT+2, FIND+4, FIND+6, STATUS+1, CREC+1
Y	EN+1, EN+2, EN+3, START+14, DIOEND+2, DIOEND+3, FIND+4, FIND+5, FIND+6, STATUS+2! , CREC+2!, DATE+1, DATE+2, DOQ+6, DOQT+1!
Z	DIOEND+2~, DIOEND+5, TOT+1, PRT+2, DHIT+1~, DHIT+3
>> ZTDESC	EN+8*
>> ZTIO	EN+8*
>> ZTRTN	EN+8*
>> ZTSAVE(	EN+9*

Customize PDF page

Package: Registration

Routine: DGPTCO1

Call Graph Total: 11

Caller Graph Total: 7