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

Package: Registration

Routine: DGPMRBA1


Information

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

Source Information

Source file <DGPMRBA1.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA FileMan 3 NOW^%DTC  DT^DIQ  ^DIR  
Registration 2 WIN^DGPMDDCF  PID^VADPT6  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DGPMRBA  

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

External References

Name Field # of Occurrence
NOW^%DTC PR
WIN^DGPMDDCF PRINT+1
DT^DIQ SA
^DIR HEAD
PID^VADPT6 LDGER+5, SA

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
Routine Call
  • DIR
  • Line Location:
    • HEAD

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" PR
^DG(40.8 - [#40.8] PRINT
^DG(405.4 - [#405.4] EN, ACT+1
^DG(405.6 - [#405.6] DIS+3, BEDS+1
^DGPM - [#405] LDGER+2
^DGPM("ARM" ACT
^DGS(41.1 - [#41.1] EN+3, EN+4
^DIC(42 - [#42] PR+1, SV, SV+1, PRINT, PRINT+2
^DPT - [#2] LDGER+3, LDGER+4, SA
^DPT("LD" LDGER+3
^TMP("DGPMBD" BEDS+1*, BEDS+2, BEDSPR+3, BEDSPR+7, BEDSPR+11!
^UTILITY("DGPMLD" LD, LD+2, LD+3!, LDGER+4*, LDGER+5, BEDSPR+10

Label References

Name Line Occurrences
ACT EN
AVAIL ACT+1
BEDS EN
BEDSPR PR+2
DIS EN
HEAD SV, SV+1, PRINT+2, BEDSPR+2, BEDSPR+4, BEDSPR+10
LD EN+3, BEDSPR+10
LDGER ACT
LOD LD+2
PRINT PR, PR+1, SV, SV+1
SA EN+4
SV PR

Naked Globals

Name Field # of Occurrence
^( PR+1, LD+2, ACT, ACT+1, LDGER+5*, BEDS+2*, BEDSPR+3
^(0 PRINT, EN, EN+4, ACT+1, DIS+3, LDGER+2, SA

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % PR
>> D0 PRINT+1*
DFN LDGER+5~*, SA*
>> DGA PRINT+2*, EN+2, ACT+3*, DIS+1, DIS+2
DGBCNT BEDSPR+1~, BEDSPR+3*, BEDSPR+9
DGBDESC BEDSPR+1~, BEDSPR+3*, BEDSPR+5
DGBDNM BEDSPR+1~, BEDSPR+3*, BEDSPR+5, BEDSPR+7
>> DGDESC DIS+1, BEDS+1, BEDSPR+3, BEDSPR+5, BEDSPR+6
>> DGDT PR*, AVAIL
>> DGFL PR*, PR+1, SV, SV+1, PRINT+2, EN, HEAD*, BEDSPR+3, BEDSPR+4, BEDSPR+8
, BEDSPR+10
>> DGI PR*, PR+1*, SV*, SV+1*, HEAD+2
>> DGJ SV*, SV+1*
>> DGL PRINT+2*, LD+2*
>> DGLD LD
>> DGND ACT+1*, AVAIL
>> DGNM PRINT+2*, ABBREV+1, LDGER+3, BEDS+2
>> DGNOW PR*, HEAD+1
>> DGONE EN+3*, EN+4*
>> DGOPT PR, PR+2, PRINT+2, ABBREV+1, EN, EN+1, HEAD+2
>> DGPG PR*, PRINT+2, HEAD, HEAD+1*
>> DGR EN*, LD+2*, LOD, LDGER+4, LDGER+5
>> DGSA EN+3
>> DGSTR HEAD+2
>> DGSV SV, SV+1
>> DGSV( SV
>> DGU EN, ACT*, ACT+1*, ACT+2, AVAIL*
DGWCNT BEDSPR+1~, BEDSPR+7*
DGWRD BEDSPR+1~, BEDSPR+7*
DIR HEAD!
DIR(0 HEAD*
DT EN+4
>> I EN*, EN+4*, ACT, ACT+1
>> I1 PR*, PR+1*, SV*, SV+1*
IOF HEAD+1
IOSL PRINT+2, BEDSPR+4
IOST HEAD
>> J PR+1*, EN*, EN+4*, LD+2*, DIS+1*, DIS+3, LOD, LDGER+2*, LDGER+3, LDGER+4
, LDGER+5, SA, BEDS+1, BEDS+2
>> J1 LD+2*
>> M ACT*, LDGER+2
U BEDS+1, BEDS+2
>> VA("PID" LDGER+5, SA
>> VAUTD PRINT
>> VAUTD( PRINT
>> VAUTW PR, PR+1
>> VAUTW( PR
>> W PR*, PR+1*, SV*, SV+1*, PRINT, PRINT+1, PRINT+2, EN, EN+3, EN+4
X PRINT+1, ACT+1*, HEAD+1!*
>> Y PR*, HEAD, SA*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All