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 |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DG(405.4 - [#405.4] Classic Fileman Calls
^DIC(42 - [#42] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call