Routine: DGPMDDOS

Information

DGPMDDOS ;ALB/MIR - OUT-OF-SERVICE BEDS/WARDS ; 29 MAY 90 @1400

Source Information

Source file <DGPMDDOS.m>

Call Graph

Call Graph Total: 4

Package	Total	Call Graph
VA Fileman	3	^DIC ^DIE ^DIK
Kernel	1	$$FMTE^XLFDT

Caller Graph

Caller Graph Total: 5

Package	Total	Caller Graph
Registration	5	DG IHS BED OOS EDIT DG IHS WARD OOS EDIT DGPM EDIT OOS BEDS DGPM WARD OOS EDIT OUT-OF-SERVICE DATE

Entry Points

Name	Comments	DBIA/ICR reference
BEDSEL
WRTS	;can't be after next out-of-service or before present out-of-service
ROUT
BED	;called from bed out-of-service option
Q
WOUT
WOOS	;no if before last return to service or next out of service or if last out-of service was not returned to service or after return to service
WARD	;called from ward out-of-service option
ROOS	;no if before last return to service or next out of service or if last out-of service was not returned to service
NOPE
RRTS	;can't be after next out-of-service or before present out-of-service

External References

Name	Field # of Occurrence
^DIC	WARD+1, WARD+2, BEDSEL+1, BEDSEL+2
^DIE	WARD+3, BEDSEL+3
^DIK	WARD+4, BEDSEL+4
$$FMTE^XLFDT	WOUT, ROUT

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Must use supervisor options to place ward out-of-service!" Line Location: WOOS+1
Function Call: WRITE	Prompt: !,*7,"Not before last return to service date" Line Location: WOOS+2
Function Call: WRITE	Prompt: !,"Not before last out-of-service episode" Line Location: WOOS+3
Function Call: WRITE	Prompt: !,*7,"Not after return to service date" Line Location: WOOS+4
Function Call: WRITE	Prompt: !,*7," WARNING...there are patients on this ward" Line Location: WOOS+5
Function Call: WRITE	Prompt: !,*7,"Must be after out-of-service date" Line Location: WRTS+1
Function Call: WRITE	Prompt: !,*7,"Not after next out-of-service date" Line Location: WRTS+2
Function Call: WRITE	Prompt: !,"Ward was already placed out of service on ",$$FMTE^XLFDT(DGX,"5DZ") Line Location: WOUT+0
Function Call: WRITE	Prompt: !,"Must use supervisor options to place room-bed out-of-service!" Line Location: ROOS+1
Function Call: WRITE	Prompt: !,*7,"Not before last return to service date" Line Location: ROOS+2
Function Call: WRITE	Prompt: !,"Not before last out-of-service episode" Line Location: ROOS+3
Function Call: WRITE	Prompt: !,*7,"Not after return to service date" Line Location: ROOS+4
Function Call: WRITE	Prompt: !,*7," WARNING...there is a patient occupying this bed" Line Location: ROOS+5
Function Call: WRITE	Prompt: !,*7,"Must be after out-of-service date" Line Location: RRTS+1
Function Call: WRITE	Prompt: !,*7,"Not after next out-of-service date" Line Location: RRTS+2
Function Call: WRITE	Prompt: !,"Room-bed was already placed out of service on ",$$FMTE^XLFDT(DGX,"5DZ"),"." Line Location: ROUT+0
Function Call: WRITE	Prompt: !,*7,"Incomplete entry...deleted" Line Location: WARD+4
Function Call: WRITE	Prompt: !!,"This option is used to inactivate a bed for bed availability purposes only.",!,"If you want this bed to also show as statistically out-of-service on the",!,"G&L, you must also utilize the 'Edit Ward Out-of-Service Dates' option and" Line Location: BED+1
Function Call: WRITE	Prompt: !,"enter the current number of beds out-of-service for the ward you wish." Line Location: BED+2
Function Call: WRITE	Prompt: !! Line Location: BEDSEL+0
Function Call: WRITE	Prompt: !,*7,"Incomplete entry...deleted" Line Location: BEDSEL+4
Routine Call	DIE Line Location: WARD+3 BEDSEL+3
Routine Call	DIC Line Location: WARD+1 WARD+2 BEDSEL+1 BEDSEL+2

FileNo	Call Tags
^DG(405.4 - [#405.4]	Classic Fileman Calls
^DIC(42 - [#42]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DG(405.4 - [#405.4]	ROOS+2, ROOS+3, ROOS+4, RRTS+1, RRTS+2, BEDSEL+2, BEDSEL+4
^DGPM("ARM"	ROOS+5
^DGPM("CN"	WOOS+5
^DIC(42 - [#42]	WOOS+2, WOOS+3, WOOS+4, WOOS+5, WRTS+1, WRTS+2, WARD+2, WARD+4

Name	Field # of Occurrence
^(	WOOS+2, ROOS+2
^(0	WOOS+2, WOOS+4, WRTS+1, ROOS+2, ROOS+4, RRTS+1, WARD+2, WARD+4, BEDSEL+2, BEDSEL+4

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	WOOS+2, WOOS+4, WRTS+1, ROOS+2, ROOS+4, RRTS+1, WARD+2, WARD+4, Q!, BEDSEL+2 , BEDSEL+4
DA(1	WOOS+2, WOOS+3, WOOS+4, WOOS+5, WRTS+1, WRTS+2, ROOS+2, ROOS+3, ROOS+4, ROOS+5 , RRTS+1, RRTS+2, WARD+1, WARD+2, WARD+4, BEDSEL+1, BEDSEL+2, BEDSEL+4
DGIFN	Q!, BEDSEL+1*
DGNEW	WOOS+1, WOOS+2, WOOS+3, WOOS+4, ROOS+1, ROOS+2, ROOS+3, ROOS+4, WARD+2, WARD+3 , Q!, BEDSEL+2, BEDSEL+3
DGX	WOOS+2, WOOS+3, WOOS+6!, WRTS+1, WRTS+2, WRTS+3!, WOUT, NOPE!, ROOS+2, ROOS+3 , ROOS+6!, RRTS+1, RRTS+2, RRTS+3!, ROUT
DIC	WARD+1, WARD+2, WARD+3, Q!, BEDSEL+1, BEDSEL+2, BEDSEL+3
DIC(0	WARD+1, WARD+2, BEDSEL+1, BEDSEL+2
DIE	WARD+3, WARD+4, Q!, BEDSEL+3, BEDSEL+4
DIE("NO^"	WARD+3, BEDSEL+3
>> DIK	WARD+4, BEDSEL+4
DLAYGO	WARD+2, Q!, BEDSEL+2
DR	WARD+3, Q!, BEDSEL+3
X	WOOS+2, WOOS+3, WOOS+4, WRTS+1, WRTS+2, NOPE!, ROOS+2, ROOS+3, ROOS+4, RRTS+1 , RRTS+2, WARD+4, Q!, BEDSEL+4
Y	WARD+1, WARD+2, Q!, BEDSEL+1, BEDSEL+2

Customize PDF page

Package: Registration

Routine: DGPMDDOS

Information

Source Information

Call Graph

Call Graph Total: 4

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:

Name	Line Occurrences
BEDSEL	BEDSEL+5
NOPE	WOOS+1, WOOS+2, WOOS+3, WOOS+4, WRTS+1, WRTS+2, ROOS+1, ROOS+2, ROOS+3, RRTS+1 , RRTS+2, ROUT
Q	WARD+1, WARD+2, WARD+4, BEDSEL+1, BEDSEL+2, BEDSEL+4
WARD	WARD+5
WOUT	WOOS+2, ROOS+2