Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: DGPTC1

Package: Registration

Routine: DGPTC1


Information

DGPTC1 ;ALN/MJK/PLT - Census Record Processing ;4/14/15 4:14pm

Source Information

Source file <DGPTC1.m>

Call Graph

Call Graph

Call Graph Total: 20

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

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 7

Package Total Caller Graph
Registration 6 DGPTC  DGPTCR  DGPTF  DGPTF41  DGPTF5  DGPTIC10  
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
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
POA ;set poa data from ptf to its census record
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+15
BS^DGPTC2 CREATE+6
^DGPTF ACT+5
^DGPTF2 CLS+12, CLS+15
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
VERCHK^DGPTRI3 CLS+11
SUDO1^DGPTSUDO CLS+2
CEN^DGPTUTL CEN+11
FMT^DGPTUTL CLS+4
HANG^DGPTUTL CLS+11, CLS+23
RTY^DGPTUTL ACT+2
LO^DGUTL CLS+10
ASIH^DGUTL2 ASIH+4
FILE^DICN CLS+21
^DIE CLS+19
IX1^DIK CREATE+13, FEE1+12

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+23
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+19

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+22*
^DGPM - [#405] WARD+8, WARD+11
^DGPM("APMV" WARD+9, WARD+10
^DGPT - [#45] CEN+10, CEN+15, CEN+18, FEE+2, FEE+3, RDGCI+3, CLS+2, CLS+17, CLS+18, CREATE+2
, CREATE+4*, CREATE+7, CREATE+8*, CREATE+11*, CREATE+12, FEE1+2, FEE1+4*, FEE1+5*, FEE1+6*, FEE1+7*
, FEE1+10*, FEE1+11, POA+2*, POA+3*, ASIH+4, ASIH+5*
^DGPT("ACENSUS" CEN+18, FEE+2, RDGCI+2
^DIC(42 - [#42] WARD+12
^DPT - [#2] CLS+22
^TMP("AEDIT" CLS+7!, CLS+16!
^TMP("AERROR" CLS+7!

Label References

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

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % WARD+9*, WARD+10, WARD+12*
A POA+1~, POA+3*
B POA+1~
DA CLS+19*, CREATE+13!*, FEE1+12!*
DD CLS+21!
DFN CEN+10~*, CLS+22, WARD+9, WARD+10
DGA1 CENQ!
DGACNT CLS+7*, CLS+16!
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+17*, CEN+18*, CEN+19*, KVAR!, FEE+1*, FEE+2*, FEE+3*, ACT+5, RDGCI~
, RDGCI+1, RDGCI+3*, RDGCI+4, RDGCI+5, CLS+17, CLS+18, CLS+19, CLS+20, CLS+22, CREATE+2*
, CREATE+4, CREATE+8, CREATE+11, CREATE+13, FEE1+2*, FEE1+4, FEE1+5, FEE1+6, FEE1+7, FEE1+10
, FEE1+12, POA+2, POA+3, OPEN+1*, ASIH+4, ASIH+5
>> DGCIR RDGCI+1*, RDGCI+2*, RDGCI+3, RDGCI+4
DGCN CEN+8!, CEN+11!, CEN+12!, CEN+18, KVAR!, FEE+2, RDGCI+3, CLS+3, CREATE+3, CREATE+4
, FEE1+3, FEE1+4
DGCN0 CEN+8!, CEN+11, CEN+12, CENQ!
DGCST CEN+8!, CEN+17*, CEN+18*, CEN+19*, KVAR!, FEE+1*, FEE+2*, FEE+3*, CLS+24*, 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+7, FEE1Q!, ASIH+3
DGERR CLS+3*, CLS+11!, CLS+12!, CLS+15!, CLS+16!
DGFEE CEN+8!, CEN+9*, CENQ!, FEE+1*, CLS+1*, CLS+17*, CLSQ!, POA+2
DGLOGIC CLS+10!
DGMVTP ASIH+1~
>> DGPMAN WARD+7, WARD+8
>> DGPMCA WARD+9, WARD+10
>> DGPTF CLS+2, CLS+11
DGPTF0 CEN+10*, CEN+12, CEN+14, CEN+15, CEN+16, 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+12*, CEN+14, CEN+15, CENQ!, WARD+7, WARD+8, WARD+9
DIC CLS+20*, CLS+21!
DIC("DR" CLS+20*
DIC(0 CLS+20*
DIE CLS+19*!
>> DIK CREATE+13*, FEE1+12*
DIKLM CREATE+13!, FEE1+12!
DINUM CLS+20*, CLS+21!
DO CLS+21!
DR CLS+19*!
DT CEN+11
DUZ CLS+19, CLS+20
>> I CLS+22*, CREATE+7*, CREATE+12*, FEE1+11*
>> J CLS+3*
M WARD+5~, WARD+11*, WARD+12
MVT WARD+5~, WARD+10*, WARD+11
>> NODE CREATE+12*, FEE1+11*
>> PTF CEN+10, CEN+15, CEN+18, FEE+2, RDGCI+2, CLS+2, CLS+3, CLS+17, CLS+18, CREATE+2
, CREATE+4, CREATE+7, CREATE+11, CREATE+12, FEE1+2, FEE1+4, FEE1+5, FEE1+6, FEE1+10, FEE1+11
, POA+2, POA+3
T1 CLS+3*, CLS+10!
T2 CLS+3*, CLS+4, CLS+10!
U CEN+12, CEN+14, CEN+15, CEN+16, CEN+18, FEE+2, FEE+3, RDGCI+3, CLS+2, CLS+3
, CLS+17, CLS+18, CREATE+2, CREATE+3, CREATE+4, CREATE+6, CREATE+7, FEE1+2, FEE1+3, FEE1+4
, FEE1+7, POA+2, WARD+8, WARD+12, ASIH+4, ASIH+5
X CENQ!, ACT+1, ACT+3, ACT+4, ACT+5, CLS+20*, CREATE+6*, CREATE+7*, CREATE+8, CREATE+12*
, CREATEQ!, FEE1+11*, FEE1Q!, ASIH+2, ASIH+3
>> X1 ASIH+2*, ASIH+3*
>> X2 ASIH+2*, ASIH+3*
Y CEN+12, ACT+2*, CLS+4*, CREATE+2*, CREATE+6*, CREATE+7*, CREATEQ!, FEE1+2*, FEE1Q!, WARD+6*
, WARD+12*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All