Routine: BSDRPW7

Entry Points

Name	Comments	DBIA/ICR reference
EN	; -- main entry point for BSDRM CLINIC CAPACITY
FOOT(SDTX)	;EP; Report footer for report ; called by FOOT^SCRPW75
HDR	; -- header code
EXPND	; -- expand code
INIT	; -- init variables and list array
EXIT	; -- exit code
SUBT(SDTY)	;EP;Print subtitles ; called by SUBT^SCRPW72
CP	;EP;Get clinic codes for detailed report ; called by CP^SCRPW70
HELP	; -- help code

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Function Call: WRITE	Prompt: !?(SDCOL+44),"Avail.",?(SDCOL+54),"Pct." Line Location: SUBT+3
Function Call: WRITE	Prompt: ?(SDCOL+60),"Actual",?(SDCOL+68),"---Future Appts---" Line Location: SUBT+4
Function Call: WRITE	Prompt: ! Line Location: SUBT+5
Function Call: WRITE	Prompt: ?(SDCOL),"Clinic Code" Condition for execution: SDTY>1 Line Location: SUBT+5
Function Call: WRITE	Prompt: ?(SDCOL+36),"Clinic",?(SDCOL+45),"Appt.",?(SDCOL+53),"Slots" Line Location: SUBT+6
Function Call: WRITE	Prompt: ?(SDCOL+70),"Total Ave" Line Location: SUBT+8
Function Call: WRITE	Prompt: !?(SDCOL),$S(SDTY=1:" Availability Date",1:" Clinic Name") Line Location: SUBT+9
Function Call: WRITE	Prompt: ?(SDCOL+34),"Capacity",?(SDCOL+45),"Slots",?(SDCOL+52),"Avail." Line Location: SUBT+10
Function Call: WRITE	Prompt: ?(SDCOL+70),"Made Wait" Line Location: SUBT+12
Function Call: WRITE	Prompt: !?($S(SDTY>1:SDCOL,1:SDCOL+4)),$E(SDLINE,1,($S(SDPAST:80,1:58)-$S(SDTY=1:4,1:0))) Line Location: SUBT+13
Function Call: WRITE	Prompt: ! Line Location: CP+3
Routine Call	VALM Line Location: EN+2

FileNo	Call Tags
^DIC(40.7 - [#40.7]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^TMP("BSDRPW7"	INIT+1!, INIT+5*, EXIT+1!
^TMP("BSDRPW71"	INIT+1!, INIT+3, INIT+5, INIT+6!

Name	Field # of Occurrence
CNT	CP+2~, CP+3, CP+5
>> CODE	CP+7*
DIR	CP+2~
>> SDCOL	SUBT+3, SUBT+4, SUBT+5, SUBT+6, SUBT+7, SUBT+8, SUBT+9, SUBT+10, SUBT+11, SUBT+12 , SUBT+13
SDI	SUBT+2~
>> SDLINE	SUBT+13, FOOT+3, FOOT+7, FOOT+12
>> SDPAST	SUBT+4, SUBT+7, SUBT+8, SUBT+11, SUBT+12, SUBT+13, FOOT+7
SDQUIT	CP+2~
>> SDSORT(	CP+7*
SDTX	FOOT~
SDTX(1	FOOT+3*
SDTX(2	FOOT+4*
SDTX(3	FOOT+5*
SDTX(4	FOOT+6*
SDTX(5	FOOT+7, FOOT+8
SDTX(6	FOOT+9*
SDTX(7	FOOT+10*
SDTX(8	FOOT+11*
SDTX(9	FOOT+12*
SDTY	SUBT~, SUBT+5, SUBT+9, SUBT+13
VALMCNT	EN+1~, INIT+4*
X	INIT+3, INIT+4, INIT+5, HELP+1, CP+2~, CP+5*, CP+6
Y	CP+2~, CP+3, CP+4, CP+6, CP+7