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 |  Marked Items  | All
Print Page as PDF
Routine: SDMM1

Package: Scheduling

Routine: SDMM1


Information

SDMM1 ;ALB/GRR - MULTIPLE BOOKINGS ;JUN 21, 2017

Source Information

Source file <SDMM1.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Scheduling 10 $$INP^SDAM2  MAKE^SDAMEVT  SDECADD^SDEC07  ($$GETRES,$$RECALL)^SDECUTL  DOW^SDM0  SC^SDM1  ($$SDWLA,$$STATUS)^SDM1A  SDFT^SDMM  
RT^SDUTL  (APPT,EN)^SDWLEVAL  
VA FileMan 3 EN1^DIK  ($$GET1,DT)^DIQ  ^DIR  
Kernel 1 ($$FMADD,$$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: 1

Package Total Caller Graph
Scheduling 1 SDMM  

Entry Points

Name Comments DBIA/ICR reference
MAKE
S
SC
OK
S1 ;alb/sat 658 - needs to be incremental lock - added + 'L +^SC(SC,...'
XRDT(DFN,X) ;cross reference DATE APPT. MADE field
NOOB
WRTER
DT
DAY ;;^SUN^MON^TUES^WEDNES^THURS^FRI^SATUR
X
EVT ; -- separate tag if need to NEW vars
OB ; check for overbook keys
OBQ
DIR(TEXT,DEF) ; reader processor
; Input: TEXT as text of read
; DEF as default response (if any)

External References

Name Field # of Occurrence
EN1^DIK XRDT+4
$$GET1^DIQ S1+20
DT^DIQ S1+23
^DIR DIR+7
$$INP^SDAM2 S1+4
MAKE^SDAMEVT EVT+1
SDECADD^SDEC07 S1+21
$$GETRES^SDECUTL S1+19
$$RECALL^SDECUTL S1+16
DOW^SDM0 MAKE
SC^SDM1 SC
$$SDWLA^SDM1A S1+17
$$STATUS^SDM1A S1+5
SDFT^SDMM MAKE+1
RT^SDUTL S1+12
APPT^SDWLEVAL S1+25
EN^SDWLEVAL S1+25
$$FMADD^XLFDT S1+21
$$FMTE^XLFDT OB+8, OB+12

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"PATIENT ALREADY HAS APPOINTMENT ON ",$P("JAN^FEB^MAR^APR^MAY^JUN^JUL^AUG^SEP^OCT^NOV^DEC","^",$E(X,4,5))," ",$E(X,6,7)," AT THAT TIME"
  • Line Location: MAKE+0
Function Call: WRITE
  • Prompt: !,*7,"EXCEEDS MAXIMUM DAYS FOR FUTURE APPOINTMENT!!",*7
  • Line Location: MAKE+1
Function Call: WRITE
  • Prompt: !
  • Line Location: SC+0
Function Call: WRITE
  • Prompt: " HAS BEEN LOCKED BY ANOTHER USER - APPT NOT BOOKED"
  • Line Location: SC+0
Function Call: WRITE
  • Prompt: !,"APPOINTMENT MADE ON "
  • Line Location: S1+23
Function Call: WRITE
  • Prompt: !,SDMES
  • Line Location: WRTER+0
Function Call: WRITE
  • Prompt: " AT THAT TIME"
  • Condition for execution: SDNOT
  • Line Location: WRTER+0
Function Call: WRITE
  • Prompt: $P("JAN^FEB^MAR^APR^MAY^JUN^JUL^AUG^SEP^OCT^NOV^DEC","^",$E(X,4,5))," ",$E(X,6,7)
  • Line Location: DT+0
Function Call: WRITE
  • Prompt: !,*7,"CLINIC DOES NOT MEET THEN!!"
  • Line Location: X+0
Function Call: WRITE
  • Prompt: !,*7,"ONLY "_S_" OVERBOOK"_$E("S",S>1)_" ALLOWED PER DAY!!"
  • Line Location: OB+7
Routine Call
  • DIR
  • Line Location:
    • DIR+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^SC - [#44] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] MAKE, OK, S1+5*, S1+8*, S1+9*, S1+11
^DPT("ASDCN" S1+11
^SC - [#44] S*, OK*, S1+1, S1+3, OB+5, OB+10
^SC("ARAD" S1+3*
^XUSEC("SDMOB" OB+3, OB+7
^XUSEC("SDOB" OB+3, OB+11

Label References

Name Line Occurrences
$$DIR OB+8, OB+12
DAY S
DT SC, WRTER
EVT S1+26
NOOB OB+3, OB+7, OB+11
OB SC+3
OBQ OB+3, OB+6, OB+11
OK SC+1
S1 S1+1
SC SC+4
WRTER X+1
X S, SC+1
XRDT S1+10

Naked Globals

Name Field # of Occurrence
^( MAKE, S, S1+1*, S1+11!, OB+5
^("OB" S1+2*, OB+5
^("R" S1+11!
^("RAD" S1+3
^(0 S*, OK*, S1+1*
^(1 S

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% OB+1~, OB+5*
>> CNSLTLNK S1+16, S1+17, S1+21
COLLAT S1+5, EVT+1~
>> COV S1+5*
D S1+1, S1+21, EVT+1~, OB+1~, OB+5*
DA XRDT+3~*
DA(1 XRDT+3*
DEF DIR~, DIR+6
DFN MAKE, OK, S1+1, S1+3, S1+4, S1+5, S1+8, S1+9, S1+10, S1+11
, S1+16, S1+17, S1+21, S1+25, XRDT~, XRDT+3, EVT+1
DIK XRDT+3~, XRDT+4*
DIK(1 XRDT+4*
DIR DIR+4~
DIR("A" DIR+5*
DIR("B" DIR+6*
DIR(0 DIR+5*
DIROUT DIR+4~
DIRUT DIR+4~
DIV XRDT+3~
DT S1+1, S1+5
DTOUT DIR+4~
DUOUT DIR+4~
DUZ S1+1, OB+3, OB+7, OB+11
I MAKE*, OB+1~, OB+4*, OB+5, OB+10
>> MXOK OB+8*, OB+9, OB+10*
>> POP SC*, SC+1
S OK, OB+1~, OB+4*, OB+7, OB+10*
SC S, OK, S1+1, S1+3, S1+5, S1+11, S1+12, S1+17, S1+19, S1+20
, S1+21, S1+25, EVT+1~, OB+5, OB+10
SD MAKE*, SC*, S1+8, S1+9, S1+16, S1+25~*, OB+4
>> SDAPTYP S1+5, S1+17, S1+20*, S1+21
>> SDDATE S1+9, S1+17, S1+21
SDECANS S1+17, S1+18!
SDECAR S1+14~, S1+17*, S1+21
SDECR S1+14~, S1+19*, S1+21
>> SDEDT MAKE+1
>> SDEMP S1+1
>> SDERRFT X*
SDEV S1+25~
>> SDINP S1+4*, S1+5
>> SDLOCK SC
>> SDMADE S1+5*
>> SDMES NOOB*, WRTER, X+1*
>> SDNOT S*, SC+3, WRTER*, OB+2*, OB+9*, OB+12*
>> SDPL S1+12*, EVT+1
SDREC S1+14~, S1+15*, S1+16*, S1+17, S1+21
>> SDRT S1+12*
>> SDSC S1+12*, S1+16, EVT+1
>> SDSRFU S1+8, S1+9
>> SDTTM S1+12*, S1+17, S1+21, EVT+1
>> SDWL S1+16, S1+17, S1+21
>> SDX3 MAKE*, MAKE+1
>> SDX7 MAKE+1*
>> SDY SC+1*, S1+1*, S1+12
>> SDYC S1+5*
>> SDZ S1+8, X
SI S, EVT+1~
SL S1+1, S1+21, EVT+1~, OB+4
>> SM MAKE*, SC+1, SC+4*, S1+2, OB+9*, OB+10*, OB+12*
>> SS S*
ST OB+1~, OB+4*, OB+5*, OB+6
TEXT DIR~, DIR+5
U S, S1+1, S1+8, S1+9, OB+4
X MAKE*, MAKE+1*, S, SC, SC+1, OK, S1+1, S1+3, S1+4, S1+5
, S1+10, S1+11, S1+12, S1+23, S1+25, XRDT~, XRDT+3, DT, DIR+4~
Y MAKE, S, SC+1*, S1+1*, S1+23*, OB+8, OB+12, DIR+4~, DIR+8, DIR+9

Marked Items

Name Field # of Occurrence
$T(DAY S
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 |  Marked Items  | All