Routine: BSDOAS

Information

BSDOAS ; cmi/anch/maw - Original Clinic Availability Setup ; [ 01/02/2004 10:48 AM ]

Source Information

Source file <BSDOAS.m>

Call Graph

Call Graph Total: 11

Package	Total	Call Graph
Kernel	4	^%ZISC ($$DOW,$$FMTE)^XLFDT ($$REPEAT,$$UP)^XLFSTR DISP^XQORM1
Registration	4	KVAR^VADPT EN^VALM TERM^VALM0 CLEAR^VALM1
IHS Changes To ADT	1	($$BROWSE,$$READ,MSG,PAUSE,ZIS)^BDGF
IHS Changes To Scheduling	1	(CLINIC,LEGEND)^BSDU
VA Fileman	1	$$GET1^DIQ

Entry Points

Name	Comments	DBIA/ICR reference
EN	;EP; -- main entry point for month-at-a-glance list templates
END
HDR	;EP; -- header code
DOWN(DOW)	;-- get the node to display for Day of Week
PAD(D,L)	;EP -- SUBRTN to pad length of data ; -- D=data L=length
SP(N)	; -- SUBRTN to pad N number of spaces
PRINT	; print report to paper
EXPND	;EP; -- expand code
HDG	; heading for paper report
START	;EP; -- re-entry for printing to paper
INIT	;EP; -- init variables and list array
WMH	;Write month heading lines
EXIT	;EP; -- exit code
SET(LINE,NUM)	; -- sets display line into array
HELP1	;EP; help for print individual dates question
ASK	; ask clinic and set variables
DT
DOW(X,F)
PAUSE	; -- end of action pause
HELP	;EP; -- help code

External References

