Routine: SDB

Package	Total	Call Graph
VA Fileman	5	^%DT TURNON^DIAUTL ^DIC YN^DICN DT^DICRW
Scheduling	4	EN1^SDB0 (HLPD,TX)^SDB1 DOW^SDM0 DTS^SDUTL
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
IHS Changes To Scheduling	2	SETUP^BSDB ($$INACTMSG,$$OWNER)^BSDU
IHS Changes To ADT	1	MSG^BDGF
Registration	1	$$FDATE^VALM1

Package

Total

Call Graph

VA Fileman

^%DT TURNON^DIAUTL ^DIC YN^DICN DT^DICRW

Scheduling

EN1^SDB0 (HLPD,TX)^SDB1 DOW^SDM0 DTS^SDUTL

Kernel

^%ZIS ^%ZISC ^%ZTLOAD

IHS Changes To Scheduling

SETUP^BSDB ($$INACTMSG,$$OWNER)^BSDU

IHS Changes To ADT

MSG^BDGF

Registration

$$FDATE^VALM1

Package	Total	Caller Graph
Scheduling	7	SD IHS BUILD SDB0 SDB1 SDBUILD SDNACT1 SDREACT SDSCE

Package

Total

Caller Graph

Scheduling

SD IHS BUILD SDB0 SDB1 SDBUILD SDNACT1 SDREACT SDSCE

Entry Points

External References

