Routine: DGYVPST1

Information

DGYVPST1 ;ALB/LD - Patch DG*5.3*64 Post-Init (cont.); 8/8/95

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

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