Routine: DGYMBSRX

Information

DGYMBSRX ;ALB/ABR - REPORT OF G&L ORDERS FROM FILE 42

Name	Comments	DBIA/ICR reference
EN	;set up temp global based on G&L ORDER
Q
EN1	;
KILL
LVL	; check for sequential TOTALS
NOGLO	;LOCATIONS W/ NO G&L ORDER
SAMEGLO	;shared g&l orders
LEVEL	; list wards with problem TOTALS
HEADER	; print header for diagnostics report

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"WARD LOCATION FILE DIAGNOSTIC ROUTINE",!! Line Location: EN+1
Function Call: WRITE	Prompt: !!,"**The following ward locations have no G&L order, ",!,"and do not appear on the G&L Sheet or Bed Status Report." Line Location: NOGLO+3
Function Call: WRITE	Prompt: !!,"IEN",?10,"Ward Location",!,LINE Line Location: NOGLO+4
Function Call: WRITE	Prompt: ! Line Location: NOGLO+8
Function Call: WRITE	Prompt: !!,"SHARED G&L ORDERS",!,"===================" Line Location: SAMEGLO+4
Function Call: WRITE	Prompt: !!,"The following locations all have the G&L ORDER = ",I Line Location: SAMEGLO+5
Function Call: WRITE	Prompt: !?15,"* ONLY THE LAST OF THIS GROUP WILL APPEAR ON THE BSR *" Line Location: SAMEGLO+9
Function Call: WRITE	Prompt: ! Line Location: SAMEGLO+10
Function Call: WRITE	Prompt: !!,"**The following locations are missing lower level TOTALS:",! Line Location: LEVEL+3
Function Call: WRITE	Prompt: !,"IEN",?10,"Ward Location",!,LINE Line Location: LEVEL+4
Function Call: WRITE	Prompt: !,DGLVL,?10,^(DGLVL) Line Location: LEVEL+5
Function Call: WRITE	Prompt: @IOF,!,"WARD LOCATION FILE Diagnostics Report",?70,"PAGE: ",$J(PAGE,2) Line Location: HEADER+4
Function Call: WRITE	Prompt: !,DGGDATE Line Location: HEADER+5
Function Call: WRITE	Prompt: !,LINE2 Line Location: HEADER+6