Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Info | Source | Entry Points | Interaction Calls | FileMan Files Accessed Via FileMan Db Call

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>

Entry Points

Name	Comments	DBIA/ICR reference
CEN	; -- determine if PTF rec is current Census rec ; input: PTF := ptf rec # ; DGPMCA := corres. adm (non-fee) ; DGPMAN := 0th node of corrs adm "
CENQ
KVAR
FEE	;
ACT	; -- census actions with input of X
ACTQ
RDGCI(DGCI)	;-- eliminating 'OPEN' status census record and duplicates
CLS	;
CLSQ
CREATE	; -- create census record
CREATEQ
FEE1	; -- create census record for fee record
FEE1Q
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
ASIH	; -- calc asih days

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

FileMan Files Accessed Via FileMan Db Call

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

Info | Source | Entry Points | Interaction Calls | FileMan Files Accessed Via FileMan Db Call