Routine: DGYVPOST

Package	Total	Call Graph
VA FileMan	4	NOW^%DTC FILE^DICN ENALL^DIK ^DIR
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
List Manager	1	$$FTIME^VALM1
Registration	1	(INACT,PRTERR)^DGYVPST1

Entry Points

Name	Comments	DBIA/ICR reference
EN	;-- Entry point
ENQ
XREFCHK	;-- Check for "ASPEC" xref in ^DD(45.7
RXREF	;--Reindex Specialty (#1) field "ASPEC" xref in file 45.7
POPMUL	;--Get data from file 42.4 to populate eff date mult in file 45.7
POPMULQ
POPFAC	;--Populate eff date mult in FTS file #45.7
POPFACQ
ASK	;
ASKQ
ERRPT	;--Queue error report for printing or print direct
ERRPTQ
DONE

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,">>> This post-init will populate the Effective Date multiple of each record",!?4,"in the Facility Treating Specialty file (#45.7).",!! Line Location: XREFCHK+2
Function Call: WRITE	Prompt: !,"**ERROR: Cross reference ""ASPEC"" in file #45.7 not found.",!?10,"Rerun init DGYVINIT from patch DG5.3*64 (see patch description",!?10,"for complete instructions).",! Line Location: XREFCHK+6
Function Call: WRITE	Prompt: !!,">>> Post-Init started at: " Line Location: POPMUL+2
Function Call: WRITE	Prompt: $$FTIME^VALM1(%),! Line Location: POPMUL+2
Function Call: WRITE	Prompt: !!,"... Added ",$S('$G(DGPTEFF):"active ",1:"inactive "),"effective date and ",$S('$G(DGPTEFF):"active ",1:"inactive "),"flag to facility",!?4,"treating specialty ",$P($G(^DIC(45.7,DGPTSIEN,0)),U) Line Location: POPFAC+22
Function Call: WRITE	Prompt: !! Line Location: ASK+1
Function Call: WRITE	Prompt: ! Line Location: ASK+8
Function Call: WRITE	Prompt: !!,">>> The following report will list all messages and/or errors which occurred",!?4,"while running this post-init.",! Line Location: ERRPT+3
Function Call: WRITE	Prompt: !!,$S($D(ZTSK):">>> Job has been queued. The task number is "_ZTSK_".",1:">>> Unable to queue this job.") Line Location: ERRPT+11
Function Call: WRITE	Prompt: !!,">>> Post-Init completed at: " Line Location: DONE+0
Function Call: WRITE	Prompt: $$FTIME^VALM1(%),! Line Location: DONE+0
Routine Call	DIR Line Location: ASK+7
Routine Call	%ZIS Line Location: ERRPT+5

FileNo	Call Tags
^DIC(45.7 - [#45.7]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DD(45.7	XREFCHK+3, XREFCHK+5, POPFAC+14
^DIC(42.4 - [#42.4]	POPMUL+9, POPMUL+11, POPFAC+3
^DIC(45.7 - [#45.7]	POPMUL+5, POPMUL+6, POPFAC+22, ASK+2
^TMP("DGPTERR"	POPMUL+9, POPMUL+11, POPFAC+3, POPFAC+5, POPFAC+19, POPFAC+20, ERRPT+1, ERRPTQ!

Name	Field # of Occurrence
>> %	POPMUL+2, DONE
%ZIS	ERRPT+5*!
DA	POPFAC+1~, POPFAC+11*
DA(1	POPFAC+15*
DD	POPFAC+18!
DGPTACTF	POPFAC+1~, POPFAC+7*, POPFAC+17
DGPTASK	POPMUL+7~, POPFAC+4, ASK+7*
DGPTCTR	POPMUL+7~, POPMUL+11, POPMUL+12, POPFAC+6
DGPTEFDT	POPFAC+1~, POPFAC+7*, POPFAC+12
DGPTEFF	POPMUL+7~, POPMUL+12, POPFAC+6, POPFAC+22, ASK+7*
DGPTERR	POPMUL+4~
DGPTI	POPMUL+7~, POPMUL+12*, POPFAC+3, POPFAC+11, POPFAC+22
DGPTMIEN	POPMUL+4~, POPMUL+5*, POPMUL+6, POPMUL+9, POPMUL+11, POPFAC+3, POPFAC+4, POPFAC+5, POPFAC+19, POPFAC+20
DGPTNODE	POPFAC+1~, POPFAC+3*, POPFAC+7
DGPTOUT	POPMUL+4~, POPMUL+5, POPMUL+6, POPMUL+12, POPFAC+5, POPFAC+20
DGPTQ	EN+2~, EN+4, EN+5, XREFCHK+3, XREFCHK+4, XREFCHK+5*, XREFCHK+6
DGPTSIEN	POPMUL+4~, POPMUL+6*, POPMUL+9, POPMUL+11, POPFAC+3, POPFAC+5, POPFAC+9, POPFAC+15, POPFAC+19, POPFAC+20 , POPFAC+22, ASK+2
DIC	POPFAC+1~, POPFAC+9*
DIC("DR"	POPFAC+17*
DIC("P"	POPFAC+14*
DIC(0	POPFAC+10*
DIE	POPFAC+1~
DIK	RXREF+2~, RXREF+3*
DIK(1	RXREF+3*
DINUM	POPFAC+1~, POPFAC+11*
DIR	ASK+7!
DIR("A"	ASK+1, ASK+2, ASK+3, ASK+4, ASK+5, ASK+6
DIR("B"	ASK+7*
DIR(0	ASK+7*
DIRUT	POPMUL+4~, POPFAC+5
DO	POPFAC+18!
DR	POPFAC+1~
DTOUT	POPMUL+4~, POPFAC+5, POPFAC+20
DUOUT	POPMUL+4~, POPFAC+5, POPFAC+20
I	XREFCHK+3~*, XREFCHK+4, XREFCHK+5
IO	ERRPT+6
IO("Q"	ERRPT+6, ERRPTQ!
POP	ERRPT+4~, ERRPT+5
U	POPMUL+11, POPFAC+7, POPFAC+22, ASK+2
X	POPFAC+1~, POPFAC+12*
Y	POPFAC+1~, POPFAC+19, POPFAC+22, ASK+7!
ZTDESC	ERRPT+4~, ERRPT+9*
ZTRTN	ERRPT+4~, ERRPT+8*
ZTSAVE	ERRPT+4~
ZTSAVE("^TMP(""DGPTERR"",$J,"	ERRPT+8*
ZTSK	ERRPT+4~, ERRPT+11