Name	Field # of Occurrence
^%ZISC	PRINT+5
$$BROWSE^BDGF	ASK+6
$$READ^BDGF	ASK+1
MSG^BDGF	HELP1+1, HELP1+2, HELP1+3
PAUSE^BDGF	PAUSE+1
ZIS^BDGF	ASK+7
CLINIC^BSDU	ASK+4
LEGEND^BSDU	INIT+31
$$GET1^DIQ	INIT+8, INIT+9, INIT+10, INIT+13, INIT+14
KVAR^VADPT	END
EN^VALM	EN+5
TERM^VALM0	EN+4
CLEAR^VALM1	EN+4, EXIT+1
$$DOW^XLFDT	DOW, DOWN+1
$$FMTE^XLFDT	HDR+2, INIT+12, INIT+21, DT
$$REPEAT^XLFSTR	HDG+3, HDG+5, PAD+2
$$UP^XLFSTR	INIT+20
DISP^XQORM1	HELP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !," DATE",?7,"\|" Line Location: WMH+2
Function Call: WRITE	Prompt: $J("\|",8) Line Location: WMH+3
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Function Call: WRITE	Prompt: $$FMTE^XLFDT(Y) Line Location: DT+0
Function Call: WRITE	Prompt: !,^TMP("BSDM",$J,X,0) Line Location: PRINT+4
Function Call: WRITE	Prompt: @IOF,?30,"Original Availability Setup" Line Location: HDG+1
Function Call: WRITE	Prompt: !,VALMHDR(I) Line Location: HDG+2
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",80) Line Location: HDG+3
Function Call: WRITE	Prompt: !,"Clinic Pattern" Line Location: HDG+4
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("=",80) Line Location: HDG+5
Routine Call	VALM Line Location: EN+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^SC - [#44]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^SC - [#44]	INIT+15, INIT+17, INIT+18, INIT+19, INIT+20
^SC("AIHSPC"	INIT+11
^TMP("BSD"	INIT+1!, INIT+35!
^TMP("BSDM"	INIT+1!, INIT+30, SET+2, EXIT+2!, PRINT+2, PRINT+4

Label References

Name	Line Occurrences
$$DOW	INIT+20
$$DOWN	INIT+20
$$PAD	SP+1
$$SP	HDR+1, HDR+2
EN	ASK+6
EXIT	PRINT+5
HDG	PRINT+1, PRINT+3
HDR	HDG+1
INIT	START+1
PRINT	START+1
SET	INIT+12, INIT+21, INIT+23, INIT+25, INIT+26, INIT+27, INIT+33

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	END!
%DT	END!
ARG	END+3!
ASKC	END!
BSDAR	INIT+2~*, INIT+7
>> BSDCNT	WMH+4*
BSDCS	INIT+6~, INIT+15*, INIT+22, WMH+1
>> BSDD	ASK+1*, HDR+2, INIT+12, INIT+17, INIT+18, INIT+19, INIT+20, INIT+21, WMH+1
BSDH	INIT+6~
>> BSDIOM	INIT+3*
BSDPC	INIT+6~, INIT+14*
BSDPTR	INIT+16~, INIT+18, INIT+20, INIT+26
>> BSDQ	ASK+4
BSDS	INIT+6~
BSDSCD	INIT+6~, INIT+13*
>> BSDTOT	INIT+3*, INIT+22, WMH+1, WMH+3
BSDX	INIT+31~
BSDX(	INIT+32, INIT+33
CCX	END+3!
CCXN	END+3!
CLN	INIT+6~, INIT+7*, INIT+8, INIT+9, INIT+10, INIT+11, INIT+13, INIT+14, INIT+15, INIT+17 , INIT+18, INIT+19, INIT+20
COLLAT	END+3!
COV	END!
D	PAD~, PAD+2
DA	END!
DIC	EN+1~, END!
DIE	END!
DIR	EN+1~
DOW	DOWN~, DOWN+1*, DOWN+2
DP	END!
DR	END!
F	DOW~
HEY	END+1!
HSI	END+1!
HX	END+3!
HY	END+1!
I	HDG+2*, END+3!
IO	PRINT+1
IOF	HDG+1
IOSL	PRINT+3
J	END+1!
L	PAD~, PAD+2
LINE	INIT+22, INIT+23, INIT+24, INIT+25, SET~, SET+2
N	SP~, SP+1
NAME	INIT+6~, INIT+10*, INIT+12, INIT+21
NUM	SET~, SET+1*, SET+2
PXR	END+3!
S	END+2!
SB	END+1!
SC	END+1!
SD	END+2!
SD17	END+1!
SDAP16	END+2!
SDAPTYP	END!
SDAV	END+4!
SDDIF	END+1!
SDDIS	END+3!
SDEDT	END+2!
SDHX	END+4!
SDINA	END+3!
SDJ	END+1!
SDLN	END+1!
SDMAX	END+1!
SDMLT1	END+3!
SDMM	END+3!
SDSC	END!
SDSOH	END+4!
SDT	END+4!
SDTY	END+2!
SDU	END+1!
SDW	END+3!
SDYC	END+1!
SDZPR	END+2!
SI	END+1!
SL	END+1!
SM	END+2!
SS	END+3!
SSC	END+2!
ST	END+3!
STARTDAY	END+2!
STR	END+2!
U	INIT+15
>> VALMCC	EN+3*
VALMCNT	EN+1~, INIT+1, INIT+12, INIT+21, INIT+23, INIT+25, INIT+26, INIT+27, INIT+30, INIT+33
>> VALMHDR(	HDG+2
>> VALMHDR(1	HDR+1*
>> VALMHDR(2	HDR+2*
>> VALMNOFF	EXIT+3*
>> VAUTC	INIT+2
>> VAUTD	INIT+9
>> VAUTD(	INIT+9
WY	END+2!
X	INIT+32, INIT+33, HELP+1, DOW~, PRINT+2~*, PRINT+4, END+2!
XX	END+2!
Y	ASK+6, INIT+22, WMH+1, WMH+3, DT, END+2!

Customize PDF page

Package: IHS Changes To Scheduling

Routine: BSDOAS

Call Graph Total: 11