Routine: DGRUGU1

Package	Total	Call Graph
Registration	2	RUGWARD^DGRUGPP FIRST^VAUTOMA
VA Fileman	1	^DIR

Package	Total	Caller Graph
Registration	4	DGRUGIX DGRUGPI DGRUGPP DGRUGS

Entry Points

Name	Comments	DBIA/ICR reference
OSCREEN()	;This is the screen to allow selected PAI to be re-opened
HELP	;
KSCREEN(Y)	;This is the screen to allow selected PAI to be deleted
CSCREEN()	;This is the screen to allow selected PAI to be closed
RUGCNH	;prompt for CNH locations
PTSCREEN()	;screen for selecting patients from PAF file
CHOSE()	;pick both CNH and Regular PAIs or one
SCREEN()	;This is the screen for LOCATION field in PAF file to allow only

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Enter C for contract nursing home",!,"Enter R for regular PAIs",!,"Enter B for both contract nursing home and regular PAIs.",! Line Location: HELP+1
Routine Call	DIR Line Location: CHOSE+6

Name	Line Occurrences (* Changed, ! Killed)
^DG(45.9 - [#45.9]	SCREEN+5, KSCREEN+4, KSCREEN+5, KSCREEN+9, KSCREEN+10, OSCREEN+4, OSCREEN+8, OSCREEN+9, CSCREEN+4, CSCREEN+8 , CSCREEN+9, PTSCREEN+4, PTSCREEN+5, PTSCREEN+6
^FBAAV(	SCREEN+6
^XUSEC("DG RUG SUPERVISOR"	KSCREEN+8, OSCREEN+7, CSCREEN+7

Name	Line Occurrences
RUGCNH	CHOSE+9

Name	Field # of Occurrence
^("ADEL"	SCREEN+6

Name	Field # of Occurrence
>> DA	SCREEN+5
>> DGCL	CHOSE+12, CHOSE+13, CHOSE+14
>> DGCL(0	CHOSE+12, CHOSE+14
DGCNH	KSCREEN+9, KSCREEN+10, OSCREEN+8, OSCREEN+9, CSCREEN+8, CSCREEN+9, RUGCNH+1*, RUGCNH+5!, PTSCREEN+4, PTSCREEN+5
DGFCNH	RUGCNH+1*, RUGCNH+5!, PTSCREEN+6
>> DGW	CHOSE+11, CHOSE+13, CHOSE+14
>> DGW(0	CHOSE+11, CHOSE+14
DIC	RUGCNH+2*, RUGCNH+6!
DIC("S"	RUGCNH+2*
>> DIR("?"	CHOSE+5*
>> DIR("A"	CHOSE+3*
>> DIR("B"	CHOSE+3*
>> DIR(0	CHOSE+4*
DUZ	KSCREEN+8, OSCREEN+7, CSCREEN+7
EN	SCREEN+3~
FLAG	SCREEN+3~, SCREEN+4, SCREEN+5, SCREEN+6, SCREEN+8, KSCREEN+2~, KSCREEN+3, KSCREEN+4, KSCREEN+5, KSCREEN+6 , KSCREEN+7, KSCREEN+8, KSCREEN+9, KSCREEN+10, KSCREEN+11, OSCREEN+2~, OSCREEN+3, OSCREEN+4, OSCREEN+5, OSCREEN+6 , OSCREEN+7, OSCREEN+8, OSCREEN+9, OSCREEN+10, CSCREEN+2~, CSCREEN+3, CSCREEN+4, CSCREEN+5, CSCREEN+6, CSCREEN+7* , CSCREEN+8, CSCREEN+9, CSCREEN+10
FLG	PTSCREEN+2~, PTSCREEN+3, PTSCREEN+4, PTSCREEN+5, PTSCREEN+6, PTSCREEN+7
SEL	CHOSE+2~, CHOSE+6*, CHOSE+7, CHOSE+8, CHOSE+9, CHOSE+11, CHOSE+12, CHOSE+15
VAUTNI	RUGCNH+3*, RUGCNH+6!
VAUTSTR	RUGCNH+2*, RUGCNH+6!
VAUTVB	RUGCNH+2*, RUGCNH+6!
Y	SCREEN+6, KSCREEN~, KSCREEN+4, KSCREEN+5, KSCREEN+9, KSCREEN+10, OSCREEN+4, OSCREEN+8, OSCREEN+9, CSCREEN+4 , CSCREEN+8, CSCREEN+9, CHOSE+6, PTSCREEN+4, PTSCREEN+5, PTSCREEN+6