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 ;Sep 22, 2020@08:37

Source Information

Source file <DGSCHAD.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA FileMan 5 ^DIC  DT^DICRW  ^DIE  ^DIK  $$IENS^DILF  
Registration 2 ASK^DGBLRV  DIV^DGUTL  
Kernel 1 ($$FMADD,$$NOW)^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: 10

Package Total Caller Graph
Registration 9 DG SCHED ADMIT CANCEL  DG SCHED ADMIT ENTRY  DGDIS1  DGOERR SCHED ADMIT  DGSATX  DGSATX1  DGSCHADMIT  DGSHARESUB  
^DGS(41.1  
Kernel 1 ^ORD(101  

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

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
$$IENS^DILF NOTIFY+5
$$FMADD^XLFDT NOTIFY+28
$$NOW^XLFDT NOTIFY+5

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

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
^XTMP( NOTIFY+6, NOTIFY+7, NOTIFY+13*, NOTIFY+22!, NOTIFY+23!, NOTIFY+25, NOTIFY+28*, NOTIFY+29*, NOTIFY+30*, NOTIFY+31*
, NOTIFY+32*, NOTIFY+33*, NOTIFY+34*, NOTIFY+35*

Label References

Name Line Occurrences
1 EN+1, EN+2, TP+1
11 OREN
2 2+2
CA 2+2
GETFIELDS NOTIFY+11, NOTIFY+26
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
ACTION NOTIFY+4~, NOTIFY+9*, NOTIFY+12, NOTIFY+15, NOTIFY+17*, NOTIFY+20*, NOTIFY+26, NOTIFY+27, NOTIFY+31
DA EN+2*, 2+2*, KILL*, Q!, NOTIFY~, NOTIFY+5
DATE NOTIFY+4~, NOTIFY+5*, NOTIFY+29
>> 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, NOTIFY+28
EXIT NOTIFY+4~, NOTIFY+6*, NOTIFY+8, NOTIFY+14*, NOTIFY+16*
FIELD NOTIFY+4~, GETFIELDS+1~, GETFIELDS+2*, GETFIELDS+3, GETFIELDS+4
FIELDS NOTIFY+4~, NOTIFY+11, NOTIFY+13, NOTIFY+16, NOTIFY+26, NOTIFY+35, GETFIELDS~
FIELDS( GETFIELDS+4*
HISTACT NOTIFY+4~, NOTIFY+6*, NOTIFY+7*, NOTIFY+10, NOTIFY+18, NOTIFY+24, NOTIFY+27
I SA+3*, CA+2*, Q!
IENS NOTIFY+4~, NOTIFY+5*, NOTIFY+6, NOTIFY+22, NOTIFY+30, NOTIFY+34
NEWVAL NOTIFY~, NOTIFY+11, NOTIFY+26, GETFIELDS~
NEWVAL( GETFIELDS+3
NEWVAL(1 NOTIFY+3, NOTIFY+32
NODE1 NOTIFY+4~, NOTIFY+5*, NOTIFY+6, NOTIFY+7, NOTIFY+13, NOTIFY+22, NOTIFY+23, NOTIFY+25, NOTIFY+28, NOTIFY+29
, NOTIFY+30, NOTIFY+31, NOTIFY+32, NOTIFY+33, NOTIFY+34, NOTIFY+35
NODE2 NOTIFY+4~, NOTIFY+6*, NOTIFY+7, NOTIFY+13, NOTIFY+18*, NOTIFY+19, NOTIFY+21, NOTIFY+22, NOTIFY+24*, NOTIFY+25*
, NOTIFY+29, NOTIFY+30, NOTIFY+31, NOTIFY+32, NOTIFY+33, NOTIFY+34, NOTIFY+35
OLDVAL NOTIFY~, NOTIFY+11, NOTIFY+26, GETFIELDS~
OLDVAL( GETFIELDS+2, GETFIELDS+3
OLDVAL(1 NOTIFY+9, NOTIFY+33
ORACTION 1+1!, EN, EN+1, EN+2, TP+1
>> ORVP OREN
TYPE NOTIFY~, NOTIFY+3, NOTIFY+8, NOTIFY+19
U EN, WACT+12, WACT+13, WACT+14, NOTIFY+28, GETFIELDS+3
X Q!, OREN*
>> XPDNM NOTIFY+3
>> 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