Routine: DGPMRBA1

Information

DGPMRBA1 ;ALB/MIR - PRINT FROM BED AVAILABILITY ; 10/21/03 8:48am

Source Information

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
VA Fileman	3	NOW^%DTC ($$GET1,DT)^DIQ ^DIR
Registration	2	WIN^DGPMDDCF PID^VADPT6
Kernel	1	$$FMADD^XLFDT

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Registration	1	DGPMRBA

Entry Points

Name	Field # of Occurrence
NOW^%DTC	PR
WIN^DGPMDDCF	PRINT+3
$$GET1^DIQ	EN+12, EN+13
DT^DIQ	SA
^DIR	HEAD
PID^VADPT6	LDGER+5, SA
$$FMADD^XLFDT	EN+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ?21,"There are no available beds on this ward." Line Location: EN+2
Function Call: WRITE	Prompt: !?5,$$GET1^DIQ(9009016.7,J,.01)," -- ",$$GET1^DIQ(9009016.7,J,.011) Line Location: EN+12
Function Call: WRITE	Prompt: " on ",$$GET1^DIQ(9009016.7,J,.02) Line Location: EN+13
Function Call: WRITE	Prompt: !?3,"Lodgers occupy the following beds:" Line Location: LD+1
Function Call: WRITE	Prompt: !?3 Condition for execution: DGA=1 Line Location: DIS+6
Function Call: WRITE	Prompt: !?3 Condition for execution: $X+$L($P(J,"^",1))>79 Line Location: DIS+6
Function Call: WRITE	Prompt: $P(J,"^",1) Line Location: DIS+6
Function Call: WRITE	Prompt: ?40 Line Location: DIS+7
Function Call: WRITE	Prompt: $E($P(J,"^",1),1,18) Line Location: DIS+8
Function Call: WRITE	Prompt: " (",$E($P(^(0),"^",1),1,15),")" Line Location: DIS+8
Function Call: WRITE	Prompt: !?5,DGR," is occupied by ",$P(J,"^",4)," - PT ID: ",$S($P(J,"^",5)]"":$P(J,"^",5),1:"UNKNOWN") Line Location: LOD+0
Function Call: WRITE	Prompt: @IOF,!,"BED AVAILABILITY FOR ",DGNOW,?70,"PAGE:",$J(DGPG,5),! Line Location: HEAD+1
Function Call: WRITE	Prompt: X,! Line Location: HEAD+1
Function Call: WRITE	Prompt: !?25,"SERVICE: ",$P($P(DGSTR,";"_DGI_":",2),";",1) Line Location: HEAD+2
Function Call: WRITE	Prompt: !?5 Line Location: SA+0
Function Call: WRITE	Prompt: $P(^(0),"^",1)," -- " Condition for execution: $D(^DPT(+J,0)) Line Location: SA+0
Function Call: WRITE	Prompt: VA("PID") Line Location: SA+0
Function Call: WRITE	Prompt: VA("PID") Line Location: SA+0
Function Call: WRITE	Prompt: ! Line Location: BEDSPR+3
Function Call: WRITE	Prompt: $E(DGBDNM,1,18) Line Location: BEDSPR+5
Function Call: WRITE	Prompt: " ("_$E(DGBDESC,1,15)_")" Condition for execution: DGDESC Line Location: BEDSPR+5
Function Call: WRITE	Prompt: "WARDS: " Line Location: BEDSPR+6
Function Call: WRITE	Prompt: ", " Condition for execution: DGWCNT>0 Line Location: BEDSPR+7
Function Call: WRITE	Prompt: !?5 Condition for execution: ($X+$L(DGWRD))>80 Line Location: BEDSPR+7
Function Call: WRITE	Prompt: DGWRD Line Location: BEDSPR+7
Function Call: WRITE	Prompt: !!?3,$S(DGBCNT:"There are a total of "_DGBCNT_" beds available.",1:"There are no available beds."),! Line Location: BEDSPR+9
Routine Call	DIR Line Location: HEAD

