Routine: DGYVPST1

Package	Total	Call Graph
Kernel	2	^%ZIS ^%ZISC
VA Fileman	1	^DIR

Package	Total	Caller Graph
Registration	1	DGYVPOST

Entry Points

Name	Comments	DBIA/ICR reference
PAUSE	;--Pause for screen output
HDR	;--Screen header
INACTQ
PRTERR	;--Print errors which occurred during pop of file #45.7 Eff Date mult
INACT	;-- Report of inactive facility treating specialties. These
ERRMSG	;--Error messages

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: PAUSE+3
Function Call: WRITE	Prompt: @IOF,?21,"Patch DG5.364 Post-Init Report",!! Line Location: HDR+1
Function Call: WRITE	Prompt: !!,">>> Creating Inactive Treating Specialty Report...",! Line Location: INACT+5
Function Call: WRITE	Prompt: @IOF,?23,"INACTIVE TREATING SPECIALTY REPORT",! Line Location: INACT+10
Function Call: WRITE	Prompt: !!?4,"The following facility treating specialties point to treating specialties",!?4,"which are now inactive. These facility treating specialties should be" Line Location: INACT+11
Function Call: WRITE	Prompt: !?4,"edited to point to active specialties through the Treating Specialty",!?4,"Set-up option [DG TREATING SETUP] under the ADT System Definition Menu.",!! Line Location: INACT+12
Function Call: WRITE	Prompt: !?8,"FACILITY TREATING SPECIALTY",?46,"INACTIVE TREATING SPECIALTY" Line Location: INACT+13
Function Call: WRITE	Prompt: !?8,"===========================",?46,"===========================",! Line Location: INACT+14
Function Call: WRITE	Prompt: !?8,$P($G(DGFAC(DGX)),U,2),?46,$P($G(^DIC(42.4,$P($G(DGFAC(DGX)),U),0)),U) Line Location: INACT+15
Function Call: WRITE	Prompt: !?4,"No inactive facility treating specialties found.",! Line Location: INACT+16
Routine Call	DIR Line Location: PAUSE+4
Routine Call	%ZIS Line Location: INACT+8

Name	Line Occurrences (* Changed, ! Killed)
^DIC(42.4 - [#42.4]	PRTERR+7, INACT+15
^DIC(45.7 - [#45.7]	PRTERR+8, INACT+7
^TMP("DGPTERR"	PRTERR+4, PRTERR+5, PRTERR+6

Name	Line Occurrences
HDR	PRTERR+3, PRTERR+11
PAUSE	PRTERR+11

Name	Field # of Occurrence
%ZIS	INACT+8*!
DGFAC	INACT+4~, INACT+16
DGFAC(	INACT+7*, INACT+15
DGI	INACT+4~, INACT+6*, INACT+7
DGJ	INACT+4~, INACT+7*
DGPTE	PRTERR+1~, PRTERR+2, PRTERR+6
DGPTEX	PRTERR+4, PRTERR+5, PRTERR+6, PRTERR+11, PRTERR+12!, PAUSE+4*
DGPTM	PRTERR+1~, PRTERR+2, PRTERR+4, PRTERR+5, PRTERR+6, PRTERR+7
DGPTMSG	PRTERR+1~, PRTERR+9*, PRTERR+10
DGPTS	PRTERR+1~, PRTERR+2, PRTERR+5, PRTERR+6, PRTERR+8
DGX	INACT+4~, INACT+15*
DIR	PAUSE+2~
DIR(0	PAUSE+4*
DIRUT	PAUSE+2~, PAUSE+4
DUOUT	PAUSE+2~, PAUSE+4
IO	INACT+9
IOF	HDR+1, INACT+10
IOSL	PRTERR+11, PAUSE+3
IOST	PRTERR+3, PAUSE+1
POP	INACT+4~, INACT+8
U	PRTERR+7, PRTERR+8, INACT+7, INACT+15
XX	PAUSE+2~, PAUSE+3*

Name	Field # of Occurrence
$T(ERRMSG+DGPTE	PRTERR+9