Routine: BSDU

Package	Total	Call Graph
VA Fileman	4	DW^%DTC ^DIC (FILE,UPDATE)^DIE $$GET1^DIQ
IHS Changes To ADT	2	$$READ^BDGF $$NAMEPRT^BDGF2
IHS Patient	1	($$AGE,$$SEX)^AUPNPAT
Kernel	1	$$REPEAT^XLFSTR
Registration	1	(CLINIC,FIRST)^VAUTOMA
Scheduling	1	ASK2^SDDIV

Package	Total	Caller Graph
IHS Changes To Scheduling	55	BSDAIU BSDAL BSDAL0 BSDAL1 BSDAL2 BSDAMR2 BSDAMR3 BSDAMR4 BSDAPI2 BSDAPL BSDAPP BSDC BSDCCR0 BSDCF BSDCHKIN BSDCLA BSDCLAV BSDCP BSDCRL BSDCVC BSDDAM BSDDPA BSDFORM BSDFRL BSDHS BSDLCA BSDLCA1 BSDLT BSDLTP BSDM0 BSDMON BSDNAA BSDNS2 BSDNXAA BSDOAS BSDPC BSDPOST BSDREG BSDRFC BSDROUT BSDROUT0 BSDROUT1 BSDROUT2 BSDROUTQ BSDTOD BSDU2 BSDV BSDWKR1 BSDWKR2 BSDWKR3 BSDWKR4 BSDWKR6 BSDWKR7 BSDWKR8 BSDWLE
Scheduling	22	SCRPW17 SDAM3 SDAMO SDAMWI SDB SDC SDCLAV SDCLAV0 SDCLDOW SDCWL SDLTP SDM SDM1 SDM2 SDM3 SDMM1 SDMULT SDNOS SDNOS1 SDSCE SDUNC SDVSIT
IHS Changes To ADT	11	BDGCENI BDGCRB BDGF2 BDGH02 BDGICE2 BDGICF1 BDGICR2 BDGICS4 BDGICSET BDGP1004 BDGPCCEL
Clinical Scheduling for Windows	6	BSDX07 BSDX25 BSDX36 BSDX40 BSDX42 BSDX43
IHS Emergency Dept Dashboard	1	BEDDPRT
Mental Health Social Services	1	AMHGRAP
Patient Care Component	1	APCDCAF6
Registration	1	VAUTOMA

Entry Points

Name	Comments	DBIA/ICR reference
DIV()	;EP; -- returns division ien for user
MOVBKUSR(DUZ,CLINIC)	;EP; returns 1 if user has master overbook access to clinic
PAD(D,L)	;EP -- SUBRTN to pad length of data ; -- D=data L=length
SP(N)	; -- SUBRTN to pad N number of spaces
DIVNM(D)	;EP; -- returns division name for division sent
ACTV(CLINIC,DATE)	;PEP; -- returns 1 if clinic is active for date
PRIN(CLINIC)	;PEP -- returns name of clinic's principal clinic
GETTAX(TNI)	;-- get taxonomy name
INACTVDT(CLINIC)	;PEP; -- returns date clinic was inactivated
EXPNDPC(BSDTNI,ARRAY)	;EP; expands array if any are principal clinics
OWNER(CLINIC,USER)	;EP ; -- returns 1 if user is clinic's owner or no owners assigned
TAX(ARRAY,TNI)	;-- get taxonomy name
HSPRINT(CLINIC,MODE)	;EP; -- returns data on printing HS and its type ; MODE="I" for return internal values
PRV(CLINIC)	;EP; -- returns default provider for clinic ; Y returns as ien^provider name
CLNCODE(CLINIC)	;PEP -- returns clinic code number and name ; if you want only the code, add + to the result
TEAM(CLINIC)	;EP; -- returns team associated with this clinic ; Y returns as ien^team name
PC(CLINIC)	;PEP; -- returns IEN for clinic's principal clinic
LEGEND(ARRAY)	;EP; -- returns legend explaining month-at-a-glance display
FAC(CLINIC)	;EP; -- returns institution for clinic based on division
OVRBKUSR(DUZ,CLINIC)	;EP; returns 1 if user has overbook access to clinic
OBLEVL(DUZ,CLINIC)	;EP; returns M or R as overbok level for user for clinic
FINDCL(BSDX,TYPE,MODE)	;EP; -- sets array of clinics for provider or team ; returns BSDCL array with clinic name and then ien ; BSDX=IEN of provider or team ^ provider or team name ; TYPE="V" for provider; "T" for team
INACTMSG()	;EP; -- returns message to display if clinic inactivated ; called by code that sets DIC("W")
DIVC(CLINIC)	;EP; -- returns division for clinic
DOW(CLINIC)	;EP; -- returns list of days clinic meets ; borrowed code from VA routine SDCP
PCASK(BSDTNI,BSDTYPE)	;EP; get provider or team (with associated clinics) ; if BSDTNI=1 array is VAUTC(clinic name)=ien ; if BSDTNI=2 array is VAUTC(clinic ien)=name ; BSDTYPE="V" for provider or "T" for team
CLINIC(BSDTNI,BSDNALL,BSDDIV)	;EP; get clinic choices-includes principal clinic groups ;IHS/ITSC/LJF 4/21/2004 ; if BSDTNI=1 array is VAUTC(clinic name)=ien ; if BSDTNI=2 array is VAUTC(clinic ien)=name ; if BSDNALL is set to 1, don't ask for all clinics or expand principal cln ; if BSDDIV is set to 1, assume DIV is set for division and don't ask again;IHS/ITSC/LJF
CONF()	;EP; -- returns confidential warning
GREETING(LETTER,PAT)	;EP; -- returns letter salutation
NONCOUNT(CLINIC)	;EP; --returns statement if non-count clinic
CLN(SUB2,MODE)	; sets clinic array based on provider

