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

Package: Scheduling

Routine: SDNACT


Information

SDNACT ;ALB/TMP - INACTIVATE A CLINIC ;Mar 25, 2021@15:05:56

Source Information

Source file <SDNACT.m>

Call Graph

Call Graph

Call Graph Total: 17

Package Total Call Graph
VA FileMan 8 ^%DT  C^%DTC  TURNON^DIAUTL  ^DIC  YN^DICN  DT^DICRW  (,FILE)^DIE  ($$GET1,DT)^DIQ  
Scheduling 5 $$GETRES^SDECUTL  DOW^SDM0  ^SDNACT1  (DT,DTS)^SDUTL  $$CLNCK^SDUTL2  
Kernel 3 ^%ZTLOAD  $$FMTH^XLFDT  $$BLDNAME^XLFNAME  
MailMan 1 ^XMD  

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

Package Total Caller Graph
Scheduling 2 SD INACTIVATE  SDNACT1  

Entry Points

Name Comments DBIA/ICR reference
D
OVR
CHECK
DEL
CHG1
A1
A
GOT
END
MAIL ; SD*5.3*622 - send bulletin to advise of clinic inactivation date
QUE ; leave job to TaskMan for dates in the future, otherwise deliver
; message immediately for an inactivation date equal to the current
; date
SDEC(SC,SDDATE) ;update INACTIVATED DATE/TIME in SDEC RESOURCE ;alb/sat 627

External References

Name Field # of Occurrence
^%DT D
C^%DTC D+5, CHG1CHG1+1, CHG1+2, CHG1+3
^%ZTLOAD QUE+17
TURNON^DIAUTL SDNACT+5
^DIC SDNACT+6
YN^DICN CHECK+1, DEL
DT^DICRW SDNACT+4
^DIE OVR+3
FILE^DIE SDEC+11, SDEC+18
$$GET1^DIQ MAIL+11, SDEC+5
DT^DIQ D+3
$$GETRES^SDECUTL SDEC+2
DOW^SDM0 D+5, CHG1CHG1+1, CHG1+3
^SDNACT1 DEL+3
DT^SDUTL SDNACT+2
DTS^SDUTL SDNACT+11, SDNACT+13, OVR+5, CHECKQUE+7, QUE+12
$$CLNCK^SDUTL2 SDNACT+7
$$FMTH^XLFDT QUE+10
$$BLDNAME^XLFNAME MAIL+9
^XMD MAIL+22

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: *7,!,"This clinic was inactivated effective: "
  • Line Location: SDNACT+11
Function Call: WRITE
  • Prompt: Y
  • Line Location: SDNACT+11
Function Call: WRITE
  • Prompt: !,*7,"Clinic is already inactive until "
  • Line Location: SDNACT+13
Function Call: WRITE
  • Prompt: Y
  • Line Location: SDNACT+13
Function Call: WRITE
  • Prompt: "??",!,*7,"Inactivate date must be greater than or equal to today's date"
  • Line Location: D+0
Function Call: WRITE
  • Prompt: "??",!,*7,"Inactivate date must be < reactivate date"
  • Line Location: D+1
Function Call: WRITE
  • Prompt: *7,!,"Can't inactivate the clinic - appointments exist beyond "
  • Line Location: D+3
Function Call: WRITE
  • Prompt: !!,"Clinic will be inactivated effective "
  • Line Location: OVR+5
Function Call: WRITE
  • Prompt: Y
  • Line Location: OVR+5
Function Call: WRITE
  • Prompt: *7,!,"This clinic is to be inactivated as of "
  • Line Location: CHECK+0
Function Call: WRITE
  • Prompt: Y
  • Line Location: CHECK+0
Function Call: WRITE
  • Prompt: Y
  • Line Location: CHECK+0
Function Call: WRITE
  • Prompt: !,"RESPOND YES OR NO"
  • Line Location: CHECK+1
Function Call: WRITE
  • Prompt: !,"RESPOND YES (Y) OR NO (N)"
  • Line Location: DEL+0
Function Call: WRITE
  • Prompt: !,*7,"Cannot Delete - 'SL' node doesn't exist"
  • Line Location: DEL+2
Routine Call
  • DIC
  • Line Location:
    • SDNACT+6
Routine Call
  • DIE
  • Line Location:
    • OVR+3
