Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
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>

Call Graph

Call Graph Total: 3

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 ^DGPM  

Entry Points

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

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

Global Variables Directly Accessed

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!

Label References

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

Naked Globals

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

Local Variables

Legend:

>> 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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All