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