Routine: BSDTOD

Information

BSDTOD ;cmi/flag/maw - Time of Day Appointment fills up ;

Source Information

Source file <BSDTOD.m>

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
Kernel	4	^%ZISC ($$FMADD,$$FMTE)^XLFDT ($$REPEAT,$$STRIP)^XLFSTR DISP^XQORM1
Registration	3	EN^VALM TERM^VALM0 CLEAR^VALM1
IHS Changes To ADT	1	($$BROWSE,$$RANGE,$$READ,MSG,ZIS)^BDGF
IHS Changes To Scheduling	1	($$PRIN,CLINIC)^BSDU
VA Fileman	1	$$GET1^DIQ

Entry Points

Name	Comments	DBIA/ICR reference
EN	;EP; -- called by SD IHS COUNT APPTS MADE list template
HDR	; -- header code
PAD(D,L)	; -- SUBRTN to pad length of data ; -- D=data L=length
OKAY(C,BSDATE)	; -- active clinic with schedule? (yes=true)
LASTAPPT(D,C)	;-- get the last appointment made for that date
SP(N)	; -- SUBRTN to pad N number of spaces
PRINT	;EP; --prints report to paper
EXPND	; -- expand code
HDG	; -- 2nd half of heading
START	;EP; -- re-entry for printing to paper
INIT	; -- init variables and list array
EXIT	; -- exit code
COUNT(LINE)	; returns # of avail appts in display line LINE
SET(LINE,NUM)	; put display line into display array
HELP1	;EP; called from DIR for Detailed Display question
ASK	; -- ask user questions
HELP2	;EP; called by DIR for Include Individual Clinic Totals question
XREFC(CLIN,DATE,PAT)	;EP; -- updates AIHSDAM xref when data is hard set ; Called by SDM1A and SDMM1
PC(C)	; -- returns name of principal clinic
HELP	; -- help code

External References

