Routine: DGPTCO1

Information

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

Source file <DGPTCO1.m>

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

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

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