Routine: BSDM0

Information

BSDM0 ; IHS/ANMC/LJF - IHS MONTH-AT-A-GLANCE ; [ 01/15/2004 11:39 AM ]

Source file <BSDM0.m>

Package	Total	Call Graph
Registration	3	EN^VALM TERM^VALM0 CLEAR^VALM1
Kernel	2	($$DOW,$$FMDIFF,$$FMTE)^XLFDT DISP^XQORM1
IHS Changes To ADT	1	PAUSE^BDGF
IHS Changes To Scheduling	1	LEGEND^BSDU
IHS VA Utilities	1	GUIR^XBLM
Scheduling	1	DTS^SDUTL
VA Fileman	1	(,C)^%DTC

Package	Total	Caller Graph
Scheduling	1	SDM0

Name	Comments	DBIA/ICR reference
RESET	; -- update partition for return to list manager
DISP	;EP; creates display lines
HELP	;EP; -- help code
MNTH
WM
EXPND	;EP; -- expand code
NOAV
DIFF
DT
DOW
HDR	;EP; -- header code
INIT	;EP; -- init variables and list array
X1
DAY	;;^SUN^MON^TUES^WEDNES^THURS^FRI^SATUR
PAUSE	; -- end of action pause
H
L
WMH	;Write month heading lines
W
EN(BSDANS)	;EP; -- main entry point for month-at-a-glance list templates
EXIT	;EP; -- exit code
RESET2	; -- update partition without recreating display array

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Function Call: WRITE	Prompt: ?36,$P(SC,U,2) Line Location: DISP+7
Function Call: WRITE	Prompt: !,$E(^SC(+SC,"ST",X,1),1,BSDIOM) Line Location: W+1
Function Call: WRITE	Prompt: !,$E(^SC(+SC,"ST",X,1),1,BSDIOM) Line Location: W+5
Function Call: WRITE	Prompt: ! Line Location: W+6
Function Call: WRITE	Prompt: !,"No availability found between date chosen and inactivate date!" Line Location: NOAV+0
Function Call: WRITE	Prompt: !?36 Line Location: WM+0
Function Call: WRITE	Prompt: !," DATE",?SI+SI-1,"\|" Line Location: WMH+2
Function Call: WRITE	Prompt: $J("\|",SI+SI) Line Location: WMH+3
Function Call: WRITE	Prompt: $$FMTE^XLFDT(Y) Line Location: DT+0
Function Call: WRITE	Prompt: !," *** No availability found for one full calendar month",!," Search stopped at " Line Location: MNTH+0
Function Call: WRITE	Prompt: Y," ***",! Line Location: MNTH+0
Routine Call	VALM Line Location: EN+5

Name	Line Occurrences (* Changed, ! Killed)
^HOLIDAY - [#40.5]	W, W+5
^SC - [#44]	HDR+1, DISP+7, DISP+12, W, W+5, H, WM+2, WMH+2
^TMP("BSDM"	INIT+1!, INIT+5, INIT+8, INIT+11*, EXIT+1!
^TMP("BSDM0"	INIT+1!, INIT+3, INIT+5, INIT+13!

Name	Field # of Occurrence
BSDANS	EN~, DISP+5
BSDCNT	DISP+3~, DISP+6, W+4, W+5, WMH+5*
BSDIOM	DISP+3~, DISP+4*, W+5
BSDTOT	DISP+3~, DISP+4*, WMH+1, WMH+3
BSDX	INIT+9~
BSDX(	INIT+10, INIT+11
>> D	DISP+7, W, L, DIFF*
DIC	EN+1~
DIR	EN+1~
DT	DISP+13, DISP+14
>> I	HDR+1, HDR+2, DISP+7, DISP+17*
J	WMH+2!
J(	W, WMH+2*
>> SC	HDR+1, DISP+7, DISP+12, W, W+5, H, WM+2, WMH+2
>> SDAV	W+3, W+5, L+1, L+3, L+6, L+11
>> SDHX	W+3*
SDHY	L+1!, L+6!
>> SDINA	L+1, L+6
>> SDMAX	DISP+11, DISP+14*, DISP+17, L+3, L+10
>> SDRE	L+1, L+6, DIFF
>> SDSOH	W
>> SDT	DISP+14*
>> SDXD	WM+2*, WM+3
>> SDXF	DISP+7, WM+1, WM+3, WM+4, WMH+4
>> SI	W, WMH+1, WMH+2, WMH+3
>> SM	W+3, WM*
>> SS	W*
>> STARTDAY	WMH+1
U	DISP+7, DISP+12, X1, W, H
>> VALM("BM"	HDR+3
>> VALM("LINES"	HDR+3*
>> VALM("TM"	HDR+2*, HDR+3
>> VALMBCK	RESET+1, RESET+2, RESET2+1, RESET2+2
>> VALMCC	EN+3*
VALMCNT	EN+1~, INIT+1, INIT+4, INIT+8, INIT+11
>> VALMHDR(	HDR+1*
>> VALMNOFF	EXIT+2*
>> VALMQUIT	RESET+1, RESET2+1
>> X	INIT+3, INIT+4, INIT+5, INIT+10, INIT+11, HELP+1, DISP+5, DISP+7, DISP+14, DISP+17 , X1, W, W+3, W+5, L, L+1, L+3, L+5, L+6, L+10 , H, WM, WM+1, WM+2, WM+3, DOW, MNTH, DIFF
>> X1	DISP+14, X1, L+5, DIFF*
>> X2	DISP+12, DISP+13, L+5, DIFF
>> Y	DISP+7, W, L+1, L+6, WM, WMH+1, WMH+2, WMH+3, DT, DOW , MNTH*