Routine: DGPMRB

Package	Total	Call Graph
Registration	2	RIN^DGPMDDCF PID^VADPT6
VA Fileman	1	DT^DIQ

Package	Total	Caller Graph
Registration	1	^DGPM

Entry Points

External References

Name	Field # of Occurrence
RIN^DGPMDDCF	DD+1
DT^DIQ	DGPMRB+8
PID^VADPT6	LDGER+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"CHOOSE FROM",! Line Location: DGPMRB+4
Function Call: WRITE	Prompt: !!,"Select from the above listing the bed you wish to assign this patient." Line Location: DGPMRB+6
Function Call: WRITE	Prompt: !,"Enter two question marks for a more detailed list of available beds." Line Location: DGPMRB+6
Function Call: WRITE	Prompt: !!,"There are no available beds on this ward." Line Location: DGPMRB+7
Function Call: WRITE	Prompt: !,"Scheduled Admission for " Line Location: DGPMRB+8
Function Call: WRITE	Prompt: $P(^(0),"^",1)," -- ",$P(^(0),"^",9) Condition for execution: $D(^DPT(+J,0)) Line Location: DGPMRB+8
Function Call: WRITE	Prompt: " on " Line Location: DGPMRB+8
Function Call: WRITE	Prompt: !,"There are beds on this ward which are assigned to ""lodger"" patients. In order",!,"to use these beds you will need to either ""check-out"" the lodger occupying",!,"the bed or move him to another available bed." Line Location: DGPMRB+10
Function Call: WRITE	Prompt: ! Line Location: DGPMRB+11
Function Call: WRITE	Prompt: !?3 Condition for execution: DGA=1 Line Location: DIS+0
Function Call: WRITE	Prompt: !?3 Condition for execution: $X+$L($P(J,"^",1))>79 Line Location: DIS+0
Function Call: WRITE	Prompt: $P(J,"^",1) Line Location: DIS+0
Function Call: WRITE	Prompt: !?3,DGR,", (",$S($D(^DG(405.6,+$P(J,"^",2),0)):$P(^(0),"^",1),1:"NO DESCRIPTION"),")" Line Location: LOD+0
Function Call: WRITE	Prompt: ",",$P(^(0),"^",1) Condition for execution: $D(^DIC(45.7,+$P(J,"^",3),0)) Line Location: LOD+0
Function Call: WRITE	Prompt: "." Line Location: LOD+0
Function Call: WRITE	Prompt: !?3,"[Occupied by lodger patient '",$P(J,"^",4),"' SSN: ",$S($P(J,"^",5)]"":$P(J,"^",5),1:"UNKNOWN"),"]" Line Location: LOD+1
Function Call: WRITE	Prompt: "...INACTIVE" Line Location: DD+2
Function Call: READ	Timeout: DTIME Variable: DGPMX Line Location: READ+1
Function Call: WRITE	Prompt: !!?5,"Enter either RETURN or '^'",! Line Location: READ+2

Name	Comments	DBIA/ICR reference
Q1
Q
LOD
LDGER	;create UTILITY for lodgers
READ	;prompt to continue
DD	;
OCCQ
AVAIL
ACT
OCC	;is bed occupied
DIS

Name	Line Occurrences (* Changed, ! Killed)
^DG(405.4 - [#405.4]	DGPMRB+5, ACT+3, OCC+8
^DG(405.6 - [#405.6]	LOD
^DGPM - [#405]	DGPMRB+3, LDGER+3, DD+1, OCC+6, OCC+7, OCC+8
^DGPM("ARM"	ACT+1, OCC+7
^DGS(41.1 - [#41.1]	DGPMRB+8
^DIC(42 - [#42]	DGPMRB+3
^DIC(45.7 - [#45.7]	LOD
^DPT - [#2]	DGPMRB+8, LDGER+5
^UTILITY("DGPMLD"	DGPMRB+9, DGPMRB+11, LDGER+4, LDGER+5, LDGER+6, Q1!

Name	Line Occurrences
ACT	DGPMRB+5
AVAIL	ACT+3
DIS	DGPMRB+5
LDGER	ACT+1
LOD	DGPMRB+11
OCC	ACT
OCCQ	OCC+6, OCC+7, OCC+8
Q	DGPMRB+3, DGPMRB+6, DGPMRB+9, DGPMRB+12
READ	LOD+2, READ+2

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> D0	DD+1*
>> DA	DGPMRB+3, DD+1, OCC+6, OCC+8
DFN	LDGER+2~, LDGER+3, LDGER+5, OCC+5~, OCC+6, OCC+8
DGA	DGPMRB+3, DGPMRB+6, DGPMRB+7, ACT+5, DIS, LOD+2, Q!
DGFL	DGPMRB+3, DGPMRB+5, Q!, READ+1
DGHOW	DGPMRB+3*, DGPMRB+6, DIS, Q!
DGL	DGPMRB+3, DGPMRB+11, LOD+1, Q!
DGPMDD	DGPMRB+3*, ACT+3, AVAIL, Q!
DGPMDD("D"	ACT+3*, AVAIL
>> DGPMOC	ACT, OCC+5, OCC+8, OCC+9*
DGPMOS	DD+1*!
DGPMX	READ+1, READ+2, READ+3!, OCC+7, OCC+8*, OCCQ!
DGR	DGPMRB+5, DGPMRB+11, LOD, LDGER+4, LDGER+5, LDGER+6, Q!
>> DGSWITCH	DGPMRB+3
DGU	DGPMRB+5, ACT, ACT+2, ACT+3, ACT+4, AVAIL*, Q!
DGX	DD+1*, DD+2!, DD+3!
DT	DGPMRB+3, DGPMRB+8
DTIME	READ+1
I	DGPMRB+2~, DGPMRB+5, DGPMRB+8, ACT, ACT+1, ACT+3
I1	DGPMRB+2~, DGPMRB+11*
J	DGPMRB+2~, DGPMRB+5, DGPMRB+8, DGPMRB+11, DIS, LOD, LOD+1, LDGER+4
L	DGPMRB+2~
M	DGPMRB+2~, ACT+1*, LDGER+3
VA	Q!
VA("PID"	LDGER+6
W	DGPMRB+2~, DGPMRB+3*, DGPMRB+5, DGPMRB+8
X	DGPMRB+3, ACT+3, DD+1, DD+2!, DD+3
Y	DGPMRB+2~, DGPMRB+8, ACT, OCC+7, OCC+8

Customize PDF page

Package: Registration

Routine: DGPMRB

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Field # of Occurrence
^(	DGPMRB+11, ACT+1, ACT+3, LDGER+6*
^(0	DGPMRB+5, DGPMRB+8, ACT+3, LOD, LDGER+3, OCC+8