Routine: DGYMTRT1

Information

DGYMTRT1 ;ALB/CAW/LD - Print changed specialty report ; 9/8/94

Name	Comments	DBIA/ICR reference
EN	; Print changed treating specialty report
ENQ
FTSP	; Facility Treating Specialty
QUE()	; -- queue job ; return: did job queue [ 1\|yes 0\|no ]
PRINT	;Print any facility treating specialties that point to changed

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?2,"The following report will list all existing entries in the FACILITY TREATING",!?2,"SPECIALTY file (#45.7) that point to entries in the SPECIALTY file (#42.4)",!?2,"which have been changed." Line Location: EN+2
Function Call: WRITE	Prompt: @IOF,!?24,"CHANGED TREATING SPECIALTY REPORT" Line Location: PRINT+5
Function Call: WRITE	Prompt: !!,"FACILITY TREATING SPECIALTY (#45.7)",?45,"CHANGED SPECIALTY (#42.4)" Line Location: PRINT+6
Function Call: WRITE	Prompt: !,DGDASH Line Location: PRINT+7
Function Call: WRITE	Prompt: !!?2,"No entries found in File #45.7 which correspond to changed treating",!?2,"specialties in File #42.4." Line Location: PRINT+11