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

Package: Scheduling

Routine: SDREACT


Information

SDREACT ;ALB/TMP - REACTIVATE A CLINIC ;JAN 15, 2016

Source Information

Source file <SDREACT.m>

Entry Points

Name Comments DBIA/ICR reference
PREACT
REACT
MORE
CHG
DT
C1
DEL
D1
NEW
CLEAN
END
SDEC(SC,SDDATE) ;update REACTIVATED DATE/TIME in SDEC RESOURCE ;alb/sat 627
DELSDEC(SC) ;delete reactavation date (lab 781)

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: *7,!,"NOT INACTIVE!!"
  • Line Location: SDREACT+5
Function Call: WRITE
  • Prompt: !,*7,"Clinic is inactive as of "
  • Line Location: SDREACT+7
Function Call: WRITE
  • Prompt: Y
  • Line Location: SDREACT+7
Function Call: WRITE
  • Prompt: Y
  • Line Location: SDREACT+7
Function Call: WRITE
  • Prompt: *7,!,"Clinic cannot be reactivated - not inactive"
  • Line Location: SDREACT+8
Function Call: WRITE
  • Prompt: !,?5,"Clinic MUST be corrected before continuing."
  • Line Location: PREACT+1
Function Call: WRITE
  • Prompt: !,*7,"Reactivate date must be later than inactivate date"
  • Line Location: REACT+2
Function Call: WRITE
  • Prompt: !!,"AVAILABILITY DATE: ",Y," ("
  • Line Location: REACT+4
Function Call: WRITE
  • Prompt: ")"
  • Line Location: REACT+4
Function Call: WRITE
  • Prompt: *7,!,"Clinic not reactivated!!!"
  • Line Location: REACT+5
Function Call: WRITE
  • Prompt: !,*7,"Clinic will be reactivated effective ",Y
  • Line Location: REACT+9
Function Call: WRITE
  • Prompt: !,"ANSWER (Y)ES OR (N)O"
  • Line Location: MORE+0
Function Call: WRITE
  • Prompt: !,"RESPOND YES (Y) OR NO (N)"
  • Line Location: CHG+0
Function Call: READ
  • Formatting: !
  • Prompt: "Enter new reactivate date: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: DT+0
Function Call: WRITE
  • Prompt: *7,!,"Must be > inactivate date"
  • Line Location: DT+1
Function Call: WRITE
  • Prompt: *7,!,"That is the current reactivate date"
  • Line Location: DT+2
Function Call: WRITE
  • Prompt: !,"Valid appointments exist before the new reactivate date ... must reactivate before "
  • Line Location: DT+5
Function Call: WRITE
  • Prompt: Y
  • Line Location: DT+5
Function Call: WRITE
  • Prompt: !,"Clinic will now be reactivated effective "
  • Line Location: DT+12
Function Call: WRITE
  • Prompt: Y
  • Line Location: DT+12
Function Call: WRITE
  • Prompt: !,"RESPOND YES (Y) OR NO (N)"
  • Line Location: D1+0
Function Call: WRITE
  • Prompt: !,*7,"Reactivation date DELETED!!"
  • Line Location: D1+9

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SC - [#44] Classic Fileman Calls,  TURNON^DIAUTL
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call