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: DGPMRBA1

Package: Registration

Routine: DGPMRBA1


Information

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

Source Information

Source file <DGPMRBA1.m>

Entry Points

Name Comments DBIA/ICR reference
PR
SV
PRINT
ABB ;call in here for abbreviated (single ward) bed availability
ABBREV ;abbreviated bed availability
EN
LD
ACT
AVAIL
DIS ;display available room-beds with/without descriptions
LOD
LDGER ;create UTILITY for lodgers
HEAD
SA
BEDS ;create TMP for beds - DG*5.3*544
BEDSPR ;print report by beds - DG*5.3*544

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: !?3,"Lodgers occupy the following beds:"
  • Line Location: LD+1
Function Call: WRITE
  • Prompt: !?3
  • Condition for execution: DGA=1
  • Line Location: DIS+1
Function Call: WRITE
  • Prompt: !?3
  • Condition for execution: $X+$L($P(J,"^",1))>79
  • Line Location: DIS+1
Function Call: WRITE
  • Prompt: $P(J,"^",1)
  • Line Location: DIS+1
Function Call: WRITE
  • Prompt: ?40
  • Line Location: DIS+2
Function Call: WRITE
  • Prompt: $E($P(J,"^",1),1,18)
  • Line Location: DIS+3
Function Call: WRITE
  • Prompt: " (",$E($P(^(0),"^",1),1,15),")"
  • Line Location: DIS+3
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
Info |  Source |  Entry Points |  Interaction Calls