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 |  Local Variables  | All
Print Page as PDF
Routine: SDESCLNSETAVAIL

Package: Scheduling

Routine: SDESCLNSETAVAIL


Information

SDESCLNSETAVAIL ;ALB/TAW,KML,MGD,LAB,BLB - SET CLINIC AVAILABILITY ;Mar 16,2023

Source Information

Source file <SDESCLNSETAVAIL.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Scheduling 9 ($$FMTISO,$$ISOTFM)^SDAMUTDT  OVR^SDAUT1  C^SDB  B1^SDB1  APPTBYCLINIC^SDESAPPT  (ENCODE,ERRLOG)^SDESJSON  $$EASVALIDATE^SDESUTIL  DOW^SDM0  
DTS^SDUTL  
VA FileMan 3 C^%DTC  YN^DICN  ($$GET1,DT,GETS)^DIQ  
Kernel 1 ($$DOW,$$FMADD,$$FMDIFF)^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 SDES  

Entry Points

Name Comments DBIA/ICR reference
SETCLINAVAIL(RETURN,SDCLINIC,DATES,TIMES,SLOTS,SDEAS) ;INICSET2(.POP,SDIEN,.FDA,.SDCLINIC,.PROVIDER,.DIAGNOSIS,.SPECIALINSTRUCT,.PRIVLIAGEDUSER)
; Input:
; SDCLIN - [REQ] Name or IEN from file 44
; DATES - [opt] String of dates in ISO8601 or FM format separated by a ;
; TIMES - [opt] String of time frames in military format separated by a ;
; ex: 0700-1030;1030-1400
; SLOTS - [REQ] String of integers separated by a ;
; The number of TIMES and SLOTS must match
; SDEAS - [Optional] - Enterprise Appointment Scheduling (EAS) Tracking Number
VALIDATE ;
GETAPPT ;Check if there are any open appts for this date
CHECKDURATION(T1,T2,SLT) ;Ensure the appointment lengths align with the time segment
CREATE(DA,STARTDAY,SLT,DOW) ;
G3 ;
G3A
G4
G4A
G5 ;
CKSI1
DEL1
D
R
EN1 ;
DAYSINFUTURE(CLINICIEN,STARTDATE) ;
1
11
OVR ;
APPCK ;Are there appointments for this time?
APPERR ;
DELERR ;
CHK1
CHK2 ;
OB ;
TX ;
ERRLOG(ERNUM,OPTIONALTXT) ;
BUILDER ;Convert data to JSON

External References

Name Field # of Occurrence
C^%DTC D+7, OVR+2, CHK2+3
YN^DICN APPERR+2
$$GET1^DIQ DAYSINFUTURE+3
DT^DIQ DELERR+2
GETS^DIQ VALIDATE+6
$$FMTISO^SDAMUTDT EN1+11
$$ISOTFM^SDAMUTDT VALIDATE+63, VALIDATE+77
OVR^SDAUT1 EN1+11
C^SDB G5+2
B1^SDB1 EN1+9, 11+9
APPTBYCLINIC^SDESAPPT GETAPPT+3
ENCODE^SDESJSON BUILDER+3
ERRLOG^SDESJSON ERRLOG+2
$$EASVALIDATE^SDESUTIL VALIDATE+87
DOW^SDM0 D+3, D+7, CHK2+3
DTS^SDUTL CHK2+4
$$DOW^XLFDT VALIDATE+66, VALIDATE+80
$$FMADD^XLFDT DAYSINFUTURE+4
$$FMDIFF^XLFDT DAYSINFUTURE+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: D&A
  • Line Location: R+1
Function Call: WRITE
  • Prompt: *7,!,"THERE ARE ALREADY APPOINTMENTS PENDING ON THIS DATE",!,"ARE YOU SURE YOU WANT TO CHANGE THE EXISTING AVAILABILITY"
  • Line Location: APPERR+2
Function Call: WRITE
  • Prompt: !,"IF YOU SAY YES, THE EXISTING APPOINTMENTS MAY BECOME OVERBOOKS WHEN THE NEW AVAILABILITY IS APPLIED",!,"ANSWER YES OR NO"
  • Line Location: APPERR+3
Function Call: WRITE
  • Prompt: !,"... "
  • Line Location: DELERR+2
