Routine: DGRUG16

Information

DGRUG16 ;ALB/BOK/MLI - RUG-II GROUPER ; 21 OCT 86 11:00

Package	Total	Call Graph
VA Fileman	3	^DIC YN^DICN ^DIE
Registration	1	(GROUPR,QUIT,SPECIAL)^DGRUG1

Package	Total	Caller Graph
Registration	1	DGRUGGR

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"The field ",$P(^DD(45.9,I,0),U,1)," is missing data." Line Location: SET+0
Function Call: WRITE	Prompt: !,*7,"If 'NASAL OR ENTERIC FEEDING' ",!," is marked 'Y'es then question 'EATING' must be marked '5'.",! Line Location: SET+2
Function Call: WRITE	Prompt: !,*7,"For each of the therapy questions,'DAYS PER WEEK' must be '0' if level is '1'.",! Line Location: SET+6
Function Call: WRITE	Prompt: !,*7,"For each of the therapy questions,'DAYS PER WEEK' must be greater than '0'",!,"if level is greater than '1'.",! Line Location: SET+8
Function Call: WRITE	Prompt: !,*7,"Service of ward must be the same as bedsection" Line Location: SET+13
Function Call: WRITE	Prompt: !!,"A RUG-II GROUP CAN NOT BE DETERMINED ON THIS PATIENT ",! Line Location: ERR+0
Function Call: WRITE	Prompt: !,"Do you wish to edit now" Line Location: ERR1+0
Function Call: WRITE	Prompt: !,"There are fields missing data for this patient. The PAI will",!," not be complete until all data is entered. You can",!," complete the PAI at this time by responding 'Y'es.",! Line Location: HELP+0
Routine Call	DIE Line Location: INPUT+1 EDIT INCOMP
Routine Call	DIC Line Location: INPUT EN

FileNo	Call Tags
^DG(45.9 - [#45.9]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DD(45.9	SET
^DG(45.9 - [#45.9]	INPUT+1, SET, SET+12, EDIT
^DIC(42 - [#42]	SET+12

Name	Field # of Occurrence
^("R"	SET+12
^(0	SET+12, EDIT*

Name	Field # of Occurrence
>> %	ERR1*
A	SET!, SET+5!, SET+7!, SET+10!, EDIT+1!
A(	SET, SET+2, SET+5, SET+7, EDIT
A(70	SET+12*
A(9	SET+12*
>> DA	INPUT+1, INPUT+2, SET, EDIT, EN, INCOMP*
>> DGD	INPUT+1*
DGFLAG	SET!, SET+1, SET+2, SET+3, SET+5!, SET+6, SET+7!, SET+8, SET+10!, SET+12* , SET+13, EDIT+1!
>> DGFY	SET+4*
>> DGINFO	SET*, SET+2, SET+4, SET+5, SET+7, SET+12, SET+14, REHAB
>> DGPT	INPUT+1, SET+12, EDIT, EN, INCOMP
>> DGSER	SET+12*
>> DGSUM	SET+14*
DIC	INPUT!, EDIT, EN*
DIC("S"	INPUT*
DIC(0	INPUT, EDIT, EN*
>> DIE	INPUT+1, EDIT, INCOMP*
>> DR	INPUT+1, EDIT, INCOMP*
>> E	SET+14, REHAB
I	SET!, SET+2, SET+5, SET+7, EDIT*, EDIT+1!
>> J	SET+14*
RIEN	SET+11~, SET+12*
>> T	SET+14*
U	INPUT+1, SET, SET+2, SET+4, SET+5, SET+7, SET+12, SET+14, REHAB
>> X	EDIT
>> Y	INPUT, INPUT+1, EDIT, EN