Routine: BSDDAM

Information

BSDDAM ; IHS/ANMC/LJF - APPTS MADE BY DATE REPORT ;

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
Kernel	4	^%ZISC ($$DOW,$$FMDIFF,$$FMTE)^XLFDT $$REPEAT^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

Caller Graph

Caller Graph Total: 4

Package	Total	Caller Graph
Scheduling	3	SDAMWI1 SDM1A SDMM1
IHS Changes To Scheduling	1	BSDP13PS

Entry Points

Name	Comments	DBIA/ICR reference
INCR(S1,S2,S3,S4)	; -- increment totals ; S1=princ cln, S2=Cln name, S3=Date appt made, S4=day of week # ; increment total appts made & day of week # for principal clinic
HELP	; -- help code
AVETOT(S1,S2,S3)	; -- returns average # appts made in clinic ; S1=prin cln, S2=clinic or 0
PAD(D,L)	; -- SUBRTN to pad length of data ; -- D=data L=length
SP(N)	; -- SUBRTN to pad N number of spaces
HDG	; -- 2nd half of heading
EXPND	; -- expand code
PRINT	;EP; --prints report to paper
AVEDOW(S1,S2)	; -- day of week averages ; S1=princ clinic, S2=clinic or 0 if called by princ clin code
HDR	; -- header code
WAIT(S1,S2,S3,S4)	; -- set lo-hi-total wait times ; S1=princ clinic, S2=clinic name, S3=appt date, S4=date appt made
CLOOP(S1)	; -- loop thru clinics for princ clinic S1
INIT	; -- init variables and list array
ASK	; -- ask user questions
HELP2	;EP; called by DIR for Include Individual Clinic Totals question
TOTC(S1,S2)	; -- returns # of days
EN	;EP; -- called by SD IHS COUNT APPTS MADE list template
XREFC(CLIN,DATE,PAT)	;EP; -- updates AIHSDAM xref when data is hard set ; Called by SDM1A and SDMM1
START	;EP; -- re-entry for printing to paper
DETAIL(S1,S2)	; -- daily details into display array ; S1=princ clinc, S2=clinic or 0
SET(LINE,NUM)	; -- put line into display array
WALKIN(S1,S2,S3)	; -- returns 1 if appt not scheduled or an error ; S1=clinic ien, S2=date made, S3=appt date
PC(C)	; -- returns name of principal clinic
DOWC(S1,S2,S3)	; -- returns # of day S3 for prin clinic S1 & clinic S2
EXIT	; -- exit code
HELP1	;EP; called from DIR for Detailed Display question

External References