Name	Field # of Occurrence
^%ZISC	PRINT+6
$$BROWSE^BDGF	ASK+8
$$RANGE^BDGF	HDR+1
$$READ^BDGF	ASK+5, ASK+6
MSG^BDGF	EN+2, HDG+3, HDG+7, HELP1+1, HELP1+2, HELP1+3, HELP2+1, HELP2+2, HELP2+3
ZIS^BDGF	ASK+9
$$PRIN^BSDU	INIT+9, PC+1
CLINIC^BSDU	ASK+3
$$GET1^DIQ	INIT+10, INIT+11, INIT+30
EN^VALM	EN+3
TERM^VALM0	EN+1
CLEAR^VALM1	EN+1, EN+4
$$FMADD^XLFDT	INIT+22
$$FMTE^XLFDT	INIT+32, INIT+33
$$REPEAT^XLFSTR	HDG+7, PAD+2
$$STRIP^XLFSTR	COUNT+4, COUNT+9
DISP^XQORM1	HELP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Function Call: WRITE	Prompt: !,^TMP("BSDTOD",$J,LINE,0) Line Location: PRINT+5
Function Call: WRITE	Prompt: @IOF,!!?25,"Time of Day Clinic Fills Up" Line Location: HDG+2
Routine Call	VALM Line Location: EN+3

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+24, OKAY+2, OKAY+3, LASTAPPT+1, LASTAPPT+4, LASTAPPT+5, LASTAPPT+6, XREFC+3
^SC("AIHSDAM"	XREFC+4*
^SC("AIHSPC"	INIT+8
^TMP("BSDDAM"	EXIT+1!
^TMP("BSDTOD"	INIT+1!, SET+2*, PRINT+3, PRINT+5
^TMP("BSDTOD1"	INIT+1!, INIT+12*, INIT+16, INIT+17, INIT+19, INIT+36!

Label References

Name	Line Occurrences
$$COUNT	INIT+26
$$LASTAPPT	INIT+28
$$OKAY	INIT+23
$$PAD	INIT+31, INIT+32, INIT+33, HDG+4, HDG+5, SP+1
$$SP	HDR+2
EN	ASK+8
EXIT	EN+4, PRINT+6
HDG	PRINT+2, PRINT+4
HDR	HDG+3
INIT	START+1
PRINT	START+1
SET	INIT+34

Naked Globals

Name	Field # of Occurrence
^("ST"	OKAY+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ABBR	INIT+5~, INIT+10, INIT+15~, INIT+17, INIT+19
ARRAY	INIT+2~*, INIT+7
BSDA	LASTAPPT+2~, LASTAPPT+4*, LASTAPPT+5, LASTAPPT+6
BSDATE	OKAY~, OKAY+2, OKAY+3
BSDBD	ASK+1~, ASK+5*, HDR+1, INIT+21
>> BSDCNT	LASTAPPT+3*
BSDDET	ASK+1~
BSDED	ASK+1~, ASK+6*, HDR+1, INIT+21
BSDI	LASTAPPT+2~, LASTAPPT+5*, LASTAPPT+6
BSDIND	ASK+1~
BSDLAP	LASTAPPT+2~, LASTAPPT+6*, LASTAPPT+7, LASTAPPT+8
>> BSDQ	ASK+3
BSDRR	LASTAPPT+2~
BSDRR(	LASTAPPT+8*
BSDRR(""	LASTAPPT+9, LASTAPPT+10
>> BSDTOD	INIT+28*, INIT+29, INIT+33
C	OKAY~, OKAY+2, OKAY+3, LASTAPPT~, LASTAPPT+1, LASTAPPT+4, LASTAPPT+5, LASTAPPT+6, PC~, PC+1
CLIN	XREFC~, XREFC+3, XREFC+4
CLINE	INIT+15~, INIT+30*, INIT+31
CLINIC	INIT+5~, INIT+6, INIT+7, INIT+8, INIT+9, INIT+10, INIT+11, INIT+12, INIT+15~, INIT+18* , INIT+19*, INIT+23, INIT+24, INIT+28, INIT+30
CLNE	INIT+5~, INIT+11*, INIT+12
CNT	COUNT+1~, COUNT+7, COUNT+8, COUNT+10
COUNT	INIT+15~, INIT+26*, INIT+27
D	LASTAPPT~, LASTAPPT+4, PAD~, PAD+2
DATE	INIT+15~, INIT+21, INIT+22, INIT+23, INIT+24, INIT+28, INIT+32, XREFC~, XREFC+3, XREFC+4
END	INIT+15~, INIT+21*, INIT+22
I	COUNT+1~, COUNT+4, COUNT+7, COUNT+8, COUNT+9
IO	PRINT+2
IOF	HDG+2
IOSL	PRINT+4
J	COUNT+1~, COUNT+8*
L	PAD~, PAD+2
LINE	INIT+15~, INIT+31, INIT+32, INIT+33, INIT+34, COUNT~, COUNT+2, COUNT+3, COUNT+4, COUNT+7 , COUNT+8, COUNT+9, SET~, SET+2, PRINT+1~, PRINT+3*, PRINT+5
MADE	XREFC+2~, XREFC+3*, XREFC+4
N	SP~, SP+1
NUM	SET~, SET+1*, SET+2
PAT	XREFC~, XREFC+3, XREFC+4
PC	INIT+5~, INIT+9, INIT+12, INIT+15~, INIT+16, INIT+17, INIT+19
POP	ASK+1~
SCHED	INIT+15~, INIT+24*, INIT+25, INIT+26
U	OKAY+3, LASTAPPT+6, XREFC+3
VALMCNT	EN+1~, INIT+1*, INIT+34
>> VALMHDR(1	HDR+2*, HDG+3
VAUTC	ASK+1~, INIT+2
VAUTD	ASK+1~
X	HDR+1, HDR+2, COUNT+1~, COUNT+8, OKAY+1~, OKAY+2, OKAY+3, HELP+1, HDG+1~, HDG+4* , HDG+5, HDG+6, HDG+7
Y	ASK+1~, ASK+8*

Customize PDF page

Package: IHS Changes To Scheduling

Routine: BSDTOD

Call Graph Total: 10