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

Package: Registration

Routine: DGSCHAD


Information

DGSCHAD ;ALB/MRL - SCHEDULED ADMISSIONS ENTRY/CANCEL ;Sep 22, 2020@08:37

Source Information

Source file <DGSCHAD.m>

Entry Points

Name Comments DBIA/ICR reference
1 ;Schedule Admission
11
EN
TP
2 ;Cancel Scheduled Admission
SA ;Check SA for missing data
CA ;Check for missing CA data
WARN
KILL
Q
OREN
WACT(DGW,DGDT) ;ward active on scheduled admit date?
; input: DGW = ien of WARD LOCATION file
; DGDT = date of interest - defaults to DT
; returns: 1 if active
; 0 if inactive (out-of-service)
; -1 if error
NOTIFY(OLDVAL,NEWVAL,DA,TYPE) ;queue data change messages
GETFIELDS(OLDVAL,NEWVAL,FIELDS) ;return modified fields

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: 1+1
Function Call: WRITE
  • Prompt: !,"Editing is not allowed through this option, only adding",*7,!
  • Line Location: EN+0
Function Call: WRITE
  • Prompt: !
  • Line Location: TP+0
Function Call: WRITE
  • Prompt: !!,*7,"All questions must be answered or this scheduled admission won't be cancelled!!"
  • Line Location: 2+2
Function Call: WRITE
  • Prompt: !?4,"> ",$P(DGERSUB,"^",I)," is not specified."
  • Line Location: SA+3
Function Call: WRITE
  • Prompt: !?4,"> WARD location to which admit is scheduled is not specified."
  • Line Location: SA+4
Function Call: WRITE
  • Prompt: !?4,"> TREATING SPECIALTY to which admit is scheduled is unspecified."
  • Line Location: SA+5
Function Call: WRITE
  • Prompt: !!,*7,"[",$S('DGERR:"ADMISSION HAS BEEN",1:"NOTHING")," SCHEDULED",$S('DGERR:"",1:"...ACTION DELETED"),"]"
  • Line Location: SA+6
Function Call: WRITE
  • Prompt: !?4,"> ",$P(DGERSUB,"^",I-12)," is unspecified."
  • Line Location: CA+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGS(41.1 - [#41.1] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call