Routine: DGRUG1

Package	Total	Call Graph
Registration	3	YN^DGRUGC QUIT^DGRUGGR DT^DGRUGTG
VA Fileman	2	YN^DICN ^DIE

Package	Total	Caller Graph
Registration	5	DGRUG DGRUG16 DGRUGDR DGRUGGR DGRUGTG

Entry Points

Name	Comments	DBIA/ICR reference
QUIT
C
PHYS
GROUPC
GROUPB
6
3
1
REHAB
CLINIC
BEHAVE
5
PRT
GROUPS
GROUPR
2
CVD
SPECIAL
4

External References

Name	Field # of Occurrence
YN^DGRUGC	C
QUIT^DGRUGGR	PRT+2
DT^DGRUGTG	PRT+2
YN^DICN	C
^DIE	PRT+3, C+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,?3,"RUG-II GROUP: ",DGRUG,!!,"HIERARCHY GROUP: ",G," - ",$S(G=1:"HEAVY REHABILITATION",G=2:"SPECIAL CARE",G=3:"CLINICAL COMPLEX",G=5:"PHYSICAL",1:"BEHAVIORAL"),!?8,"ADL SUM: ",DGSUM,! Line Location: PRT+0
Function Call: WRITE	Prompt: ?4,"RUG-II WWUs: ",$S($D(^DG(45.91,+DGRUG,"FY",DGFY,0)):$P(^(0),U,2),1:"") Line Location: PRT+1
Function Call: WRITE	Prompt: !!,"CLOSED" Line Location: C+1
Function Call: WRITE	Prompt: !,*7,"If 'TUBE FEEDING' or 'PARENTERAL FEEDING' ",!," is marked 'Y'es then question 'EATING' must be marked '5'.",! Line Location: 1+0
Function Call: WRITE	Prompt: !,*7,"If 'TUBE FEEDING' and 'PARENTERAL FEEDING' ",!," are marked 'N'o then question 'EATING' must not be marked '5'.",! Line Location: 1+1
Function Call: WRITE	Prompt: !,*7,"If 'TUBE FEEDING' ",!," is marked 'Y'es then question 'TUBE FEEDING ROUTE' must not be marked '1'.",! Line Location: 2+0
Function Call: WRITE	Prompt: !,*7,"If 'CHRONIC VENTILATOR DEP. (CVD)' is marked 'N'o then all CVD related",!,"questions must be marked '1'.",! Line Location: 3+1
Function Call: WRITE	Prompt: !,*7,"For each of the therapy questions,'DAYS PER WEEK' and 'HOURS PER WEEK' must be '0' if level is '1'.",! Line Location: 4+1
Function Call: WRITE	Prompt: !,*7,"For each of the therapy questions,'DAYS PER WEEK' must be greater than 0",!,"and 'HOURS/MINUTES PER WEEK' must be greater than 29 minutes if level is",!,"greater than '1'.",! Line Location: 5+1
Function Call: WRITE	Prompt: !,*7,"Can not have more than 10 hours of therapy per day" Line Location: 6+1
Routine Call	DIE Line Location: PRT+3 C+1

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DG(45.9 - [#45.9]	C
^DG(45.91 - [#45.91]	PRT+1
^XUSEC("DG RUG CLOSE PAI"	C

Label References

Name	Line Occurrences
C	C
GROUPB	BEHAVE, BEHAVE+1
GROUPC	CLINIC, CLINIC+1, CLINIC+2
GROUPR	REHAB
GROUPS	SPECIAL, SPECIAL+1
PRT	CVD, PHYS, GROUPR, GROUPS, GROUPC, GROUPB
QUIT	C, C+2

Naked Globals

Name	Field # of Occurrence
^("C"	C
^(0	PRT+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	QUIT!, C*, C+1
%Y	QUIT!, C
A	QUIT!, 1!, 2!, 3!, 4!, 5!, 6!
A(	1, 1+1, 2, 3+2, 4, 5, 6*
DA	QUIT!, PRT+3*
DGD	REHAB*, QUIT!
DGFLAG	QUIT!, 1!, 1+1, 2!, 3!, 3+1, 3+2, 4!, 4+1, 5! , 5+1, 6!*, 6+1
DGFY	QUIT!, PRT+1
>> DGGRP	PRT+2
DGHM	REHAB, QUIT!, 4, 5, 6
DGI	QUIT!
DGINFO	CVD, REHAB, SPECIAL, SPECIAL+1, CLINIC, CLINIC+1, CLINIC+2, BEHAVE, BEHAVE+1, QUIT! , 1, 1+1, 2, 3, 4, 5, 6
DGLCO	QUIT!
DGPAF	QUIT!, PRT+2
DGPT	QUIT!, PRT+3, C
DGRUG	CVD, PHYS, QUIT!, GROUPR, GROUPS, GROUPC, GROUPB, PRT, PRT+1, PRT+3
DGSER	QUIT!
DGSUM	SPECIAL, SPECIAL+1, CLINIC, CLINIC+1, PHYS, QUIT!, GROUPR, GROUPS, GROUPC, GROUPB , PRT, PRT+3
DIC	QUIT!
DIE	QUIT!, PRT+3, C+1
DIV	QUIT!
DR	QUIT!, PRT+3, C+1
DT	C+1
DUZ	C, C+1
E	REHAB, SPECIAL+1, CLINIC+1, CLINIC+2, BEHAVE+1*, QUIT!
G	CVD, PHYS, QUIT!, GROUPR, GROUPS, GROUPC, GROUPB, PRT, PRT+3
I	QUIT!, 1, 1+1, 2, 3, 3+2, 4, 5, 6
J	QUIT!
T	REHAB*, QUIT!
U	CVD, REHAB, SPECIAL, SPECIAL+1, CLINIC, CLINIC+1, CLINIC+2, BEHAVE, BEHAVE+1, PRT+1 , 1, 1+1, 2, 3, 4, 5, 6
Y	QUIT!

Customize PDF page

Package: Registration

Routine: DGRUG1

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: