Routine: DGRUG

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

Package

Total

Call Graph

^DIC YN^DICN ^DIE

(CVD,QUIT)^DGRUG1

Package	Total	Caller Graph
Registration	2	DGRUGDR DGRUGV

Package

Total

Caller Graph

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: SET+0
Function Call: WRITE	Prompt: !,"The field ",$P(^DD(45.9,I,0),U,1)," is missing data." Line Location: SET+5
Function Call: WRITE	Prompt: !,*7,"Service of ward must be the same as bedsection" Line Location: SET+12
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+1 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+4, SET+5
^DG(45.9 - [#45.9]	INPUT+1, SET+1, SET+11, EDIT+1
^DIC(42 - [#42]	SET+11

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

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

Information

Name	Comments	DBIA/ICR reference
INCOMP
SET
HELP
ERR
EDIT
CLOSEOUT	;FIND LAST CLOSEOUT DATE - FOR USE BY ENTER/EDIT,TRANSMISSION
EN
INPUT
ERR1