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

Package: Registration

Routine: DGSCHAD


Information

DGSCHAD ;ALB/MRL - SCHEDULED ADMISSIONS ENTRY/CANCEL ;12/4/91 14:14 ;

Source Information

Source file <DGSCHAD.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA Fileman 4 ^DIC  DT^DICRW  ^DIE  ^DIK  
Registration 2 ASK^DGBLRV  DIV^DGUTL  

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Registration 4 DG SCHED ADMIT CANCEL  DG SCHED ADMIT ENTRY  DGDIS1  DGOERR SCHED ADMIT  

Entry Points

Name Comments DBIA/ICR reference
11
WARN
OREN
EN
CA ;Check for missing CA data
Q
TP
1 ;Schedule Admission
2 ;Cancel Scheduled Admission
KILL
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
SA ;Check SA for missing data

External References

Name Field # of Occurrence
ASK^DGBLRV TP
DIV^DGUTL EN+2
^DIC 11, 2+1
DT^DICRW WARN
^DIE EN+2, 2+2, CA+3
^DIK KILL

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
Routine Call
  • DIE
  • Line Location:
    • EN+2
    • 2+2
    • CA+3
Routine Call
  • DIC
  • Line Location:
    • 11
    • 2+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGS(41.1 - [#41.1] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" EN+1
^DGS(41.1 - [#41.1] EN+2, SA+1, CA+1
^DIC(42 - [#42] WACT+9, WACT+11
^DPT - [#2] EN+1, EN+2

Label References

Name Line Occurrences
1 EN+1, EN+2, TP+1
11 OREN
2 2+2
CA 2+2
KILL EN+1, SA+6
Q 1+1, 11, EN, EN+1, EN+2, EN+3, TP+1, 2+1, 2+2, WARN
, OREN
SA EN+2
WARN 2+1

Naked Globals

Name Field # of Occurrence
^( EN+1, WACT+11
^(0 EN+1, SA+1, CA+1, WACT+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA EN+2*, 2+2*, KILL*, Q!
>> DFN 11*, EN+2
DFN1 EN+3!, Q!
DGDT WACT~, WACT+10
DGERR EN+2, SA+1*, SA+2*, SA+3*, SA+4*, SA+5*, SA+6, CA+1*, CA+2*, CA+3
, Q!
DGERR1 CA+1*, CA+2*, CA+3, Q!
DGERSUB SA+2*, SA+3, CA+1*, CA+2, Q!
DGJJ EN+3!
DGNEW 1+1*, EN*, EN+1, Q!, OREN*
DGPMDA EN+3!, TP+1
DGSCH 11*, EN+2, 2+1*, 2+2, SA+1, CA+1, KILL, Q!
DGSCH1 SA+1*, SA+3, SA+4, SA+5, CA+1*, CA+2, Q!
DGSDIV Q!
>> DGSKIP 1+1, EN+1, EN+2, EN+3
DGW WACT~, WACT+8, WACT+9, WACT+11
DGX WACT+7~, WACT+11*, WACT+12, WACT+13, WACT+14
DGY WACT+7~, WACT+10*, WACT+11, WACT+14
DIC 11*, EN+2, 2+1*, 2+2, Q!
DIC("A" 1+1*, 11!, 2+1*!
DIC("S" 11*!, 2+1*!
DIC(0 1+1*, 2+1*, CA+3*, OREN*
DIE EN+2*, 2+2*, CA+3*, Q!
DIK KILL*!, Q!
DLAYGO 11*!
DR EN+2*, 2+2*, CA+3*!, Q!
DT WARN, WACT+10
I SA+3*, CA+2*, Q!
ORACTION 1+1!, EN, EN+1, EN+2, TP+1
>> ORVP OREN
U EN, WACT+12, WACT+13, WACT+14
X Q!, OREN*
>> XQORQUIT OREN*
Y 11, EN, EN+1*, EN+2*, 2+1, 2+2*, Q!
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