Function Call: WRITE
  • Prompt: " HAS PENDING APPTS - DELETE AVAILABILITY NOT ALLOWED"
  • Line Location: DELERR+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SC - [#44] GET1^DIQ,  GETS^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^HOLIDAY - [#40.5] 11
^HOLIDAY("B" DAYSINFUTURE+5
^SC - [#44] VALIDATE+2, CREATE+11*, G4*, G5+3*, G5+4*, G5+6!, G5+7, G5+8, G5+16!, D+2
, D+3, EN1+4, EN1+5, EN1+6!*, EN1+7*, EN1+8*, 11+8*, 11+9*, OB+2*, OB+3!
, TX+1*

Label References

Name Line Occurrences
$$CHECKDURATION VALIDATE+49
$$DAYSINFUTURE EN1+9
1 EN1+2
APPCK 1, 11+6
APPERR 11+7, APPERR+3
BUILDER SETCLINAVAIL+18
CHK1 EN1+6
CHK2 11+2, OVR+1, OVR+2
CKSI1 G5+12
CREATE SETCLINAVAIL+16
D G5+11, G5+17
DEL1 G5+2
DELERR 1
ERRLOG VALIDATE+2, VALIDATE+3, VALIDATE+8, VALIDATE+9, VALIDATE+17, VALIDATE+18, VALIDATE+20, VALIDATE+21, VALIDATE+26, VALIDATE+27
, VALIDATE+30, VALIDATE+32, VALIDATE+37, VALIDATE+45, VALIDATE+47, VALIDATE+49, VALIDATE+52, VALIDATE+55, VALIDATE+57, VALIDATE+61
, VALIDATE+64, VALIDATE+65, VALIDATE+70, VALIDATE+78, VALIDATE+79, VALIDATE+80, VALIDATE+88, G5+16
G3 CREATE+24
G3A G3A
G4 G4A+3
G4A G4A
G5 CREATE+26
OVR 1, 11, 11+3, 11+7
R D+3, D+8
TX EN1+6, EN1+7, EN1+8
VALIDATE SETCLINAVAIL+15

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% 11+5*, 11+7, APPERR+1~, APPERR+2*, APPERR+3
A GETAPPT+1~, CREATE+4~
APPTCNT SETCLINAVAIL+13~, SETCLINAVAIL+14*, GETAPPT+8*, GETAPPT+9
CLINICIEN DAYSINFUTURE~, DAYSINFUTURE+3
CNT CREATE+3~, CREATE+16*, G4*, G5+2, G5+3, G5+6, G5+16*, EN1+10
CTR CREATE+3~, D+1*, CHK2+4*
D CREATE+4~, G5+9*, EN1+1*, 11, 11+8, OVR+1*, OVR+2*, DELERR+1, CHK2+1, CHK2+2
, CHK2+3*
D0 CREATE+3~, CREATE+13*, CREATE+14*, CREATE+15, CREATE+17, G4, G5+3, G5+4, G5+6, G5+7
, G5+8, G5+16, D, D+3, D+4, D+8, EN1+1, EN1+4, EN1+5, EN1+6
, EN1+7, EN1+9
DA CREATE~, CREATE+11, G4, G5+3, G5+4, G5+6, G5+7, G5+8, G5+16, D+2
, D+3, EN1+4, EN1+5, EN1+6, EN1+7, EN1+8, EN1+9, 11+8, 11+9, OB+2
, OB+3, TX+1
DATES SETCLINAVAIL~, VALIDATE+20, VALIDATE+21, VALIDATE+59*, VALIDATE+60, VALIDATE+70, VALIDATE+73, VALIDATE+74
DATES( VALIDATE+66*, VALIDATE+76*, VALIDATE+81*, CREATE+14, CREATE+17
DH CREATE+4~, G5+5*, G5+9, G5+10*, G5+13*, DEL1*, D+1*, EN1+8
DO CREATE+4~, G5+10*, G5+13*, DEL1*, D+3*, D+8*, D+9*, EN1+8, EN1+11, 11+8*
DOW CREATE~, D+3, D+7, EN1+4, EN1+5, EN1+6, EN1+7, EN1+8, CHK2+3, TX+1
DOWNUM SETCLINAVAIL+12~
DR CREATE+3~, OB+2, OB+3
DT VALIDATE+65, VALIDATE+79
ENDTIME VALIDATE+14~, VALIDATE+29*, VALIDATE+30, VALIDATE+39, VALIDATE+45, VALIDATE+47, VALIDATE+49
EOF SETCLINAVAIL+12~, VALIDATE+72*, VALIDATE+73, VALIDATE+76*, VALIDATE+80*
ERNUM ERRLOG~, ERRLOG+2
ERRARRAY SETCLINAVAIL+13~, SETCLINAVAIL+19!
ERRARRAY( GETAPPT+10*
FUTUREBOOKDATE DAYSINFUTURE+1~, DAYSINFUTURE+4*, DAYSINFUTURE+7
FUTUREBOOKINGNUM DAYSINFUTURE+1~, DAYSINFUTURE+3*, DAYSINFUTURE+4, DAYSINFUTURE+7
H1 CHECKDURATION+1~, CHECKDURATION+2*, CHECKDURATION+3*, CHECKDURATION+5, CREATE+4~, G3+11*, G4, G4A*, G4A+1*, G4A+2
H2 CHECKDURATION+1~, CHECKDURATION+2*, CHECKDURATION+4*, CHECKDURATION+5, CREATE+4~, G3+11*, G3A*, G3A+1*, G4A+2
HHY CREATE+4~, CKSI1+1*
HOLIDAYFILEDATE DAYSINFUTURE+1~, DAYSINFUTURE+5*, DAYSINFUTURE+7, DAYSINFUTURE+8
HSI CREATE+4~, CREATE+6*, CREATE+7*, CREATE+8*, G5+12, CKSI1
HY CREATE+3~
HY( CKSI1*, CKSI1+1
I SETCLINAVAIL+12~, VALIDATE+24*, VALIDATE+25, VALIDATE+51, VALIDATE+73*, VALIDATE+74, CREATE+4~, D+7*, CHK2+3*
IEN SETCLINAVAIL+12~, VALIDATE+5*, VALIDATE+6, VALIDATE+7, VALIDATE+10, VALIDATE+11
INDEFINITELY CREATE+3~, CREATE+16*, CREATE+17*, EN1+2
JSON GETAPPT+1~, GETAPPT+3
JSON("Appt" GETAPPT+6, GETAPPT+7, GETAPPT+9
JSONERR BUILDER+1~, BUILDER+2*, BUILDER+3
LT CREATE+4~, G3+11*, G5+16*
M1 CHECKDURATION+1~, CHECKDURATION+2*, CHECKDURATION+3*, CHECKDURATION+5, CREATE+4~, G3+11*, G4, G4+1*, G4A*, G4A+1*
, G4A+2
M2 CHECKDURATION+1~, CHECKDURATION+2*, CHECKDURATION+4*, CHECKDURATION+5, CREATE+4~, G3+11*, G3+12*, G3A*, G3A+1*, G4A+2
MAX CREATE+3~, EN1+9*
NSL CREATE+3~, CREATE+22*, G4
OK CREATE+4~, D+1*, D+7*, D+8, R!
OPTIONALTXT ERRLOG~, ERRLOG+2
POP SETCLINAVAIL+12~, SETCLINAVAIL+14*, SETCLINAVAIL+16, SETCLINAVAIL+17, VALIDATE+18, VALIDATE+24, VALIDATE+35, VALIDATE+55, VALIDATE+57, VALIDATE+70
, CREATE+14, CREATE+19, CREATE+26, EN1+6*, 1*, 11+1*, 11+3, 11+4*, 11+7, OVR+1*
, OVR+2*, CHK1+1*, CHK2+2*, CHK2+3*, CHK2+4, ERRLOG+1*
RETURN SETCLINAVAIL~, BUILDER+3
SC CREATE+3~, EN1+9*
SD CREATE+3~, CREATE+14*, EN1+9
SD1 CHECKDURATION+1~, CHECKDURATION+5*, CHECKDURATION+6
SDA1 CREATE+4~
SDAVAIL SETCLINAVAIL+12~
SDCLINDATA SETCLINAVAIL+12~
SDCLINDATA(44 VALIDATE+7, VALIDATE+10, VALIDATE+11
SDCLINIC SETCLINAVAIL~, SETCLINAVAIL+16, VALIDATE+1*, VALIDATE+2, VALIDATE+3, VALIDATE+5, GETAPPT+3
SDCLINSTARTHR SETCLINAVAIL+12~, SETCLINAVAIL+16, VALIDATE+11*, VALIDATE+12*, VALIDATE+57
SDDATE SETCLINAVAIL+12~, VALIDATE+60*, VALIDATE+61, VALIDATE+62, VALIDATE+63*, VALIDATE+64, VALIDATE+65, VALIDATE+66, VALIDATE+74*, VALIDATE+75
, VALIDATE+76, VALIDATE+77*, VALIDATE+78, VALIDATE+79, VALIDATE+80, VALIDATE+81, GETAPPT+3, GETAPPT+10
SDDISPPERHR SETCLINAVAIL+12~, VALIDATE+10*, CREATE+6
SDDOWNUM SETCLINAVAIL+12~, SETCLINAVAIL+16, VALIDATE+66*, VALIDATE+80
SDEAS SETCLINAVAIL~, VALIDATE+86*, VALIDATE+87*, VALIDATE+88
SDEL CREATE+4~, G5+1*, G5+11*, G5+16*, DEL1*, 1
SDESERR GETAPPT+1~
SDIN CREATE+4~, D, D+4, D+6, 11+2, OVR+1, OVR+2, CHK1, CHK1+1, CHK2+1!
, CHK2+2, CHK2+3, CHK2+4
SDJJ CREATE+4~, CKSI1*
SDL CHECKDURATION+1~, CHECKDURATION+5*, CHECKDURATION+6
SDRE CREATE+4~, D, D+5, CHK2+1, CHK2+2, CHK2+3
SDRE1 CREATE+4~, D*, D+5*, D+7, CHK2+4
SDREACT CREATE+4~, G5+2, 11+8*
SDREB CREATE+3~, 11+4*, 11+7*
SDRETURN SETCLINAVAIL+13~, ERRLOG+2, BUILDER+3
SDRETURN("ClinicAvailability" SETCLINAVAIL+17*, GETAPPT+9*, EN1+11*
SDSLOT OB+1*, OB+2!, OB+3!
SDSLOTS SETCLINAVAIL+12~, VALIDATE+51*, VALIDATE+52, VALIDATE+53, VALIDATE+54
SDSOH SETCLINAVAIL+12~, D+2*, 11
SDSTRTDT CREATE+3~, EN1+9*
SDTIME SETCLINAVAIL+12~, VALIDATE+25*, VALIDATE+26, VALIDATE+27, VALIDATE+28, VALIDATE+29, VALIDATE+53
SDTOP CREATE+4~, G3+8*, G5+2
SDTOTALSLOTS SETCLINAVAIL+12~, SETCLINAVAIL+14*, VALIDATE+54*
SDZQ CREATE+3~, G3+9*, EN1+11
SI CREATE+4~, CREATE+6*, CREATE+7*, CREATE+8*, G5+5, G5+9, G5+13, G5+16
SLOTS SETCLINAVAIL~, VALIDATE+16*, VALIDATE+17, VALIDATE+18, VALIDATE+51
SLT SETCLINAVAIL+12~, SETCLINAVAIL+16, VALIDATE+7*, VALIDATE+8, VALIDATE+9, VALIDATE+49, CHECKDURATION~, CHECKDURATION+5, CHECKDURATION+6, CREATE~
, G3+12, G4+1, G5+5
ST CREATE+3~, OB+1
STARTDATE DAYSINFUTURE~, DAYSINFUTURE+4, DAYSINFUTURE+8
STARTDAY CREATE~, CREATE+5, G5+9
STARTTIME VALIDATE+14~, VALIDATE+28*, VALIDATE+30, VALIDATE+32, VALIDATE+34, VALIDATE+37, VALIDATE+43, VALIDATE+49, VALIDATE+53, CREATE+3~
, CREATE+5*, CREATE+18*, CREATE+19*, CREATE+20, CREATE+23
STIME CREATE+3~, G5+16
STR CREATE+3~, OB+1
T1 CHECKDURATION~, CHECKDURATION+2, CREATE+3~, CREATE+23*, G3+11
T2 CHECKDURATION~, CHECKDURATION+2, CREATE+3~, CREATE+21*, G3+11
TIMES SETCLINAVAIL~, VALIDATE+15*, VALIDATE+17, VALIDATE+18, VALIDATE+23, VALIDATE+24, VALIDATE+25, VALIDATE+55
TIMES( VALIDATE+32, VALIDATE+34, VALIDATE+36, VALIDATE+39, VALIDATE+41, VALIDATE+53*, CREATE+19, CREATE+20
TIMES("" VALIDATE+57
TMPINDX SETCLINAVAIL+12~, VALIDATE+34*, VALIDATE+35, VALIDATE+36, VALIDATE+39*, VALIDATE+40, VALIDATE+41
TMPTIMES VALIDATE+14~, VALIDATE+36*, VALIDATE+37, VALIDATE+41*, VALIDATE+43, VALIDATE+45, VALIDATE+47
U G5+9
X GETAPPT+1~, GETAPPT+2*, GETAPPT+6*, GETAPPT+7, GETAPPT+9, CREATE+3~, CREATE+4~, CREATE+20*, CREATE+21, CREATE+22
, G5+4*, G5+7*, G5+8, G5+10*, G5+13*, G5+16, DEL1*, D+1, D+3*, D+4
, D+6*, D+7, D+8, EN1+6*, EN1+9*, 11+8*, OVR+2, CHK2+3*
X1 CREATE+4~, D+7*, OVR+2*, CHK2+3*
X2 CREATE+4~, D+7*, OVR+2*, CHK2+3*
Y CREATE+4~, G5+8*, G5+9, G5+11, G5+13*, G5+15!, D+3*, D+7, D+8*, EN1+3*
, EN1+5*, EN1+6, EN1+7, DELERR+1*, CHK1+1, CHK2+3, CHK2+4*, OB+2, OB+3
Y( G5+9*, G5+13, CKSI1, CKSI1+1!
Y1 CREATE+3~, CHK2+4*
ZDX CREATE+4~, G5+6*
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 |  Local Variables  | All