Routine: SDREACT

Package	Total	Call Graph
VA Fileman	7	^%DT C^%DTC TURNON^DIAUTL ^DIC YN^DICN FILE^DIE DT^DIQ
Scheduling	5	EN^SDB EN1^SDB0 DOW^SDM0 (DT,DTS)^SDUTL $$CLNCK^SDUTL2

Package	Total	Caller Graph
IHS Changes To Scheduling	2	ASDINACT BSDNACT
Scheduling	1	SD REACT

Entry Points

External References

Name	Field # of Occurrence
^%DT	REACT, DT
C^%DTC	DT+7, NEW
TURNON^DIAUTL	SDREACT+4
^DIC	SDREACT+5
YN^DICN	MORE, CHG, D1
FILE^DIE	REACT+7, DT+10, D1+7
DT^DIQ	REACT+4
EN^SDB	MORE+1
EN1^SDB0	REACT+4
DOW^SDM0	REACT+3, DT+7, NEW
DT^SDUTL	SDREACT+2
DTS^SDUTL	SDREACT+7, REACT+4, REACT+8, DT+5, DT+11
$$CLNCK^SDUTL2	PREACT

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+8
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	Prompt: "Enter new reactivate date: " Formatting: ! Timeout: DTIME Variable: X 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+11
Function Call: WRITE	Prompt: Y Line Location: DT+11
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+8
Routine Call	DIC Line Location: SDREACT+5
Routine Call	DIE Line Location: REACT+7 DT+10 D1+7

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^SC - [#44]	Classic Fileman Calls, TURNON^DIAUTL

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^SC - [#44]	SDREACT+5, SDREACT+6, REACT+3, REACT+6, DT+4, DT+9!, C1, C1+1, C1+2, DEL , D1+2, D1+4!, D1+5, D1+6, CLEAN

Label References

Name	Line Occurrences
C1	DT+8
CHG	SDREACT+7, CHG
CLEAN	REACT+6
D1	D1
DEL	CHG+1
DT	DT, DT+1, DT+2
END	SDREACT+5, REACT+5, MORE+1, CHG+1, DT, DT+11, DEL+1, D1+1, D1+8
MORE	MORE
NEW	DT+6, D1+3
PREACT	SDREACT+6
REACT	REACT+2, DT+5
SDREACT	SDREACT+5, SDREACT+8, PREACT+1, REACT, REACT+3

Naked Globals

Name	Field # of Occurrence
^(	REACT+6, DT+4, C1!, C1+1!, C1+2!, DEL, D1+2!, D1+5!, D1+6!, CLEAN!
^("I"	SDREACT+5, SDREACT+6
^("SL"	REACT+3
^(0	DT+9, D1+4
^(1	REACT+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	MORE, MORE+1, CHG, CHG+1, D1*, D1+1
%DT	REACT, REACT+1!, DT
%DT("A"	REACT*
CNT	END!
D0	END!
DA	SDREACT+5*, SDREACT+6, PREACT, REACT+3, REACT+6, REACT+7, DT+4, DT+9, DT+10, C1 , C1+1, C1+2, DEL, D1+2, D1+4, D1+5, D1+6, D1+7, CLEAN, END!
DH	END!
DIC	SDREACT+3*, SDREACT+5!, END!
DIC("A"	SDREACT+3*
DIC("S"	SDREACT+3*
DIC(0	SDREACT+3*
DO	END!
DOW	REACT+3*, END!
DT	SDREACT+2, SDREACT+7
DTIME	SDREACT+2*, DT
FDA	REACT+7!, DT+10!, D1+7!
FDA(44	REACT+7, DT+10, D1+7*
H1	END!
H2	END!
HSDX	END!
I	REACT+6, DT+4, DT+5, DT+7, DT+9, C1, C1+1, C1+2, DEL, D1+2* , D1+4, D1+5, D1+6, NEW, CLEAN, END!
I1	REACT+6*, END!
I2	REACT+6, CLEAN, END!
IENS	REACT+7!, DT+10!, D1+7!*
J	DT+4, DEL, D1+4*, END!
K	DT+4*, END!
LT	END!
M1	END!
M2	END!
NSL	END!
POP	REACT+4, DT+4, DT+5, DEL*, DEL+1, END!
SC	END!
SD	REACT+1*, REACT+2, REACT+3, REACT+4, END!
>> SDEL	REACT+4*
SDFSW	REACT+3*, END!
SDH	REACT+1*, REACT+7, REACT+8, END!
SDIN	REACT+1*, END!
SDINACT	REACT+1*, REACT+2, END!
SDN	DT+6!, D1+3!, END!
SDN(	DT+9, D1+4, NEW*
SDO	DT+7!, END!
SDO(	DT+7*, DT+9
SDRE	REACT+1, REACT+3, DT+3, DT+4, DT+6, DT+8, DT+10, DT+11, C1, C1+1 , C1+2, END!
SDRE1	REACT+3*, END!
SDREACT	REACT*, REACT+5, END!
SDRES	PREACT~*, PREACT+1
SDTOP	END!
>> SDX	SDREACT+6*, SDREACT+7, REACT+1, DT+1, C1, C1+1, C1+2, D1+3
SDX1	SDREACT+6*, SDREACT+7, DT+2, DT+4, DT+7, DT+8, DEL, D1+2, D1+5, D1+6 , END!
SDZQ	REACT+4, MORE+1, END!
SI	REACT+3*, END!
SL	REACT+3*, END!
SLT	END!
STARTDAY	REACT+3*, END!
STIME	END!
T1	END!
T2	END!
X	REACT+3, DT, DT+6, DT+7, D1+3*, NEW, END!
X1	DT+7, NEW, END!
X2	DT+7, NEW, END!
Y	SDREACT+5, SDREACT+7, REACT, REACT+1, REACT+3, REACT+4, REACT+8, DT, DT+1, DT+2 , DT+3, DT+5, DT+7, DT+11*, NEW, END!

Customize PDF page

Package: Scheduling

Routine: SDREACT

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: