Routine: DGPTC1

Information

DGPTC1 ;ALN/MJK - Census Record Processing; JAN 27, 2005

Source Information

Source file <DGPTC1.m>

Call Graph

Call Graph Total: 19

Package	Total	Call Graph
Registration	15	^DGPTAE BS^DGPTC2 ^DGPTF ^DGPTF2 EN1^DGPTF4 CREATE^DGPTFCR (KDGP,KDGPT,OPEN)^DGPTFDEL EN^DGPTFREL COM1^DGPTFTR LOG^DGPTFTR1 LOG^DGPTR1 SUDO1^DGPTSUDO (CEN,FMT,HANG,RTY)^DGPTUTL LO^DGUTL ASIH^DGUTL2
VA Fileman	4	C^%DTC FILE^DICN ^DIE IX1^DIK

Caller Graph

Caller Graph Total: 6

Package	Total	Caller Graph
Registration	5	DGPTC DGPTCR DGPTF DGPTF41 DGPTF5
Integrated Billing	1	IB20PT82

Entry Points

Name	Comments	DBIA/ICR reference
CLSQ
RDGCI(DGCI)	;-- eliminating 'OPEN' status census record and duplicates
FEE	;
ASIH	; -- calc asih days
FEE1Q
ACTQ
CREATE	; -- create census record
CENQ
WARDQ
ACT	; -- census actions with input of X
CREATEQ
FEE1	; -- create census record for fee record
CEN	; -- determine if PTF rec is current Census rec ; input: PTF := ptf rec # ; DGPMCA := corres. adm (non-fee) ; DGPMAN := 0th node of corrs adm "
KVAR
OPEN	; -- re-open census rec by deleting
WARD	; -- ward @ census d/t for an adm(even if nhcu/dom adm that is ASIH) ; input: DGPMCA := corres adm ; DGPMAN := corres adm 0th node ; output: Y := ward ptr or null
CLS	;

External References

