Routine: DGYMBSRX

Package	Total	Caller Graph
Registration	1	DGYMBSRX

Entry Points

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

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
Routine Call	DIR Line Location: HEADER+3

Name	Line Occurrences (* Changed, ! Killed)
^DIC(42 - [#42]	EN1+5, LVL+2, NOGLO+7, SAMEGLO+8
^TMP("DG59"	EN1+5, KILL!, LVL+2, NOGLO+1, NOGLO+5, SAMEGLO+2, SAMEGLO+6, LEVEL+2, LEVEL+5

Name	Field # of Occurrence
^(	EN1+5*, SAMEGLO+2, LEVEL+5

Name	Field # of Occurrence
DGCHK	SAMEGLO+1~, SAMEGLO+3, SAMEGLO+4
DGGDATE	EN1+2*, KILL!, HEADER+5
DGGL	EN1+5*, KILL!
DGLVL	KILL!, LVL+1~, LVL+2, LVL+3!, LEVEL+5
DGNO	KILL!, NOGLO+5*, NOGLO+7
DGOLVL	KILL!, LVL+1~, LVL+2*, LVL+3!
DIR	HEADER+1~
DIR(0	HEADER+3*
DIRUT	HEADER+1~
DTOUT	HEADER+1~
DUOUT	HEADER+1~
FLAG	EN1+3~, EN1+4, EN1+6, EN1+7, EN1+8, NOGLO+5, NOGLO+6, SAMEGLO+3, SAMEGLO+6, SAMEGLO+7 , HEADER+3
I	Q!, EN1+5, KILL!, LVL+2, SAMEGLO+2, SAMEGLO+5, SAMEGLO+6, HEADER+1~
IOF	HEADER+4
IOSL	NOGLO+6, SAMEGLO+3, SAMEGLO+7
IOST	EN1+9, HEADER+3
J	KILL!
LINE	EN1+3~, NOGLO+2, NOGLO+4, LEVEL+1, LEVEL+4
LINE2	HEADER+1~, HEADER+2*, HEADER+6
PAGE	EN1+3~, HEADER+2, HEADER+3, HEADER+4
POP	EN+4, Q!
SAGL	KILL!, SAMEGLO+6*, SAMEGLO+8
X	Q!, HEADER+1~
Y	HEADER+1~, HEADER+3
ZTDESC	EN+2*, Q!
ZTIO	Q!
ZTRTN	EN+2*, Q!
ZTSK	Q!