Name	Field # of Occurrence
^%DT	G1+1
^%ZIS	PRINT+4
^%ZISC	PRINTQ+1
^%ZTLOAD	QUE+8
MSG^BDGF	C+4
SETUP^BSDB	C+7
$$INACTMSG^BSDU	C+2
$$OWNER^BSDU	C+4
TURNON^DIAUTL	C+1
^DIC	C+3
YN^DICN	PRINT+3
DT^DICRW	C
EN1^SDB0	G1+3
HLPD^SDB1	G1+1
TX^SDB1	E1
DOW^SDM0	G1+2
DTS^SDUTL	INACT
$$FDATE^VALM1	PRINT1+1, PRINT1+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: C+0
Function Call: READ	Prompt: "AVAILABILITY DATE: " Formatting: !! Timeout: DTIME Variable: X Line Location: G1+1
Function Call: WRITE	Prompt: !,*7,"Clinic is inactive",$S('SDRE:" as of ",1:" from "),Y1,$S('SDRE:"",1:" to "_Y) Line Location: INACT+0
Function Call: WRITE	Prompt: " ",$P("SUN^MON^TUES^WEDNES^THURS^FRI^SATUR",U,$E(^(0),6,7)+I#7+1),"DAY" Line Location: DOW+0
Function Call: WRITE	Prompt: !,"Availability has been cancelled previously. The day(s) has been overwritten",!,"with the new availability. Would you like to see the day(s) that has been affected" Line Location: PRINT+2
Function Call: WRITE	Prompt: !,"Dates of Availability Previously Cancelled for "_$E($P($G(^SC(DA,0)),U),1,25),?70,$$FDATE^VALM1(DT),!,SDLINE Line Location: PRINT1+1
Function Call: WRITE	Prompt: !,"Answer 'Y'es or 'N'o." Line Location: HELP+1
Routine Call	DIC Line Location: C+3
Routine Call	%ZIS Line Location: PRINT+4

FileNo	Call Tags
^SC - [#44]	TURNON^DIAUTL

Name	Line Occurrences (* Changed, ! Killed)
^SC - [#44]	C+5, C+7, EN+1, E1, PRINT1+1
^TMP("SDAVAIL"	PRINT+1, PRINT1+2, PRINT1+3, PRINTQ!, QUE+5, QUE+6

Name	Line Occurrences
$$QUE	PRINT+6
C	C+4, EN+1, G1+1, G1+2
DOW	EN+1
E1	G1
EN	G1+2
END	C+3
G1	G1+1
HELP	PRINT+3
INACT	G1+1
PRINT	G1, PRINT+3
PRINT1	PRINT+5
PRINTQ	PRINT+1, PRINT+3, PRINT+4, PRINT+6

Name	Field # of Occurrence
^("I"	C+5
^("SL"	EN+1
^("T"	EN+1
^(0	EN+1, E1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	END!, PRINT+3*
%DT	G1+1*, END!
%H	END!
>> %ZIS	PRINT+4*
C	END!
CCXN	END!
CNT	END!
COLLAT	END!
CTR	END!
>> D	EN+1*
D0	END!, E1
DA	C+3*, C+5, C+7, EN+1, END!, E1, PRINT1+1, QUE+7
DFN	END!
DG	END!
DGO	END!
DH	END!
DI	END!
DIC	C, EN+1, END!
DIC("A"	C*, C+3!
DIC("DR"	C*
DIC("S"	C*, C+3!
DIC("W"	C+2, EN+1
DIC(0	C, EN+1
DIE	C+3, EN+1, END!
DIE("NO^"	C+3*, C+7!
DIFLD	END!
DIK	END!
DK	END!
DL	END!
DLAYGO	C*, END!
DM	END!
DOW	G1+2*, END!, E1
DR	C+7*, END!
DT	PRINT1+1
DTIME	G1+1
DUZ	C+4
ENDATE	END!
H1	END!
H2	END!
HSI	END!
HY	G1!
I	END!
IO	PRINT1+1
IO("Q"	PRINT+5, QUE+3!
J	END!
LT	END!
M1	END!
M2	END!
MAX	END!
NSL	END!
POP	G1+1, END!, INACT, PRINT+4
S	END!
SB	END!
SC	END!
SD	G1+2*, END!
SDA1	END+1!
SDAV	END!
SDAVAIL	PRINT1~, PRINT1+2, PRINT1+3
SDCL	END!
SDDIF	END!
SDEL	G1+1*, END!
SDFSW	G1*, END!
SDHX	END!
SDIN	C+5!, G1, G1+1, END!, INACT
SDINA	END!
SDINH	C+5!*, G1, END!
SDL	END!
SDLA	END!
SDLINE	PRINT1~*, PRINT1+1
SDMAX	END!
SDMM	END!
>> SDONE	G1+2
SDPAT	G1+1*, END!
SDRE	C+5!, G1+1, END+1!, INACT, E1
SDRE1	C+5!
SDREACT	SDB+7!, C!, G1, G1+1, G1+2, G1+3, END!
SDREB	G1+1*, END+1!
SDRVE	END+1!
SDSAV	G1+1*, END+1!
SDSDL	END!
SDSOH	END+1!
SDSTRTDT	END+1!
SDT	END+1!
SDTOP	SDB+7*, C, G1, G1+2, END+1!
SDW	END+1!
SDZQ	SDB+7*, END+1!
SI	EN+1, G1, END+1!
SL	EN+1*, G1, END+1!
SLT	END+1!
SM	END+1!
SS	END+1!
STARTDAY	EN+1*, END+1!
STIME	END+1!
STR	END+1!
T1	END+1!
T2	END+1!
U	C+3, EN+1, G1+1, PRINT1+1
WY	END+1!
X	EN+1, G1+1, G1+2, END+1!, QUE~, QUE+5, QUE+6
Y	C+3, C+4, G1!, G1+1!, G1+2, END+1!, INACT, PRINT+1~, PRINT+6
Y1	END+1!, INACT*
ZDX	END+1!
>> ZTDESC	QUE+4*
>> ZTQUEUED	PRINTQ+1
>> ZTRTN	QUE+4*
>> ZTSAVE("DA"	QUE+7*
>> ZTSAVE("^TMP(""SDAVAIL"",$J,"	QUE+6*
ZTSK	QUE+3!, QUE+8, QUE+9

Customize PDF page

Package: Scheduling

Routine: SDB

Information

Source Information

Call Graph

Call Graph Total: 16

Caller Graph

Caller Graph Total: 7

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items

Name	Comments	DBIA/ICR reference
PRINT1
PRINTQ
C
EN	;Q:$D(SDONE)&('$D(SDTOP)) SD5.3455 added 2nd Go on next line
END
HELP	;
G1
QUE(X)	; -- que job ; return: did job que [ 1\|yes 0\|no ]
PRINT	;Print cancelled days
INACT
E1
DOW	;;S %=$E(^(0),1,3),I=$E(^(0),4,5),I=I>2&'(%#4)+$E("144025036146",I) X "F %=%:-1:281 S I=%#4=1+1+I" W " ",$P("SUN^MON^TUES^WEDNES^THURS^FRI^SATUR",U,$E(^(0),6,7)+I#7+1),"DAY"