Routine Call
  • DIE
  • Line Location:
    • SDEC+11
    • SDEC+18

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SDEC(409.831 - [#409.831] GET1^DIQ
^SC - [#44] Classic Fileman Calls,  GET1^DIQ,  TURNON^DIAUTL

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SC - [#44] SDNACT+11, SDNACT+12, SDNACT+13, D+2, D+5*, D+6, OVROVR+1, OVR+2, DEL+2
CHG1+3*, CHG1+4!, A1!, A*, A+1!, GOTGOT+1*!, GOT+2*, QUE+5, QUE+6
^SDEC(409.832 - [#409.832] SDEC+14, SDEC+15

Label References

Name Line Occurrences
A CHG1+3
A1 CHG1+3
CHECK SDNACT+12, CHECK+1
CHG1 D+4
D DD+1, CHECK+2
DEL CHECK+2, DEL
END SDNACT+6, SDNACT+11, SDNACT+13, DD+3, OVR+5, CHECK+2, DEL+1, DEL+2
GOT D+6
MAIL QUE+7
OVR D+4
QUE OVR+5
SDEC OVR+4

Naked Globals

Name Field # of Occurrence
^( D+2, OVR!, OVR+1!, OVR+2!
^("I" SDNACT+11, SDNACT+12, SDNACT+13, CHECK
^(0 CHG1+3*, A1*, A*, GOT+1*, GOT+2*
^(1 CHG1+3, A1*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % CHECK+1*, CHECK+2, DEL*, DEL+1
%DT D*!
%DT("A" D*
A END!
CNT END!
D0 END!
DA OVR+3*, END!
DH END!
DIC SDNACT+4*, END!
DIC("A" SDNACT+4*, SDNACT+6!
DIC("S" SDNACT+4*, SDNACT+6!
DIC(0 SDNACT+4*
DIE OVR+3*, END!
DO END!
DOW END!
DR OVR+3*, END!
DT SDNACT+2, SDNACT+11, SDNACT+12, SDNACT+13, DQUE+4, QUE+7, SDEC+8
DTIME SDNACT+2*
DUZ MAIL+5, MAIL+8, SDEC+7
I D+2*, D+5*, D+6*, OVR*, OVR+1*, OVR+2*, CHG1+1*, CHG1+3*, CHG1+4*, GOT
GOT+1, GOT+2, END!
I1 D+2*, END!
J D+6*, CHG1+4*, GOT+1, END!
J1 GOT+1*, END!
POP D+2*, D+3, END!
SC SDNACT+6*, SDNACT+7, SDNACT+11, SDNACT+12, SDNACT+13, D+2, D+5, D+6, OVROVR+1
OVR+2, OVR+3, OVR+4, DEL+2, CHG1+3, CHG1+4, A1AA+1, GOT
GOT+1, GOT+2, END!, MAIL+11, QUE+5, QUE+6, SDEC~, SDEC+2
SD A*, A+2!, GOT*, GOT+1, END!
SD0 END!
SDAY SDNACT+3*, END!
SDDATE D*, D+2, D+3, D+5, OVROVR+1, OVR+2, OVR+4, OVR+5, CHG1
CHG1+4, A+1, END!, SDEC~, SDEC+6
SDDT OVR+5~*, MAIL+12, MAIL+14, QUE+6*, QUE+7*, QUE+8, QUE+9, QUE+10, QUE+12*
SDDTH QUE+3~, QUE+10*, QUE+11
SDEL END!
SDFDA SDEC+1~, SDEC+12!, SDEC+16!
SDFDA( SDEC+6*, SDEC+7*, SDEC+9*, SDEC+10*, SDEC+17*
SDFSW END!
SDI SDEC+1~, SDEC+14*, SDEC+15, SDEC+17
SDJ SDEC+1~, SDEC+15*, SDEC+17
SDMYARR MAIL+1~, MAIL+9
SDMYARR("FIELD" MAIL+7*
SDMYARR("FILE" MAIL+6*
SDMYARR("IENS" MAIL+8*
SDN D+5!, CHG1!, END!
SDN( D+5*, D+6, CHG1*, CHG1+1*, CHG1+3, A1AGOT+1
SDNAME MAIL+1~, MAIL+9*, MAIL+14
SDNL CHG1*, CHG1+4, END!
SDOL CHG1+2*, CHG1+3, END!
SDREACT END!, SDEC+1~, SDEC+5*, SDEC+8
SDRES SDNACT+7~*, SDNACT+8, SDNACT+9, SDEC+1~, SDEC+2*, SDEC+3, SDEC+5, SDEC+6, SDEC+7, SDEC+9
, SDEC+10, SDEC+14, SDEC+15
SDTEXT MAIL+1~
SDTEXT(1 MAIL+11*
SDTEXT(10 MAIL+20*
SDTEXT(2 MAIL+12*
SDTEXT(3 MAIL+13*
SDTEXT(4 MAIL+14*
SDTEXT(5 MAIL+15*
SDTEXT(6 MAIL+16*
SDTEXT(7 MAIL+17*
SDTEXT(8 MAIL+18*
SDTEXT(9 MAIL+19*
SDTQ QUE+3~, QUE+4*, QUE+7, QUE+8, QUE+9
SDX SDNACT+6*, D+1, D+4, CHECK*, CHG1+2, CHG1+4, A+1, END!
SDX1 SDNACT+6*, D+1, D+2, OVROVR+1, OVR+2, CHECK*, A+1, END!
SDZQ SDNACT+3*, END!
SI END!
SL END!
STARTDAY END!
U SDNACT+9
X D+5*, CHG1*, CHG1+1, CHG1+2, CHG1+3, A1, END!
X1 D+5*, CHG1*, CHG1+1*, CHG1+2*, CHG1+3*, END!
X2 D+5*, CHG1*, CHG1+1*, CHG1+2*, CHG1+3*, END!
XMDUZ MAIL+1~, MAIL+4*, MAIL+5
XMSUB MAIL+1~, MAIL+2*
XMTEXT MAIL+1~, MAIL+21*
XMY MAIL+1~
XMY( MAIL+5*
XMY("G.SD CLI NIC INACTIVATE REMINDER" , MAIL+3*
Y SDNACT+6, SDNACT+11*, SDNACT+13*, DD+1, D+3*, D+5, OVR+5*, CHECK*, CHG1
CHG1+1, CHG1+3, A1A, END!, QUE+3~, QUE+7*, QUE+12*
Z A+1*, A+2!, END!
ZTDESC QUE+3~, QUE+13*
ZTDTH QUE+3~, QUE+11*
ZTIO QUE+3~, QUE+15*
ZTRTN QUE+3~, QUE+14*
ZTSAVE QUE+3~
ZTSAVE("*" QUE+16*
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