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

Call Graph

(,NOW)^%DTC YN^DICN DT^DICRW FILE^DIE

SUDO1^DGPTSUDO (MT,PM)^DGPTUTL LO^DGUTL

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

Package

Total

Caller Graph

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

Information

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