Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call