FileNo	Call Tags
^BDGSV - [#9009016.7]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BDGSV("AC"	EN+7, EN+9, EN+10
^BDGWD - [#9009016.5]	PRINT+1
^DD("DD"	PR
^DG(40.8 - [#40.8]	PRINT+1
^DG(405.4 - [#405.4]	EN, ACT+1, DIS+2
^DG(405.6 - [#405.6]	DIS+8, BEDS+1
^DGPM - [#405]	LDGER+2
^DGPM("ARM"	ACT
^DIC(42 - [#42]	PR+1, SV, SV+1, PRINT+1, PRINT+4
^DPT - [#2]	LDGER+3, LDGER+4, SA
^DPT("LD"	LDGER+3
^TMP("DGPMBD"	BEDS+1*, BEDS+2, BEDSPR+3, BEDSPR+7, BEDSPR+11!
^UTILITY("DGPMLD"	LD, LD+2, LD+3!, LDGER+4*, LDGER+5, BEDSPR+10

Name	Line Occurrences
ACT	EN
AVAIL	ACT+1
BEDS	EN
BEDSPR	PR+2
DIS	EN
HEAD	SV, SV+1, PRINT+4, BEDSPR+2, BEDSPR+4, BEDSPR+10
LD	EN+7, BEDSPR+10
LDGER	ACT
LOD	LD+2
PRINT	PR, PR+1, SV, SV+1
SV	PR

Name	Field # of Occurrence
^(	PR+1, LD+2, ACT, ACT+1, LDGER+5, BEDS+2, BEDSPR+3
^(0	PRINT+1, EN, ACT+1, DIS+8, LDGER+2, SA

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	PR
BDGDT	EN+8~*, EN+9
>> D0	PRINT+3*
DFN	LDGER+5~, SA
>> DGA	PRINT+4, EN+2, ACT+3, DIS+6, DIS+7
DGBCNT	BEDSPR+1~, BEDSPR+3*, BEDSPR+9
DGBDESC	BEDSPR+1~, BEDSPR+3*, BEDSPR+5
DGBDNM	BEDSPR+1~, BEDSPR+3*, BEDSPR+5, BEDSPR+7
>> DGDESC	DIS+6, BEDS+1, BEDSPR+3, BEDSPR+5, BEDSPR+6
>> DGDT	PR*, AVAIL
>> DGFL	PR, PR+1, SV, SV+1, PRINT+4, EN, HEAD, BEDSPR+3, BEDSPR+4, BEDSPR+8 , BEDSPR+10
>> DGI	PR, PR+1, SV, SV+1, HEAD+2
>> DGJ	SV, SV+1
>> DGL	PRINT+4, LD+2
>> DGLD	LD
>> DGND	ACT+1*, AVAIL
>> DGNM	PRINT+4*, ABBREV+1, LDGER+3, BEDS+2
>> DGNOW	PR*, HEAD+1
>> DGONE	EN+7, EN+11
>> DGOPT	PR, PR+2, PRINT+4, ABBREV+1, EN, EN+1, HEAD+2
>> DGPG	PR, PRINT+4, HEAD, HEAD+1
>> DGR	EN, LD+2, LOD, LDGER+4, LDGER+5
>> DGSA	EN+7
>> DGSTR	HEAD+2
>> DGSV	SV, SV+1
>> DGSV(	SV
>> DGU	EN, ACT, ACT+1, ACT+2, AVAIL*
DGWCNT	BEDSPR+1~, BEDSPR+7*
DGWRD	BEDSPR+1~, BEDSPR+7*
DIR	HEAD!
DIR(0	HEAD*
DT	EN+8, EN+9
>> I	EN, EN+9, EN+10, ACT, ACT+1, DIS+2
>> I1	PR, PR+1, SV, SV+1
IOF	HEAD+1
IOSL	PRINT+4, BEDSPR+4
IOST	HEAD
>> J	PR+1, EN, EN+10, EN+12, EN+13, LD+2, DIS+3, DIS+6, DIS+8, LOD , LDGER+2*, LDGER+3, LDGER+4, LDGER+5, SA, BEDS+1, BEDS+2
>> J1	LD+2*
>> M	ACT*, LDGER+2
U	PRINT+1, DIS+3, BEDS+1, BEDS+2
>> VA("PID"	LDGER+5, SA
>> VAUTD	PRINT+1
>> VAUTD(	PRINT+1
>> VAUTW	PR, PR+1
>> VAUTW(	PR
>> W	PR, PR+1, SV, SV+1, PRINT+1, PRINT+3, PRINT+4, EN, EN+7, EN+9 , EN+10
X	PRINT+3, ACT+1, HEAD+1!
>> Y	PR, HEAD, SA

Customize PDF page

Package: Registration

Routine: DGPMRBA1

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

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	Comments	DBIA/ICR reference
PR
BEDS	;create TMP for beds - DG5.3544
ABB	;call in here for abbreviated (single ward) bed availability
EN
LOD
LDGER	;create UTILITY for lodgers
SV
LD
AVAIL
HEAD
ABBREV	;abbreviated bed availability
ACT
PRINT	;I $S('$D(^DIC(42,+W,0)):1,VAUTD:0,'$P(^(0),"^",11)&$D(VAUTD(+$O(^DG(40.8,0)))):0,$D(VAUTD(+$P(^DIC(42,+W,0),"^",11))):0,1:1) Q
SA
BEDSPR	;print report by beds - DG5.3544
DIS	;display available room-beds with/without descriptions