External References

Name	Field # of Occurrence
DW^%DTC	DOW+4
$$AGE^AUPNPAT	GREETING+4
$$SEX^AUPNPAT	GREETING+8
$$READ^BDGF	CLINIC+22, CLINIC+28
$$NAMEPRT^BDGF2	GREETING+11
^DIC	GETTAX+2, TAX+4
FILE^DIE	TAX+12
UPDATE^DIE	TAX+18
$$GET1^DIQ	CLN+4, CLN+5, DIVNM+1, DIVC+1, FAC+2, ACTV+1, INACTVDT+1, PRV+5, TEAM+9, OWNER+3 , PRIN+1, PC+1, CLNCODE+2, CLNCODE+3, NONCOUNT+2, NONCOUNT+3, HSPRINT+4, HSPRINT+5, GREETING+4, GREETING+7
ASK2^SDDIV	CLINIC+14
CLINIC^VAUTOMA	CLINIC+25
FIRST^VAUTOMA	PCASK+11
$$REPEAT^XLFSTR	PAD+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ
^DIC(40.7 - [#40.7]	GET1^DIQ
^DG(40.8 - [#40.8]	GET1^DIQ
^VA(407.5 - [#407.5]	GET1^DIQ
^SC - [#44]	GET1^DIQ
^ATXAX - [#9002226]	Classic Fileman Calls
^BSDSC - [#9009017.2]	GET1^DIQ
^BSDPCT - [#9009017.5]	GET1^DIQ
^BSDPAR - [#9009020.2]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ATXAX - [#9002226]	GETTAX+6, GETTAX+8
^BSDPCT - [#9009017.5]	FINDCL+13, FINDCL+14
^BSDPCT("AB"	TEAM+6
^BSDSC - [#9009017.2]	OWNER+4, OBLEVL+2
^BSDSC("AB"	OWNER+5, OWNER+6
^BSDSC("AOV"	OVRBKUSR+1, OBLEVL+1
^DG(40.8 - [#40.8]	DIV+2
^SC - [#44]	EXPNDPC+5, EXPNDPC+6, ACTV+2, PRV+3, PRV+4, DOW+3, DOW+4, GETTAX+9, GETTAX+10
^SC("AIHSDPR"	CLN+3
^SC("AIHSPC"	EXPNDPC+4
^SC("B"	TAX+17
^XUSEC("SDMOB"	MOVBKUSR+1
^XUSEC("SDOB"	OVRBKUSR+1
^XUSEC("SDZAC"	OWNER+2

Label References

Name	Line Occurrences
$$DIV	GREETING+7
$$DIVC	FAC+1
$$DIVNM	CLINIC+13
$$GETTAX	CLINIC+23
$$OBLEVL	MOVBKUSR+1
$$PAD	LEGEND+2, LEGEND+3, LEGEND+5, SP+1
$$PC	OVRBKUSR+1, MOVBKUSR+1
$$PRV	TEAM+4
$$SP	LEGEND+4, LEGEND+6
CLN	FINDCL+7, FINDCL+14
EXPNDPC	CLINIC+33
FINDCL	PCASK+14
TAX	CLINIC+30

Naked Globals

Name	Field # of Occurrence
^(	DOW+3
^("I"	ACTV+2
^(1	DOW+3, DOW+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AFDA	TAX+15~
AFDA(	TAX+17*
AFERR	TAX+15~
AFIENS	TAX+15~, TAX+16*, TAX+17
AFIENS(2	TAX+19
ARRAY	EXPNDPC~, LEGEND~, TAX~
ARRAY(	EXPNDPC+2, EXPNDPC+3, EXPNDPC+5, EXPNDPC+6, TAX+14
ARRAY(1	LEGEND+1*
ARRAY(2	LEGEND+2*
ARRAY(3	LEGEND+3*
ARRAY(4	LEGEND+4*
ARRAY(5	LEGEND+5*
ARRAY(6	LEGEND+6*
>> ATXFLG	TAX+2*
BDA	TAX+13~, TAX+14*, TAX+17
BSDDIV	CLINIC~, CLINIC+10
BSDNALL	CLINIC~, CLINIC+16, CLINIC+33
BSDP	FINDCL+12~, FINDCL+13*, FINDCL+14
BSDQ	CLINIC+5!, CLINIC+14, CLINIC+25, PCASK+5!, PCASK+11*
BSDTAX	CLINIC+20~, CLINIC+23*, CLINIC+24, CLINIC+25, CLINIC+27
BSDTAXE	CLINIC+29~
>> BSDTAXYN	CLINIC+21
BSDTNI	CLINIC~, CLINIC+23, CLINIC+25, CLINIC+30, CLINIC+33, EXPNDPC~, EXPNDPC+3, EXPNDPC+5, EXPNDPC+6, PCASK~ , PCASK+14
BSDTT	PCASK+5!, PCASK+15
BSDTT(	PCASK+13, PCASK+14
BSDTYPE	PCASK~, PCASK+6, PCASK+7, PCASK+9, PCASK+10, PCASK+14
BSDX	FINDCL~, FINDCL+7, FINDCL+13, FINDCL+14
CLINIC	DIVC~, DIVC+1, FAC~, FAC+1, ACTV~, ACTV+1, ACTV+2, INACTVDT~, INACTVDT+1, PRV~ , PRV+3, PRV+4, TEAM~, TEAM+4, OWNER~, OWNER+3, OWNER+4, OWNER+5, OVRBKUSR~, OVRBKUSR+1 , MOVBKUSR~, MOVBKUSR+1, OBLEVL~, OBLEVL+1, OBLEVL+2, PRIN~, PRIN+1, PC~, PC+1, CLNCODE~ , CLNCODE+2, NONCOUNT~, NONCOUNT+2, NONCOUNT+3, DOW~, DOW+3, DOW+4, HSPRINT~, HSPRINT+4, HSPRINT+5
CNT	GETTAX+4~, GETTAX+5, GETTAX+7
D	DIVNM~, DIVNM+1, PAD~, PAD+2
DATA	GETTAX+4~, GETTAX+8*, GETTAX+9, GETTAX+10
DATE	ACTV~, ACTV+2
DAYS	DOW+2~, DOW+5*, DOW+6
DIC	PCASK+4~, PCASK+6, GETTAX+1, GETTAX+11!, TAX+3*
DIC("A"	GETTAX+1, TAX+3
DIC("S"	PCASK+9, PCASK+10, GETTAX+1*
DIC(0	GETTAX+1, TAX+3
>> DIV	CLINIC+11, CLINIC+12, CLINIC+13
>> DLAYGO	TAX+2*
DOW	DOW+2~
DOW(	DOW+3!, DOW+4, DOW+5
DT	DOW+3, DOW+4, TAX+10
DUZ	OWNER+2, OVRBKUSR~, OVRBKUSR+1, MOVBKUSR~, MOVBKUSR+1, OBLEVL~, OBLEVL+1
DUZ(2	DIV+2
FDA	TAX+7~
FDA(9002226	TAX+9, TAX+10, TAX+11*
FERR	TAX+7~
FIENS	TAX+7~, TAX+8*, TAX+9, TAX+10, TAX+11
L	DOW+2~, DOW+3, DOW+4, PAD~, PAD+2
LETTER	GREETING~, GREETING+4
LINE	GREETING+1~, GREETING+2, GREETING+5, GREETING+8, GREETING+11, GREETING+12
M	DOW+2~, DOW+3, DOW+5
>> MARK	TAX+19*
MODE	FINDCL~, FINDCL+7, FINDCL+14, CLN~, CLN+4, CLN+5, HSPRINT~, HSPRINT+3*, HSPRINT+5, HSPRINT+6
N	SP~, SP+1
PAT	GREETING~, GREETING+4, GREETING+8, GREETING+11
>> S	HSPRINT+4*
SUB2	CLN~, CLN+3
TAXE	TAX+1~, TAX+6*, TAX+8, TAX+16
TDA	GETTAX+4~, GETTAX+6*, GETTAX+8
TNI	GETTAX~, GETTAX+9, GETTAX+10, TAX~, TAX+17
TYPE	FINDCL~, FINDCL+7
U	EXPNDPC+5, EXPNDPC+6, PCASK+14, FINDCL+14, ACTV+2, PRV+4, PRV+5, TEAM+9, OBLEVL+2, DOW+5 , HSPRINT+6, GETTAX+9, GETTAX+10
USER	OWNER~, OWNER+5, OWNER+6
VAUTC	CLINIC+24, CLINIC+30, CLINIC+33, PCASK+5!, PCASK+15
VAUTC(	CLN+4, CLN+5, GETTAX+9, GETTAX+10
VAUTC(""	CLINIC+27
VAUTD	CLINIC+9!, CLINIC+12, CLINIC+13, CLINIC+14
VAUTD(	CLINIC+13*
>> VAUTNALL	CLINIC+16*
VAUTNI	CLINIC+25, PCASK+4~, PCASK+8
VAUTSTR	PCASK+4~, PCASK+7*
VAUTVB	PCASK+4~, PCASK+8*
X	EXPNDPC+1~, EXPNDPC+2, EXPNDPC+3, PCASK+13~, PCASK+14, CLN+1~, CLN+2, CLN+3, CLN+4, CLN+5 , DIVNM+1~, FAC+1~, FAC+2, PRV+2~, PRV+3, PRV+4, TEAM+2~, TEAM+4, TEAM+6, OWNER+3~* , OWNER+4, OWNER+6, OBLEVL+1~, OBLEVL+2, PRIN+1~, PRIN+2, CLNCODE+2~, CLNCODE+3, NONCOUNT+1~, NONCOUNT+2 , NONCOUNT+4, NONCOUNT+5, NONCOUNT+6, DOW+2~, DOW+4, HSPRINT+2~, HSPRINT+4, HSPRINT+6
Y	CLINIC+14, CLINIC+24, CLINIC+25, CLINIC+31, EXPNDPC+1~, EXPNDPC+3, EXPNDPC+4, PCASK+11, PCASK+13~, PCASK+14 , PRV+2~, PRV+4, PRV+5, PRV+6, PRV+7, TEAM+2~, TEAM+6, TEAM+9, NONCOUNT+1~, NONCOUNT+3* , NONCOUNT+4, DOW+2~, DOW+4, HSPRINT+2~, HSPRINT+5*, HSPRINT+6, GETTAX+3, GETTAX+6, GETTAX+8, GETTAX+12 , TAX+5, TAX+6
Z	EXPNDPC+1~, EXPNDPC+4*, EXPNDPC+5, EXPNDPC+6

Customize PDF page

Package: IHS Changes To Scheduling

Routine: BSDU

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 98

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: