Routine: BSDCCR2

Information

BSDCCR2 ; IHS/ANMC/LJF - CLINIC CAPACITY REPORT CONT.;

Call Graph

Call Graph Total: 12

Package	Total	Call Graph
IHS Changes To Scheduling	6	(EXXM,TXXM)^BSDCCR0 ($$CLINIC,$$CPAIR,$$DIV,ARRINI,INIT)^BSDCCR1 ($$OTX,HDRXM,PRT,XMTX)^BSDCCR3 EXIT^BSDCCR4 NAVA^BSDCCR5 (EN,SUBT)^BSDCCRL
Kernel	2	$$S^%ZTLOAD $$HTE^XLFDT
Scheduling	2	$$XY^SCRPW50 $$GETOE^SDOE
VA Fileman	2	(,NOW)^%DTC ^DIR

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
IHS Changes To Scheduling	2	BSDCCR3 BSDCCR4

Entry Points

Name	Comments	DBIA/ICR reference
HINI	;Initialize header variables
CL	;Evaluate list of clinics
SUBT(SDTY)	;Print subtitles
IHS	;EP; re-entry point from list template ;IHS/ANMC/LJF 10/6/2000
STOP	;Check for stop task request
HDR(SDTY,SDIV,SDCP,SC)	;Print header
HDRX(SDTY)	;Extra header lines
START	;Gather data for printed report
ARRSET(SDCP,SC,SDI)	;Set daily counts into array
DIV(SDIV)	;Evaluate division
ORD	;Build list to order clinic output
CP	;Evaluate list of credit pairs
EXTRACT	;Gather data for extract
OE(SDBDT,SDEDT,MAX,SDEX)	;Count clinic workload
TIME(SDBEG,SDEND)	;Calculate length of run time

External References

Name	Field # of Occurrence
^%DTC	IHS+7, OE+27, EXTRACT+5
NOW^%DTC	HINI+4
$$S^%ZTLOAD	STOP+1
EXXM^BSDCCR0	EXTRACT+33
TXXM^BSDCCR0	EXTRACT+20
$$CLINIC^BSDCCR1	CL+5, CP+7, EXTRACT+12
$$CPAIR^BSDCCR1	OE+12, CP+6
$$DIV^BSDCCR1	OE+23, CL+7
ARRINI^BSDCCR1	OE+24
INIT^BSDCCR1	IHS+6, EXTRACT+3
$$OTX^BSDCCR3	HDRX+8
HDRXM^BSDCCR3	HDR+11
PRT^BSDCCR3	IHS+25, EXTRACT+33
XMTX^BSDCCR3	EXTRACT+26, EXTRACT+27, EXTRACT+28, EXTRACT+29, EXTRACT+30, EXTRACT+31, EXTRACT+32
EXIT^BSDCCR4	IHS+9, IHS+21, IHS+24, IHS+25, EXTRACT+34
NAVA^BSDCCR5	IHS+23, EXTRACT+17
EN^BSDCCRL	START+1
SUBT^BSDCCRL	SUBT+1
^DIR	HDR+12
$$XY^SCRPW50	HDR+14
$$GETOE^SDOE	OE+9
$$HTE^XLFDT	EXTRACT+24

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: SDLINE,!?(SDIOM-$L(SDTITL)\2),SDTITL Line Location: HDR+15
Function Call: WRITE	Prompt: !?(SDIOM-$L(SDTIT(SDI))\2),SDTIT(SDI) Line Location: HDR+17
Function Call: WRITE	Prompt: !,SDLINE,!,"For clinic availability dates ",SDPBDT," through ",SDPEDT Line Location: HDR+18
Function Call: WRITE	Prompt: !,"Date printed: ",SDPNOW,?(SDIOM-6-$L(SDPAGE)),"Page: ",SDPAGE Line Location: HDR+19
Function Call: WRITE	Prompt: !,SDLINE Line Location: HDR+20
Function Call: WRITE	Prompt: !?(SDCOL+44),"Avail.",?(SDCOL+54),"Pct." Line Location: SUBT+3
Function Call: WRITE	Prompt: ?(SDCOL+68+(16*SDI)),"---Type '",SDI,"'---" Line Location: SUBT+4
Function Call: WRITE	Prompt: ! Line Location: SUBT+5
Function Call: WRITE	Prompt: ?(SDCOL),"Credit Pair" 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+68+(16*SDI)),"Sched. Wait" Line Location: SUBT+8
Function Call: WRITE	Prompt: !?(SDCOL+4),$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+68+(16*SDI)),"Appts. Time" Line Location: SUBT+12
Function Call: WRITE	Prompt: !?($S(SDTY>1:SDCOL,1:SDCOL+4)),$E(SDLINE,1,($S(SDPAST:130,1:58)-$S(SDTY=1:4,1:0))) Line Location: SUBT+13
Routine Call	DIR Line Location: HDR+12

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	HINI+4
^SC - [#44]	ORD+5, OE+11, CL+4, CP+2, CP+3, EXTRACT+11
^SCE("B"	OE+6, OE+7
^TMP("SD"	IHS+4!, IHS+22, ORD+1, ORD+3, ORD+4, OE+24, OE+25, OE+26, ARRSET+6, ARRSET+9* , CL+8*, EXTRACT+4!, EXTRACT+16
^TMP("SDS"	IHS+4!, ORD+6*, EXTRACT+4!
^TMP("SDTMP"	IHS+4!, EXTRACT+4!
^TMP("SDTOT"	IHS+4!
^TMP("SDXM"	EXTRACT+4!, EXTRACT+20!

Label References

Name	Line Occurrences
$$DIV	OE+10, CL+4, CP+3
$$TIME	EXTRACT+23
@(	IHS+18
ARRSET	OE+28
HDRX	HDR+16
OE	IHS+8, EXTRACT+8
ORD	IHS+25, EXTRACT+20
STOP	OE+8, CL+3, HDR+13
SUBT	HDR+20

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	HINI+1~, HINI+4
%H	HINI+1~
%I	HINI+1~
DIR	HDR+12~
DIR(0	HDR+12*
DT	IHS+3, EXTRACT+3
IOF	HDR+14
IOM	IHS+2, EXTRACT+2
IOST	START+1, HDR+12, HDR+14
MAX	IHS+1~, IHS+7, IHS+8, OE~, OE+24, CL+5, CP+7, EXTRACT+2~, EXTRACT+5, EXTRACT+8 , EXTRACT+12
SC	IHS+1~, ORD+4, ORD+5, ORD+6, OE+10, OE+11, OE+24, OE+26, OE+28, ARRSET~ , ARRSET+6, ARRSET+9, CL+4, CL+5, CP+1~, CP+2, CP+3, CP+7, HDR~, EXTRACT+1~ , EXTRACT+11, EXTRACT+12
SC0	OE+11, OE+12, OE+19, OE+23, CL+1~, CL+4, CL+7, CP+1~, CP+3, CP+4 , CP+5, CP+6, EXTRACT+11
SCNA	IHS+1~, ORD+5*, ORD+6, EXTRACT+1~
>> SDAY	OE+27*, OE+28
SDBDT	IHS+3, IHS+7, IHS+8, IHS+23, OE~, OE+5, OE+27, CL+5, CP+7, EXTRACT+5 , EXTRACT+8, EXTRACT+12, EXTRACT+17
SDBEG	EXTRACT+1~, EXTRACT+3, EXTRACT+23, EXTRACT+24, EXTRACT+29, TIME~, TIME+5, TIME+6*
SDCCP	CP+1~, CP+6
SDCNAM	CL+1~, CL+2*, CL+4, CL+8
>> SDCOL	IHS+6, SUBT+3, SUBT+4, SUBT+5, SUBT+6, SUBT+7, SUBT+8, SUBT+9, SUBT+10, SUBT+11 , SUBT+12, SUBT+13, EXTRACT+3
SDCP	IHS+1~, ORD+3*, ORD+4, ORD+6, OE+5~, OE+12, OE+20, OE+24, OE+25, OE+26 , OE+28, ARRSET~, ARRSET+6, ARRSET+9, HDR~, EXTRACT+1~
SDCT	OE+5~, OE+8
>> SDDIV	DIV+1
>> SDDIV(	DIV+1
SDDV	HDRX+4~*, HDRX+5, HDRX+6
SDEDT	IHS+7, IHS+8, IHS+23, OE~, OE+6, CL+5, CP+7, EXTRACT+5, EXTRACT+8, EXTRACT+12 , EXTRACT+17
SDEND	EXTRACT+1~, EXTRACT+23, EXTRACT+24, EXTRACT+30, TIME~, TIME+5*, TIME+6
SDEX	IHS+23, OE~
SDEXDT	EXTRACT+2~, EXTRACT+3*
SDFMT	OE+27, CL+5, CP+7, EXTRACT+1~, EXTRACT+3, EXTRACT+12, EXTRACT+23
SDI	IHS+1~, IHS+2, ARRSET~, ARRSET+5, CL+1, CL+3, HDR+13~, HDR+16, HDR+17, SUBT+2~ , SUBT+4, SUBT+8, SUBT+12, EXTRACT+1~, EXTRACT+32*
SDIOM	IHS+1~, IHS+2, IHS+6, HINI+3, HDR+15, HDR+17, HDR+19, EXTRACT+1~, EXTRACT+2
SDIV	ORD+1, ORD+3, ORD+4, OE+23, OE+24, OE+25, OE+26, ARRSET+6, ARRSET+9, DIV~ , DIV+1, CL+1~, CL+7, CL+8, HDR~, HDRX+2, HDRX+4
>> SDLINE	HINI+3*, HDR+15, HDR+18, HDR+20, SUBT+13
>> SDMD	IHS+22, EXTRACT+16
SDOE	OE+5~, OE+7*, OE+9
SDOE0	OE+5~, OE+9*, OE+10
SDOUT	IHS+1~, IHS+2, IHS+8, IHS+9, IHS+21, IHS+24, ORD+1, ORD+3, ORD+4, OE+6 , OE+7, OE+8, CL+2, CL+3, CP+2, STOP+1, HDR+10, HDR+12, HDR+13, HDR+16 , EXTRACT+1~, EXTRACT+3
SDP	ARRSET+4~, ARRSET+5*, ARRSET+6, ARRSET+9
>> SDPAGE	HINI+3, HDR+12, HDR+19, HDR+20
SDPAST	IHS+1~, IHS+3*, IHS+6, IHS+8, IHS+23, OE+24, CL+5, CP+7, HINI+3, SUBT+4 , SUBT+7, SUBT+8, SUBT+11, SUBT+12, SUBT+13, EXTRACT+8, EXTRACT+12, EXTRACT+17, EXTRACT+25
>> SDPBDT	HDR+18, EXTRACT+28
>> SDPEDT	HDR+18, EXTRACT+28
>> SDPG	HINI+3, HDR+14, HDR+20
>> SDPNOW	HINI+4*, HDR+19
SDQUIT	OE+5~, OE+19, OE+20*
SDS	ARRSET+4~, ARRSET+5*, ARRSET+6, ARRSET+9
>> SDSORT	IHS+18, OE+19, OE+20, HDRX+8
>> SDSORT(	OE+19, OE+20, CL+2, CL+4, CP+6
SDT	OE+5~, OE+6, OE+7, OE+27
SDTIME	EXTRACT+1~, EXTRACT+23*, EXTRACT+31
SDTIT	HDRX+1!
SDTIT(	HDR+17
SDTIT(1	HDRX+3, HDRX+5, HDRX+6*
SDTIT(2	HDRX+8*
SDTIT(3	HDRX+8*
>> SDTITL	HINI+6*, HDR+15
SDTY	HDR~, HDR+16, HDR+20, HDRX~, HDRX+2, HDRX+3, HDRX+5, SUBT~, SUBT+1, SUBT+5 , SUBT+9, SUBT+13
SDX	ARRSET+4~, ARRSET+6, ARRSET+7, ARRSET+8, ARRSET+9, CL+5, CL+6, CL+8, CP+7, HDR+13~ , EXTRACT+1~, EXTRACT+12, EXTRACT+26*
SDXM	IHS+1~, HDR+11, EXTRACT+1~, EXTRACT+26*, EXTRACT+33
>> SDY	EXTRACT+25*, EXTRACT+26
U	ORD+5, OE+9, OE+10, OE+11, OE+12, OE+19, OE+25, OE+26, ARRSET+6, ARRSET+9 , CL+4, CL+6, CL+8, CP+3, CP+4, CP+5, HDRX+4
X	IHS+1~, IHS+7, OE+27, HINI+1~, EXTRACT+2~, EXTRACT+5, TIME+4~, TIME+6, TIME+7
X1	IHS+1~, IHS+7, OE+27, HINI+1~, EXTRACT+2~, EXTRACT+5*
X2	IHS+1~, IHS+7, OE+27, HINI+1~, EXTRACT+2~, EXTRACT+5*
Y	HINI+4*, HDR+12, TIME+4~
Y("D"	TIME+6, TIME+8, TIME+12
Y("H"	TIME+7, TIME+9, TIME+12
Y("M"	TIME+7, TIME+10, TIME+12
Y("S"	TIME+7, TIME+11, TIME+12
>> ZTQUEUED	STOP+1
>> ZTSTOP	STOP+1*

Customize PDF page

Package: IHS Changes To Scheduling

Routine: BSDCCR2

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: