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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: DGPMDDOS

Package: Registration

Routine: DGPMDDOS


Information

DGPMDDOS ;ALB/MIR - OUT-OF-SERVICE BEDS/WARDS ; 29 MAY 90 @1400

Source Information

Source file <DGPMDDOS.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA FileMan 3 ^DIC  ^DIE  ^DIK  
Kernel 1 $$FMTE^XLFDT  

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

Package Total Caller Graph
Registration 3 DGPM EDIT OOS BEDS  DGPM WARD OOS EDIT  OUT-OF-SERVICE DATE  

Entry Points

Name Comments DBIA/ICR reference
WOOS ;no if before last return to service or next out of service or if last out-of service was not returned to service or after return to service
WRTS ;can't be after next out-of-service or before present out-of-service
WOUT
NOPE
ROOS ;no if before last return to service or next out of service or if last out-of service was not returned to service
RRTS ;can't be after next out-of-service or before present out-of-service
ROUT
WARD ;called from ward out-of-service option
Q
BED ;called from bed out-of-service option
BEDSEL

External References

Name Field # of Occurrence
^DIC WARD+1, WARD+2, BEDSEL+1, BEDSEL+2
^DIE WARD+3, BEDSEL+3
^DIK WARD+4, BEDSEL+4
$$FMTE^XLFDT WOUT, ROUT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Must use supervisor options to place ward out-of-service!"
  • Line Location: WOOS+1
Function Call: WRITE
  • Prompt: !,*7,"Not before last return to service date"
  • Line Location: WOOS+2
Function Call: WRITE
  • Prompt: !,"Not before last out-of-service episode"
  • Line Location: WOOS+3
Function Call: WRITE
  • Prompt: !,*7,"Not after return to service date"
  • Line Location: WOOS+4
Function Call: WRITE
  • Prompt: !,*7," WARNING...there are patients on this ward"
  • Line Location: WOOS+5
Function Call: WRITE
  • Prompt: !,*7,"Must be after out-of-service date"
  • Line Location: WRTS+1
Function Call: WRITE
  • Prompt: !,*7,"Not after next out-of-service date"
  • Line Location: WRTS+2
Function Call: WRITE
  • Prompt: !,"Ward was already placed out of service on ",$$FMTE^XLFDT(DGX,"5DZ")
  • Line Location: WOUT+0
Function Call: WRITE
  • Prompt: !,"Must use supervisor options to place room-bed out-of-service!"
  • Line Location: ROOS+1
Function Call: WRITE
  • Prompt: !,*7,"Not before last return to service date"
  • Line Location: ROOS+2
Function Call: WRITE
  • Prompt: !,"Not before last out-of-service episode"
  • Line Location: ROOS+3
Function Call: WRITE
  • Prompt: !,*7,"Not after return to service date"
  • Line Location: ROOS+4
Function Call: WRITE
  • Prompt: !,*7," WARNING...there is a patient occupying this bed"
  • Line Location: ROOS+5
Function Call: WRITE
  • Prompt: !,*7,"Must be after out-of-service date"
  • Line Location: RRTS+1
Function Call: WRITE
  • Prompt: !,*7,"Not after next out-of-service date"
  • Line Location: RRTS+2
Function Call: WRITE
  • Prompt: !,"Room-bed was already placed out of service on ",$$FMTE^XLFDT(DGX,"5DZ"),"."
  • Line Location: ROUT+0
Function Call: WRITE
  • Prompt: !,*7,"Incomplete entry...deleted"
  • Line Location: WARD+4
Function Call: WRITE
  • Prompt: !!,"This option is used to inactivate a bed for bed availability purposes only.",!,"If you want this bed to also show as statistically out-of-service on the",!,"G&L, you must also utilize the 'Edit Ward Out-of-Service Dates' option and"
  • Line Location: BED+1
Function Call: WRITE
  • Prompt: !,"enter the current number of beds out-of-service for the ward you wish."
  • Line Location: BED+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: BEDSEL+0
Function Call: WRITE
  • Prompt: !,*7,"Incomplete entry...deleted"
  • Line Location: BEDSEL+4
Routine Call
  • DIC
  • Line Location:
    • WARD+1
    • WARD+2
    • BEDSEL+1
    • BEDSEL+2
Routine Call
  • DIE
  • Line Location:
    • WARD+3
    • BEDSEL+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DG(405.4 - [#405.4] Classic Fileman Calls
^DIC(42 - [#42] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(405.4 - [#405.4] ROOS+2, ROOS+3, ROOS+4, RRTS+1, RRTS+2, BEDSEL+2, BEDSEL+4
^DGPM("ARM" ROOS+5
^DGPM("CN" WOOS+5
^DIC(42 - [#42] WOOS+2, WOOS+3, WOOS+4, WOOS+5, WRTS+1, WRTS+2, WARD+2, WARD+4

Label References

Name Line Occurrences
BEDSEL BEDSEL+5
NOPE WOOS+1, WOOS+2, WOOS+3, WOOS+4, WRTS+1, WRTS+2, ROOS+1, ROOS+2, ROOS+3, RRTS+1
, RRTS+2, ROUT
Q WARD+1, WARD+2, WARD+4, BEDSEL+1, BEDSEL+2, BEDSEL+4
WARD WARD+5
WOUT WOOS+2, ROOS+2

Naked Globals

Name Field # of Occurrence
^( WOOS+2, ROOS+2
^(0 WOOS+2, WOOS+4, WRTS+1, ROOS+2, ROOS+4, RRTS+1, WARD+2*, WARD+4, BEDSEL+2*, BEDSEL+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA WOOS+2, WOOS+4, WRTS+1, ROOS+2, ROOS+4, RRTS+1, WARD+2*, WARD+4, Q!, BEDSEL+2*
, BEDSEL+4
DA(1 WOOS+2, WOOS+3, WOOS+4, WOOS+5, WRTS+1, WRTS+2, ROOS+2, ROOS+3, ROOS+4, ROOS+5
, RRTS+1, RRTS+2, WARD+1*, WARD+2*, WARD+4, BEDSEL+1*, BEDSEL+2*, BEDSEL+4
DGIFN Q!, BEDSEL+1*
DGNEW WOOS+1, WOOS+2, WOOS+3, WOOS+4, ROOS+1, ROOS+2, ROOS+3, ROOS+4, WARD+2*, WARD+3*
, Q!, BEDSEL+2*, BEDSEL+3*
DGX WOOS+2*, WOOS+3*, WOOS+6!, WRTS+1*, WRTS+2*, WRTS+3!, WOUT, NOPE!, ROOS+2*, ROOS+3*
, ROOS+6!, RRTS+1*, RRTS+2*, RRTS+3!, ROUT
DIC WARD+1*, WARD+2*, WARD+3, Q!, BEDSEL+1*, BEDSEL+2*, BEDSEL+3
DIC(0 WARD+1*, WARD+2*, BEDSEL+1*, BEDSEL+2*
DIE WARD+3*, WARD+4, Q!, BEDSEL+3*, BEDSEL+4
DIE("NO^" WARD+3*, BEDSEL+3*
>> DIK WARD+4*, BEDSEL+4*
DLAYGO WARD+2*, Q!, BEDSEL+2*
DR WARD+3*, Q!, BEDSEL+3*
X WOOS+2, WOOS+3, WOOS+4, WRTS+1, WRTS+2, NOPE!, ROOS+2, ROOS+3, ROOS+4, RRTS+1
, RRTS+2, WARD+4*, Q!, BEDSEL+4*
Y WARD+1, WARD+2, Q!, BEDSEL+1, BEDSEL+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All