Routine: DGRUGPP1

Package	Total	Call Graph
Registration	3	NOW^DGPTOTRL (LEV,THER)^DGRUGPP (CLOSE,ZIS)^DGUTQ
Kernel	1	$$FMTE^XLFDT
VA Fileman	1	^DIC

Package	Total	Caller Graph
Registration	3	DG RUG PAI SINGLE DGRUGIX DGRUGPP

Entry Points

External References

Name	Field # of Occurrence
NOW^DGPTOTRL	EN
LEV^DGRUGPP	PRT+6
THER^DGRUGPP	PRT+6
CLOSE^DGUTQ	DGRUGPP1+5
ZIS^DGUTQ	DGRUGPP1+4
^DIC	DGRUGPP1+2
$$FMTE^XLFDT	EN+7, EN+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,*7,!!,"THIS REPORT REQUIRES 132 COLUMN OUTPUT" Line Location: DGRUGPP1+3
Function Call: WRITE	Prompt: @IOF Line Location: EN+4
Function Call: WRITE	Prompt: !?48,">>>>PATIENT ASSESSMENT INSTRUMENT<<<<",!!,"NAME: ",$P(^DPT(+DGI,0),U),?92,"PRINTED: ",DGNOW,!," 1.",$J("SSN: ",32),$P(DGI,U,3) Line Location: EN+5
Function Call: WRITE	Prompt: ?86,$J("RUG-II GROUP: ",15),$P(DGG,U,2),!," 2.",$J("SEX: ",32),$P(DGI,U,4),?86,$J("ADL SUM: ",15),$P(DGG,U,3) Line Location: EN+6
Function Call: WRITE	Prompt: !," 3.",$J("YEAR OF BIRTH: ",32),$P(DGI,U,5),?86,$J("CATEGORY: ",15),DGCAT,!," 4.",$J("ASSESSMENT DATE: ",32),$$FMTE^XLFDT($P(DGI,U,2),"5DZ") Line Location: EN+7
Function Call: WRITE	Prompt: ?86,$J("RUG-II WWUs: ",15) Line Location: EN+8
Function Call: WRITE	Prompt: $S($D(^DG(45.91,+$P(DGG,U,2),"FY",DGFY,0)):$P(^(0),U,2),1:"") Line Location: EN+8
Function Call: WRITE	Prompt: !," 5.",$J("ASSESSMENT PURPOSE: ",32),$S($P(DGI,U,6)=1:"1 ADMISSION/TRANSFER",$P(DGI,U,6)=2:"2 SEMI-ANNUAL CENSUS",1:"3 CONTRACT NURSING HOME") Line Location: EN+9
Function Call: WRITE	Prompt: !," 6.",$J("DATE OF ADMISSION/TRANSFER IN: ",32),$$FMTE^XLFDT($P(DGI,U,7),"5DZ") Line Location: EN+10
Function Call: WRITE	Prompt: ?86,$J("RECORD STATUS: ",15),$S($P(DGS,U)]"":$P(DGS,U),1:"INCOMPLETE")," " Line Location: EN+11
Function Call: WRITE	Prompt: $P($P(^DD(45.9,80,0),$P(DGS,U)_":",2),";",1) Condition for execution: $P(DGS,U)]"" Line Location: EN+11
Function Call: WRITE	Prompt: !," 7.",$J("MEDICAL CENTER CODE: ",32),$P(DGI,U,8),!," 8.",$J("BED SECTION: ",32),$P(DGI,U,9),$S($P(DGI,U,9)="I":"-INTERMEDIATE MED.",$P(DGI,U,9)="N":"-NURSING HOME CARE",1:"") Line Location: EN+12
Function Call: WRITE	Prompt: ?86,$J("WARD: ",15) Line Location: EN+13
Function Call: WRITE	Prompt: $P(^(0),U,1) Line Location: EN+13
Function Call: WRITE	Prompt: ?86,$J("CNH LOCATION: ",15) Line Location: EN+14
Function Call: WRITE	Prompt: $P(^(0),U) Line Location: EN+14
Function Call: WRITE	Prompt: !!?24,"MEDICAL TREATMENTS",?91,"SELECTED DIAGNOSIS",! Line Location: PRT+0
Function Call: WRITE	Prompt: ?24,Y Line Location: PRT+0
Function Call: WRITE	Prompt: ?24,Y Line Location: PRT+0
Function Call: WRITE	Prompt: ! Line Location: PRT+1
Function Call: WRITE	Prompt: ?66 Line Location: PRT+1
Function Call: WRITE	Prompt: ?87,"ACTIVITIES OF DAILY LIVING" Line Location: PRT+2
Function Call: WRITE	Prompt: ! Line Location: PRT+2
Function Call: WRITE	Prompt: ! Line Location: PRT+2
Function Call: WRITE	Prompt: ! Line Location: PRT+3
Function Call: WRITE	Prompt: ?66 Line Location: PRT+3
Function Call: WRITE	Prompt: !!?26,"MEDICAL EVENTS",?95,"BEHAVIORS",! Line Location: PRT+4
Function Call: WRITE	Prompt: ?26,Y Line Location: PRT+4
Function Call: WRITE	Prompt: ?26,Y Line Location: PRT+4
Function Call: WRITE	Prompt: ?26,Y Line Location: PRT+4
Function Call: WRITE	Prompt: ?26,Y Line Location: PRT+4
Function Call: WRITE	Prompt: !!?56,"SPECIALIZED SERVICES" Line Location: PRT+5
Function Call: WRITE	Prompt: !?56,Y,!?17,"REHABILITATION MEDICINE THERAPIES",?86,"CHRONIC RESPIRATORY SUPPORT",! Line Location: PRT+5
Function Call: WRITE	Prompt: !?56,Y,!?17,"REHABILITATION MEDICINE THERAPIES",?86,"CHRONIC RESPIRATORY SUPPORT",! Line Location: PRT+5
Function Call: WRITE	Prompt: !?56,Y,!?17,"REHABILITATION MEDICINE THERAPIES",?86,"CHRONIC RESPIRATORY SUPPORT",! Line Location: PRT+5
Function Call: WRITE	Prompt: ! Line Location: PRT+6
Function Call: WRITE	Prompt: ?66 Line Location: PRT+6
Function Call: WRITE	Prompt: ?66 Line Location: PRT+6
Function Call: WRITE	Prompt: ?66 Line Location: PRT+6
Function Call: WRITE	Prompt: ! Line Location: PRT+7
Function Call: WRITE	Prompt: !?26,"*QUESTIONS 21,28,29,30,35,36,37 AND 38 ARE RESERVED FIELDS AND ARE NOT DISPLAYED",! Line Location: PRT+8
Function Call: WRITE	Prompt: E+21,".",$J($P(^DD(45.9,(E+22),0),U),30),": " Line Location: ADL+0
Function Call: WRITE	Prompt: $E($P($P(^DD(45.9,(E+22),0),$P(DGI,U,(E+22))_":",2),";",1),1,27) Condition for execution: $P(DGI,U,(E+22))]"" Line Location: ADL+0
Function Call: WRITE	Prompt: $E($P($P(^DD(45.9,(E+32),0),$P(DGI,U,(E+32))_":",2),";",1),1,27) Condition for execution: E>26 Line Location: ADL1+0
Function Call: WRITE	Prompt: $P(DGI,U,E+32),"> ",$S($P(DGI,U,E+32)=1:"NO",1:"YES") Line Location: ADL1+0
Function Call: WRITE	Prompt: E(2),".",$J($P(^DD(45.9,(E(2)+6),0),U),30),": " Line Location: ADL2+0
Function Call: WRITE	Prompt: $P(DGI,U,E(2)+6),"> ",$S($P(DGI,U,E(2)+6)=1:"NO",1:"YES") Line Location: ADL2+0
Routine Call	DIC Line Location: DGRUGPP1+2

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("RM"	START
^DD(45.9	EN+11, MT, ADL, ADL1, ADL2
^DG(45.9 - [#45.9]	EN
^DG(45.91 - [#45.91]	EN+8
^DIC(42 - [#42]	EN+13
^DPT - [#2]	EN+3, EN+5
^FBAAV(	EN+14
^UTILITY($J	QUIT!

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	QUIT!, PRT+7*
%DT	QUIT!
%ZIS	QUIT!
%ZIS("B"	DGRUGPP1+4*
DA	QUIT!
DGA	QUIT!
DGA1	QUIT!
DGAD	QUIT!
DGALL	QUIT!
DGCAT	QUIT!, EN+2*, EN+7
DGED	QUIT!
DGFY	QUIT!, EN+1*, EN+8
DGG	QUIT!, EN*, EN+2, EN+6, EN+8, EN+13, EN+14
DGHM	QUIT!
DGI	QUIT!, EN*, EN+1, EN+3, EN+5, EN+6, EN+7, EN+9, EN+10, EN+12 , EN+13, EN+14, MT, ADL, ADL1, ADL2
DGNO	QUIT!
DGNOW	QUIT!, EN+5
DGPGM	DGRUGPP1+4*, QUIT!
DGPT	DGRUGPP1+2*, QUIT!, EN
DGR	QUIT!
DGS	QUIT!, EN*, EN+11
DGSD	QUIT!
DGT	QUIT!
DGVAR	DGRUGPP1+4*, QUIT!
DGW	QUIT!
DGX	QUIT!
DIC	DGRUGPP1+2*!, QUIT!
DIC(0	DGRUGPP1+2*
DIV	QUIT!
E	QUIT!, PRT+1, PRT+2, PRT+3, PRT+4, PRT+6*, MT, ADL, ADL1, ADL2
E(2	PRT+6*, ADL2
>> FIRST	EN+4
I	QUIT!, PRT+7*
IO	START
IOF	EN+4
IOSL	PRT+7
IOST	EN+4
J	QUIT!
K	QUIT!
M	QUIT!
POP	DGRUGPP1+4, QUIT!
U	EN+1, EN+2, EN+5, EN+6, EN+7, EN+8, EN+9, EN+10, EN+11, EN+12 , EN+13, EN+14, MT, ADL, ADL1, ADL2
VAUTD	QUIT!
W	QUIT!
X	QUIT!, START*
X1	QUIT!, PRT+4*
Y	DGRUGPP1+2, QUIT!, PRT!, PRT+2, PRT+4!, PRT+5!
Z	QUIT!, EN+2*

Customize PDF page

Package: Registration

Routine: DGRUGPP1

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Line Occurrences
ADL	PRT+3, PRT+4
ADL2	PRT+6
MT	PRT+1, PRT+2, PRT+4
QUIT	DGRUGPP1+2, DGRUGPP1+4
START	DGRUGPP1+4

Name	Comments	DBIA/ICR reference
QUIT
START
EN
PRT
MT
ADL
ADL2
ADL1