Name	Field # of Occurrence
C^%DTC	ASIH+2, ASIH+3
^DGPTAE	CLS+14
BS^DGPTC2	CREATE+6
^DGPTF	ACT+5
^DGPTF2	CLS+11, CLS+14
EN1^DGPTF4	ACTQ
CREATE^DGPTFCR	CREATE+2, FEE1+2
KDGP^DGPTFDEL	RDGCI+4
KDGPT^DGPTFDEL	RDGCI+4
OPEN^DGPTFDEL	OPEN+1
EN^DGPTFREL	ACT+5
COM1^DGPTFTR	CLS+9
LOG^DGPTFTR1	CLS+9
LOG^DGPTR1	CLS+9
SUDO1^DGPTSUDO	CLS+2
CEN^DGPTUTL	CEN+12
FMT^DGPTUTL	CLS+4
HANG^DGPTUTL	CLS+22
RTY^DGPTUTL	ACT+2
LO^DGUTL	CLS+10
ASIH^DGUTL2	ASIH+4
FILE^DICN	CLS+20
^DIE	CLS+18
IX1^DIK	CREATE+11, FEE1+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Updating TRANSFER DRGs..." Line Location: CLS+2
Function Call: WRITE	Prompt: !,"Performing edit checks..." Line Location: CLS+5
Function Call: WRITE	Prompt: !,"**** CENSUS CLOSED OUT ****" Line Location: CLS+22
Function Call: WRITE	Prompt: !,"Creating Census Record..." Line Location: CREATE+1
Function Call: WRITE	Prompt: "#",DGCI Line Location: CREATE+2
Function Call: WRITE	Prompt: !,"Creating Census Record..." Line Location: FEE1+1
Function Call: WRITE	Prompt: "#",DGCI Line Location: FEE1+2
Routine Call	DIE Line Location: CLS+18

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DGPT - [#45]	Classic Fileman Calls
^DGP(45.84 - [#45.84]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DG(45.86 - [#45.86]	CLS+3, CREATE+3, FEE1+3
^DGP(45.84 - [#45.84]	CLS+21*
^DGPM - [#405]	WARD+8, WARD+9
^DGPM("APMV"	WARD+9
^DGPT - [#45]	CEN+10, CEN+17, CEN+20, FEE+2, FEE+3, RDGCI+3, CLS+2, CLS+16, CLS+17, CREATE+2 , CREATE+4, CREATE+7, CREATE+8, CREATE+9, CREATE+10, FEE1+2, FEE1+4, FEE1+5, FEE1+6, FEE1+7* , FEE1+8, ASIH+4, ASIH+5*
^DGPT("ACENSUS"	CEN+20, FEE+2, RDGCI+2
^DIC(42 - [#42]	WARD+9
^DPT - [#2]	CLS+21
^TMP("AEDIT"	CLS+7!, CLS+15!
^TMP("AERROR"	CLS+7!

Label References

Name	Line Occurrences
$$RDGCI	CEN+21, FEE+3
@(	CREATE+10, FEE1+8
ACTQ	ACT+3, ACT+4
ASIH	CREATE+8
CENQ	CEN+10, CEN+12, CEN+14, CEN+16, CEN+17, CEN+18
CLS	ACT+3
CLSQ	CLS+11, CLS+14, CLS+16, CLS+17
CREATE	CLS+17
CREATEQ	CREATE+2, FEE1+2
FEE	CEN+18
FEE1	CLS+16
OPEN	ACT+4
WARD	CEN+14
WARDQ	WARD+9

Naked Globals

Name	Field # of Occurrence
^(0	CEN+10, CEN+20, FEE+2, RDGCI+3, CLS+3, CREATE+3, CREATE+4, CREATE+10, FEE1+3, FEE1+4 , FEE1+8, WARD+8, WARD+9
^(70	CREATE+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	WARD+9*
DA	CLS+18, CREATE+11!, FEE1+9!*
DD	CLS+20!
DFN	CEN+10~*, CLS+21, WARD+9
DGA1	CENQ!
DGACNT	CLS+7*, CLS+15!
DGADM	CLS+2, ASIH+1~, ASIH+4
DGBDT	ASIH+1~, ASIH+2*
DGBEG	CREATE+3, CREATEQ!, FEE1+3, FEE1Q!, ASIH+2
DGCCO	CLS+10!
DGCI	CEN+8!, CEN+19, CEN+20, CEN+21, KVAR!, FEE+1, FEE+2, FEE+3, ACT+5, RDGCI~ , RDGCI+1, RDGCI+3, RDGCI+4, RDGCI+5, CLS+16, CLS+17, CLS+18, CLS+19, CLS+21, CREATE+2 , CREATE+4, CREATE+8, CREATE+9, CREATE+11, FEE1+2, FEE1+4, FEE1+5, FEE1+6, FEE1+7, FEE1+9 , OPEN+1, ASIH+4, ASIH+5
>> DGCIR	RDGCI+1, RDGCI+2, RDGCI+3, RDGCI+4
DGCN	CEN+8!, CEN+12!, CEN+14!, CEN+20, KVAR!, FEE+2, RDGCI+3, CLS+3, CREATE+3, CREATE+4 , FEE1+3, FEE1+4
DGCN0	CEN+8!, CEN+12, CEN+14, CENQ!
DGCST	CEN+8!, CEN+19, CEN+20, CEN+21, KVAR!, FEE+1, FEE+2, FEE+3, CLS+23, OPEN+1
DGCSUF	CREATE+4, CREATEQ!, FEE1+4, FEE1Q!
>> DGDL	RDGCI+1*, RDGCI+2, RDGCI+3
DGEDT	ASIH+1~, ASIH+3*
DGEND	CREATE+3, CREATE+6, CREATEQ!, FEE1+3, FEE1+6, FEE1Q!, ASIH+3
DGERR	CLS+3*, CLS+11!, CLS+14!, CLS+15!
DGFEE	CEN+8!, CEN+9, CENQ!, FEE+1, CLS+1, CLS+16, CLSQ!
DGLOGIC	CLS+10!
DGMVTP	ASIH+1~
>> DGPMAN	WARD+7, WARD+8
>> DGPMCA	WARD+9
>> DGPTF	CLS+2
DGPTF0	CEN+10*, CEN+14, CEN+16, CEN+17, CEN+18, CENQ!
>> DGPTFLE	ACT+5*
>> DGPTFMT	CLS+4, CLS+9, CLSQ*
DGPTFMTX	CLS+4*, CLSQ!
DGPTIFN	ACT+5, RDGCI+4, OPEN+1*, OPEN+2!
DGREC	ASIH+1~, ASIH+5
DGRTY	ACT+5!, ACTQ!, RDGCI+4*
DGRTY0	ACT+5!, ACTQ!
DGT	CEN+14*, CEN+16, CEN+17, CENQ!, WARD+7, WARD+8, WARD+9
DIC	CLS+19*, CLS+20!
DIC("DR"	CLS+19*
DIC(0	CLS+19*
DIE	CLS+18*!
>> DIK	CREATE+11, FEE1+9
DIKLM	CREATE+11!, FEE1+9!
DINUM	CLS+19*, CLS+20!
DO	CLS+20!
DR	CLS+18*!
DT	CEN+12
DUZ	CLS+18, CLS+19
>> I	CLS+21, CREATE+7, CREATE+10, FEE1+8
>> J	CLS+3*
M	WARD+5~, WARD+9*
MVT	WARD+5~, WARD+9*
>> NODE	CREATE+10, FEE1+8
>> PTF	CEN+10, CEN+17, CEN+20, FEE+2, RDGCI+2, CLS+2, CLS+3, CLS+16, CLS+17, CREATE+2 , CREATE+4, CREATE+7, CREATE+9, CREATE+10, FEE1+2, FEE1+4, FEE1+5, FEE1+7, FEE1+8
T1	CLS+3*, CLS+10!
T2	CLS+3*, CLS+4, CLS+10!
U	CEN+14, CEN+16, CEN+17, CEN+18, CEN+20, FEE+2, FEE+3, RDGCI+3, CLS+2, CLS+3 , CLS+16, CLS+17, CREATE+2, CREATE+3, CREATE+4, CREATE+6, CREATE+7, FEE1+2, FEE1+3, FEE1+4 , FEE1+6, WARD+8, WARD+9, ASIH+4, ASIH+5
X	CENQ!, ACT+1, ACT+3, ACT+4, ACT+5, CLS+19, CREATE+6, CREATE+7, CREATE+8, CREATE+10 , CREATEQ!, FEE1+8*, FEE1Q!, ASIH+2, ASIH+3
>> X1	ASIH+2, ASIH+3
>> X2	ASIH+2, ASIH+3
Y	CEN+14, ACT+2, CLS+4, CREATE+2, CREATE+6, CREATE+7, CREATEQ!, FEE1+2, FEE1Q!, WARD+6* , WARD+9*

Customize PDF page

Package: Registration

Routine: DGPTC1

Call Graph Total: 19

Caller Graph Total: 6