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 - 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*
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