Routine: DGPTFUP

Package	Total	Call Graph
VA Fileman	4	(,NOW)^%DTC YN^DICN DT^DICRW FILE^DIE
Registration	3	SUDO1^DGPTSUDO (MT,PM)^DGPTUTL LO^DGUTL

Package	Total	Caller Graph
Registration	2	DG PTF BACKGROUND JOB DG PTF UPDATE TRANSFER DRG'S

Entry Points

Name	Comments	DBIA/ICR reference
ABSENT
ALL
SOME	;
UPDATE	; -- update xfr drg's for PTF ifn
Q
LOS
ZERO	;LOOK FOR MISSING 0 NODE IN 501 MULTIPLE
UPDATEQ
ACTIVE	;this call should be queued to run nightly to update the LOS in active admission PTF records and the Means Test Indicator in Open PTF records

Name	Line Occurrences
Function Call: WRITE	Prompt: !?5,"===> PTF TRANSFER DRG update beginning..." Line Location: ALL+0
Function Call: WRITE	Prompt: !!?2,"This option will recalculate the TRANSFER DRG's for all",!?2,"current fiscal year PTF records." Line Location: SOME+1
Function Call: WRITE	Prompt: !!?2,"Do you want to continue" Line Location: SOME+2
Function Call: WRITE	Prompt: !?2,"Answer 'YES' to begin recalculation or 'NO' to stop." Line Location: SOME+3
Function Call: WRITE	Prompt: !?5,"===> PTF partial TRANSFER DRG update beginning with " Line Location: SOME+4
Function Call: WRITE	Prompt: !?5," discharge dates for the current fiscal year..." Line Location: SOME+5
Function Call: WRITE	Prompt: !!?5,"===> PTF TRANSFER DRG update complete" Line Location: Q+0
Routine Call	DIE Line Location: LOS+9 UPDATE+8

Name	Line Occurrences (* Changed, ! Killed)
^DGPM - [#405]	ACTIVE+2, LOS+4
^DGPM("APTT1"	ACTIVE+2
^DGPM("APTT2"	LOS+4, ABSENT
^DGPT - [#45]	ACTIVE+2, LOS, LOS+1, ALL+1, SOME+9, UPDATE+2, UPDATE+5, ZERO+1
^DGPT("AADA"	LOS
^DGPT("AS"	ACTIVE+2

Name	Field # of Occurrence
>> %	SOME+2*, SOME+3
DFN	ACTIVE+2, ACTIVE+3!, LOS+4, ABSENT, UPDATE+9, UPDATEQ!
DGADIFN	ACTIVE+3!
DGADM	ACTIVE+2, ACTIVE+3!, LOS, LOS+2, UPDATE+9, UPDATEQ!
DGBGJ	ACTIVE+1*, ACTIVE+3!
DGCUM	ACTIVE+3!, LOS+1*, LOS+8
DGD1	SOME+9*, Q+1!, UPDATE+1
DGD1SAV	SOME+8~, SOME+9, UPDATE+1
DGFDA	LOS+6~, UPDATE+6~
DGFDA(	LOS+7, LOS+8, UPDATE+7*
DGFYDT	SOME+7*, SOME+9, Q+1!
DGLEAVE	ACTIVE+3!, LOS+3, LOS+5, ABSENT+1
DGLN	ACTIVE+1*, ACTIVE+3!
DGMSG	LOS+6~, UPDATE+6~
DGMT	ACTIVE+3!
DGMV	ACTIVE+3!, LOS+4*, ABSENT
DGMVDT	ACTIVE+3!, LOS+1, LOS+2, LOS+3, LOS+4
DGNODE	UPDATE+2*, UPDATE+3, UPDATE+9, UPDATEQ!
DGNXD	UPDATE+5!
DGPASS	ACTIVE+3!, LOS+3, LOS+5, ABSENT
DGPMAN	ACTIVE+2*, ACTIVE+3!, UPDATEQ!
DGPMCA	ACTIVE+2*, ACTIVE+3!, LOS+4, UPDATE+4, UPDATEQ!
DGPRD	UPDATE+5!
DGTDD	UPDATE+5!
DGTOT	ACTIVE+3!, LOS+3, LOS+5, LOS+7, LOS+8
DGTYPE	ACTIVE+3!, LOS+4*, ABSENT
DGXREF	SOME+9*, Q+1!
DT	ACTIVE+1*, LOS+3, ABSENT, SOME+7
FLD	UPDATE+6~, UPDATE+7*
I	UPDATE+5, UPDATE+7, ZERO+1, ZERO+2!
PTF	ACTIVE+2, ACTIVE+3!, LOS, LOS+1, LOS+7, LOS+8, ALL+1, SOME+9*, Q+1!, UPDATE+2 , UPDATE+5, UPDATE+7, UPDATE+11
U	ACTIVE+1, ACTIVE+2, ALL, SOME+7*, UPDATE+9
X	ACTIVE+1, ACTIVE+3!, LOS+1, LOS+3, LOS+4, ABSENT*, ABSENT+1
X1	ACTIVE+3!, LOS+3, ABSENT
X2	ACTIVE+3!, LOS+3, ABSENT