Name	Field # of Occurrence
^%ZISC	PRINT+6
$$BROWSE^BDGF	ASK+12
$$RANGE^BDGF	HDR+1
$$READ^BDGF	ASK+5, ASK+6, ASK+8, ASK+10
MSG^BDGF	EN+2, HDG+3, HDG+6, HELP1+1, HELP1+2, HELP1+3, HELP2+1, HELP2+2, HELP2+3
ZIS^BDGF	ASK+13
$$PRIN^BSDU	PC+1
CLINIC^BSDU	ASK+3
$$GET1^DIQ	INIT+13
EN^VALM	EN+3
TERM^VALM0	EN+1
CLEAR^VALM1	EN+1, EN+4
$$DOW^XLFDT	INIT+5, INIT+20, INIT+21, DETAIL+7, DETAIL+10, DOWC+3
$$FMDIFF^XLFDT	WAIT+2
$$FMTE^XLFDT	DETAIL+10
$$REPEAT^XLFSTR	HDG+6, PAD+2
DISP^XQORM1	HELP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Function Call: WRITE	Prompt: !,^TMP("BSDDAM",$J,LINE,0) Line Location: PRINT+5
Function Call: WRITE	Prompt: @IOF,!!?20,"Number of Appointments Made by Date" Line Location: HDG+2
Routine Call	VALM Line Location: EN+3

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	WALKIN+4
^SC - [#44]	WALKIN+3, XREFC+3
^SC("AIHSDAM"	INIT+19, INIT+25, WALKIN+2, XREFC+4*
^SC("AIHSPC"	INIT+12
^TMP("BSDDAM"	INIT+2!, SET+2*, EXIT+1!, PRINT+3, PRINT+5
^TMP("BSDDAM1"	INIT+2!, INIT+41, INIT+45, INIT+52, INIT+54!, INCR+3, INCR+4, INCR+10, INCR+11, DETAIL+4 , DETAIL+11, CLOOP+2, CLOOP+6, AVEDOW+13, DOWC+2, TOTC+2
^TMP("BSDDAM2"	INIT+2!, INIT+54!, INCR+5, INCR+12, AVEDOW+6, AVEDOW+7
^TMP("BSDDAM3"	INIT+3!, INIT+32, INIT+36, INIT+54!, WAIT+5, WAIT+6, AVEDOW+12

Label References

Name	Line Occurrences
$$AVETOT	INIT+46, CLOOP+7
$$DOWC	AVEDOW+7
$$PAD	INIT+44, INIT+46, DETAIL+10, DETAIL+11, CLOOP+5, CLOOP+7, AVEDOW+5, AVEDOW+7, AVEDOW+10, HDG+4 , HDG+5, SP+1
$$PC	INIT+14
$$SP	HDR+2, HDR+4, DETAIL+10, CLOOP+5, AVEDOW+5, AVEDOW+10, AVEDOW+14, HDG+4
$$TOTC	AVETOT+2
$$WALKIN	INIT+26
AVEDOW	INIT+50, CLOOP+11
CLOOP	INIT+51
DETAIL	INIT+49, CLOOP+10
EN	ASK+12
EXIT	EN+4, PRINT+6
HDG	PRINT+2, PRINT+4
HDR	HDG+3
INCR	INIT+27
INIT	START+1
PRINT	START+1
SET	INIT+42, INIT+47, INIT+52, DETAIL+7, DETAIL+14, CLOOP+3, CLOOP+8, AVEDOW+3, AVEDOW+8, AVEDOW+11 , AVEDOW+15
WAIT	INIT+28

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
APPT	INIT+9~, INIT+24, INIT+25, INIT+26, INIT+28
AVE	AVEDOW+2~, AVEDOW+13*, AVEDOW+14
BSDA	INIT+5~
BSDA(	INIT+5*, AVEDOW+4, AVEDOW+5
BSDAR	INIT+6~*, INIT+11
BSDBD	ASK+1~, ASK+5*, HDR+1, INIT+18
BSDDET	ASK+1~, ASK+8*, HDR+4, INIT+49, CLOOP+10
BSDED	ASK+1~, ASK+6*, HDR+1, INIT+18
BSDHI	INIT+1~, INIT+15!, INIT+32, WAIT+15*
BSDIND	ASK+1~, ASK+10*, INIT+31, INIT+51, INCR+7, WAIT+11
BSDLO	INIT+1~, INIT+15!, INIT+32, WAIT+14*
BSDPHI	INIT+1~, INIT+10!
BSDPHI(	INIT+36, WAIT+10*
BSDPLO	INIT+1~, INIT+10!
BSDPLO(	INIT+35, INIT+36, WAIT+9*
>> BSDQ	ASK+3
C	PC~, PC+1
CLIN	XREFC~, XREFC+3, XREFC+4
CLN	INIT+9~, INIT+11, INIT+12, INIT+13, INIT+14, INIT+19, INIT+25, INIT+26, CLOOP+1~, CLOOP+2 , CLOOP+3, CLOOP+6, CLOOP+7, CLOOP+10, CLOOP+11, WALKIN+3
D	PAD~, PAD+2
DATE	XREFC~, XREFC+3, XREFC+4
DAY	AVEDOW+2~, AVEDOW+4*, AVEDOW+5, AVEDOW+6, AVEDOW+7
DAYS	WAIT+2~*, WAIT+5, WAIT+6, WAIT+9, WAIT+10, WAIT+14, WAIT+15
DOW	INIT+9~, INIT+20*
DOWN	INIT+9~, INIT+21*, INIT+27
DT	INIT+5
END	INIT+9~, INIT+18*, INIT+19
>> I	INIT+5*
IO	PRINT+2
IOF	HDG+2
IOSL	PRINT+4
L	PAD~, PAD+2
LAST	DETAIL+2~, DETAIL+3, DETAIL+7, DETAIL+14
LINE	INIT+40~, INIT+44, INIT+46, INIT+47, DETAIL+2~, DETAIL+10, DETAIL+11, DETAIL+14, CLOOP+1~, CLOOP+5* , CLOOP+7, CLOOP+8, AVEDOW+2~, AVEDOW+5, AVEDOW+6, AVEDOW+7, AVEDOW+8, AVEDOW+10, AVEDOW+11, AVEDOW+14 , AVEDOW+15, SET~, SET+2, PRINT+1~, PRINT+3*, PRINT+5
MADE	INIT+9~, INIT+18, INIT+19, INIT+20, INIT+21, INIT+25, INIT+26, INIT+27, INIT+28, DETAIL+2~ , DETAIL+3, DETAIL+4, DETAIL+7, DETAIL+10, DETAIL+11, DETAIL+14, XREFC+2~, XREFC+3*, XREFC+4
N	SP~, SP+1
NAME	INIT+9~, INIT+13*, INIT+27, INIT+28, INIT+32
NUM	SET~, SET+1*, SET+2
PAT	WALKIN+3~*, WALKIN+4, XREFC~, XREFC+3, XREFC+4
PC	INIT+9~, INIT+14, INIT+27, INIT+28, INIT+32, INIT+40~, INIT+41, INIT+42, INIT+45, INIT+46 , INIT+49, INIT+50, INIT+51, INIT+52
POP	ASK+1~
S1	INCR~, INCR+3, INCR+4, INCR+5, INCR+10, INCR+11, INCR+12, WAIT~, WAIT+5, WAIT+6 , WAIT+9, WAIT+10, DETAIL~, DETAIL+4, DETAIL+11, CLOOP~, CLOOP+2, CLOOP+6, CLOOP+7, CLOOP+10 , CLOOP+11, AVEDOW~, AVEDOW+6, AVEDOW+7, AVEDOW+12, AVEDOW+13, AVETOT~, AVETOT+2, DOWC~, DOWC+2 , TOTC~, TOTC+2, WALKIN~, WALKIN+2
S2	INCR~, INCR+10, INCR+11, INCR+12, WAIT~, WAIT+6, DETAIL~, DETAIL+4, DETAIL+11, AVEDOW~ , AVEDOW+6, AVEDOW+7, AVEDOW+12, AVETOT~, AVETOT+2, DOWC~, DOWC+2, TOTC~, TOTC+2, WALKIN~ , WALKIN+2
S3	INCR~, INCR+4, INCR+11, WAIT~, WAIT+2, AVETOT~, AVETOT+3, DOWC~, DOWC+3, WALKIN~ , WALKIN+2, WALKIN+3, WALKIN+4
S4	INCR~, INCR+5, INCR+12, WAIT~, WAIT+2
TOT	INIT+40~, INIT+45, INIT+46, CLOOP+1~, CLOOP+6, CLOOP+7
U	ASK+8, ASK+10, INIT+32, INIT+36, AVEDOW+14, WALKIN+4, XREFC+3
>> VALMCAP	HDR+4*
VALMCNT	EN+1~, INIT+3*, INIT+42, INIT+47, INIT+52, DETAIL+7, DETAIL+14, CLOOP+3, CLOOP+8, AVEDOW+3 , AVEDOW+8, AVEDOW+11, AVEDOW+15
>> VALMHDR(1	HDR+2*, HDG+3
VAUTC	ASK+1~, INIT+6
VAUTD	ASK+1~
X	HDR+1, HDR+2, INIT+35~, INIT+36, AVEDOW+2~, AVEDOW+12, AVEDOW+14, AVETOT+2~, AVETOT+3, DOWC+1~* , DOWC+2, DOWC+3, TOTC+1~, TOTC+2, WALKIN+2~, WALKIN+3, HELP+1, HDG+1~, HDG+4, HDG+5* , HDG+6
Y	ASK+1~, ASK+12, AVEDOW+12, AVEDOW+13, DOWC+1~, DOWC+3, DOWC+4, TOTC+1~, TOTC+2, TOTC+3

Customize PDF page

Package: IHS Changes To Scheduling

Routine: BSDDAM

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: