Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Info | Source | Entry Points | Interaction Calls

Print Page as PDF

Routine: DGPMRB

Package: Registration

Routine: DGPMRB

Information

DGPMRB ;ALB/MRL,MIR - ROOM-BED DETERMINATION (SINGLE WARD); 9 JAN 89

Source Information

Source file <DGPMRB.m>

Entry Points

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

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	Variable: DGPMX Timeout: DTIME Line Location: READ+1
Function Call: WRITE	Prompt: !!?5,"Enter either RETURN or '^'",! Line Location: READ+2

Info | Source | Entry Points | Interaction Calls