Routine: BSDX25

Package	Total	Call Graph
IHS Changes To Scheduling	4	GETVISIT^BSDAPI4 WISD^BSDROUT $$DIV^BSDU $$SCIEN^BSDU2
Clinical Scheduling for Windows	3	CO^BSDX25A (WISD,WISDW)^BSDX42 WISD^BSDX43
Scheduling	3	$$FIND^SDAM2 ($$HANDLE,AFTER,BEFORE)^SDAMEVT $$GETAPT^SDVSIT2
VA Fileman	3	^%DT (,FILE)^DIE $$GET1^DIQ
IHS Electronic Health Record	1	($$VIS2VSTR,UPDPRV)^BEHOENCX
IHS Patient	1	MOD^AUPNVSIT
IHS VA Utilities	1	^XBKVAR
Kernel	1	($$FMTE,$$HTFM,$$NOW)^XLFDT
M Transfer	1	EVENT^BMXMEVN

Entry Points

Name	Comments	DBIA/ICR reference
CHKEVT(BSDXPAT,BSDXSTART,BSDXSC)	;EP Called by BSDX CHECKIN APPOINTMENT event
BSDXCHK(BSDXAPTID,BSDXCDT)	;
CHECKIN(BSDXY,BSDXAPTID,BSDXCDT,BSDXCC,BSDXPRV,BSDXROU,BSDXVCL,BSDXVFM,BSDXOG,BSDXCR,BSDXPCC,BSDXWHF)	;EP Check in appointment
ERR(ERRNO)	;Error processing
ENDBG	;
CHKEVT3(BSDXRES)	;
FIND(DFN,SDT,SDCL)	; -- return appt ifn for pat ; input: DFN := ifn of pat. ; SDT := appt d/t ; SDCL := ifn of clinic ; output: [returned] := ifn if pat has appt on date/time
ERROR	;
CHECKIND(BSDXY,BSDXAPTID,BSDXCDT,BSDXCC,BSDXPRV,BSDXROU,BSDXVCL,BSDXVFM,BSDXOG,BSDXCR)	;EP
APCHK(BSDXZ,BSDXSC1,BSDXDFN,BSDXCDT,BSDXSTART,BSDXCC,BSDXPRV,BSDXVCL,BSDXVFM,BSDXOG)	;
CHECKOUT(BSDXY,DFN,SDT,SDCODT,BSDXAPTID,VPRV)	;EP Check Out appointment ; Returns BSDXY ; Input -- DFN Patient file IEN ; SDT Appointment Date/Time in FM format ; SDCODT Date/Time of Check Out FM FORMAT [REQUIRED] ; BSDXAPTID - Appointment ID ; VPRV - V Provider ; called by BSDX CHECKOUT APPOINTMENT remote procedure
CANCHKIN(DFN,SDCL,SDT)	; Logic to cancel a checkin if the checkin date/time is passed in as '@' ; input: DFN := ifn of patient ; SDCL := clinic# ; SDT := appt d/t
CANCKOUT(BSDXY,BSDXAPTID)	;EP Check Out appointment ; Returns BSDXY ; Input -- BSDXAPTID - Appointment ID ; called by BSDX CANCEL CHECKOUT APPT remote procedure
CHKEVTD(BSDXPAT,BSDXSTART,BSDXSC)	;EP Called by BSDX CHECKIN APPOINTMENT event
VALID(DFN,SDCL,SDT,SDDA)	; -- return valid appt. ; **NOTE: For speed consideration the ^SC and ^DPT nodes must be ; check to see they exist prior to calling this entry point. ; input: DFN := ifn of pat. ; SDT := appt d/t ; SDCL := ifn of clinic ; SDDA := ifn of appt ; output: [returned] := 1 for valid appt., 0 for not valid
CHKEVT1(BSDXRES,BSDXSTART,BSDXPAT,BSDXSTAT)	;

External References

Name	Field # of Occurrence
^%DT	ENDBG+17, CHECKOUT+19, CHECKOUT+22
MOD^AUPNVSIT	CANCKOUT+35
$$VIS2VSTR^BEHOENCX	APCHK+64
UPDPRV^BEHOENCX	APCHK+65
EVENT^BMXMEVN	CHKEVT3+8
GETVISIT^BSDAPI4	APCHK+54, APCHK+58
WISD^BSDROUT	ENDBG+45
$$DIV^BSDU	ENDBG+44
$$SCIEN^BSDU2	APCHK+45, CANCKOUT+26
CO^BSDX25A	CHECKOUT+44
WISD^BSDX42	ENDBG+40
WISDW^BSDX42	ENDBG+42
WISD^BSDX43	ENDBG+41
^DIE	ENDBG+38, APCHK+51, CANCKOUT+23, CANCKOUT+28, CANCKOUT+35, CANCKOUT+39
FILE^DIE	BSDXCHK+4, CANCHKIN+11
$$GET1^DIQ	ENDBG+43, ENDBG+44, APCHK+27, APCHK+28, APCHK+30, APCHK+52, CANCKOUT+31
$$FIND^SDAM2	APCHK+21
$$HANDLE^SDAMEVT	CANCHKIN+9
AFTER^SDAMEVT	CANCHKIN+12
BEFORE^SDAMEVT	CANCHKIN+10
$$GETAPT^SDVSIT2	CANCKOUT+30
^XBKVAR	ENDBG+7, CHECKOUT+9, CANCKOUT+5
$$FMTE^XLFDT	CHECKOUT+30
$$HTFM^XLFDT	CHECKOUT+25
$$NOW^XLFDT	ENDBG+19, APCHK+50

Used in RPC

RPC Name	Call Tags
BSDX CHECKIN APPOINTMENT	CHECKIN
BSDX CHECKOUT APPOINTMENT	CHECKOUT
BSDX CANCEL CHECKOUT APPT	CANCKOUT

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^SCE - [#409.68]	GET1^DIQ
^AUPNVSIT - [#9000010]	Classic Fileman Calls
^APCCCTRL - [#9001000]	GET1^DIQ
^APCDSITE - [#9001001.2]	GET1^DIQ
^BSDXAPPT - [#9002018.4]	Classic Fileman Calls, GET1^DIQ
^BSDSC - [#9009017.2]	GET1^DIQ
^BSDPAR - [#9009020.2]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TRAP"	ENDBG+7, CHECKOUT+9, CANCKOUT+5
^BSDXAPPT - [#9002018.4]	ENDBG+13, ENDBG+21, CHKEVT1+9, CHECKOUT+15, CHECKOUT+28, CANCKOUT+11, CANCKOUT+12
^BSDXAPPT("ARSRC"	CHKEVT1+7, CHKEVT1+8
^BSDXRES - [#9002018.1]	ENDBG+28, ENDBG+29, CHKEVT3+4, CHECKOUT+33, CANCKOUT+17
^BSDXRES("ALOC"	CHKEVT+10, CHKEVTD+10
^BSDXRES("ASSOC"	CHKEVT+12
^BSDXTMP($J	ENDBG+9!, ENDBG+11, ENDBG+48, ENDBG+50, CHECKOUT+11!, CHECKOUT+13, CHECKOUT+52, CHECKOUT+54, CANCKOUT+7!, CANCKOUT+9* , CANCKOUT+41, CANCKOUT+43, ERR+4, ERR+6
^BXDXRES("ASSOC"	CHKEVT+12
^DIC(19 - [#19]	APCHK+44
^DPT - [#2]	APCHK+42, FIND+7, VALID+8
^SC - [#44]	ENDBG+32, FIND+7, VALID+8

Label References

Name	Line Occurrences
$$CHKEVT1	CHKEVT+10, CHKEVT+12
$$FIND	CANCHKIN+6
$$VALID	FIND+7
APCHK	ENDBG+37
BSDXCHK	ENDBG+34, CHKEVT1+11
CANCHKIN	ENDBG+36
CHKEVT3	CHKEVT+11, CHKEVT+13, CHKEVTD+11
CHKEVTD	CANCHKIN+13
ERR	ENDBG+12, ENDBG+13, ENDBG+18, ENDBG+28, ENDBG+32, ENDBG+44, CANCHKIN+8, CHECKOUT+14, CHECKOUT+15, CHECKOUT+25 , CHECKOUT+30, CHECKOUT+48, CANCKOUT+10, CANCKOUT+11, CANCKOUT+18, ERROR+1

Naked Globals

Name	Field # of Occurrence
^(	FIND+7
^(0	FIND+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	ENDBG+17, CHECKOUT+17
APIERR	CHECKOUT+42!, CHECKOUT+43*, CHECKOUT+44, CHECKOUT+46, CHECKOUT+50
APIERR(	CHECKOUT+48
>> APS	CANCKOUT+13*, CANCKOUT+37, CANCKOUT+38
>> APTN	APCHK+21*
>> AUPNVSIT	CANCKOUT+35*
BSDXAPPT	CHKEVT1+4~, CHKEVT1+8*, CHKEVT1+9, CHKEVT1+11
BSDXAPTID	CHECKIND~, CHECKIN~, ENDBG+12, ENDBG+13, ENDBG+21, ENDBG+34, ENDBG+38, ENDBG+43, BSDXCHK~, BSDXCHK+2 , CHECKOUT~, CHECKOUT+14, CHECKOUT+15, CHECKOUT+28, CHECKOUT+44, CANCKOUT~, CANCKOUT+10, CANCKOUT+11, CANCKOUT+12, CANCKOUT+21
BSDXC	APCHK+3~, APCHK+54, APCHK+58
BSDXC("ADT"	APCHK+34*
BSDXC("APCDAPPT"	APCHK+42*, APCHK+43!
BSDXC("APCDOPT"	APCHK+44*
BSDXC("APPT D	ATE" , APCHK+17*, APCHK+21, APCHK+34, APCHK+42, APCHK+45, APCHK+48, APCHK+49
BSDXC("CALLER"	APCHK+53*
BSDXC("CDT"	APCHK+18*
BSDXC("CLINIC	CODE" , APCHK+13*
BSDXC("CLN"	APCHK+33*
BSDXC("FORCE	ADD" , APCHK+57*
BSDXC("HOS LO	C" , APCHK+11*, APCHK+21, APCHK+33, APCHK+45, APCHK+48, APCHK+49, APCHK+52
BSDXC("PAT"	APCHK+9*, APCHK+21, APCHK+42, APCHK+45, APCHK+64, APCHK+65
BSDXC("PROVIDER"	APCHK+15*, APCHK+61, APCHK+65
BSDXC("SITE"	APCHK+26*, APCHK+27, APCHK+28, APCHK+30
BSDXC("SRV CA	T" , APCHK+30, APCHK+31, APCHK+43
BSDXC("TIME R	ANGE" , APCHK+24*
BSDXC("USR"	APCHK+19*, APCHK+50
BSDXC("VISIT	DATE" , APCHK+25, APCHK+50, TYPE" , APCHK+27, APCHK+28, APCHK+29
BSDXCAN	ENDBG+2~, ENDBG+5, ENDBG+15, ENDBG+18, ENDBG+34, ENDBG+36
BSDXCC	CHECKIND~, CHECKIN~, ENDBG+37, APCHK~, APCHK+13
BSDXCDT	CHECKIND~, CHECKIN~, ENDBG+15, ENDBG+16, ENDBG+17, ENDBG+18, ENDBG+19, ENDBG+20, ENDBG+34, ENDBG+37 , ENDBG+40, ENDBG+41, ENDBG+42, BSDXCHK~, BSDXCHK+3, APCHK~, APCHK+18, APCHK+25
BSDXCR	CHECKIND~, CHECKIN~, ENDBG+43
>> BSDXDEV	ENDBG+44*, ENDBG+45
BSDXDFN	APCHK~, APCHK+9
>> BSDXERR	ERR+1, ERR+2, ERR+4
>> BSDXFDA(	BSDXCHK+3*
BSDXFOUND	CHKEVT+6~, CHKEVT+9, CHKEVT+10, CHKEVT+11, CHKEVT+12, CHKEVT+13, CHKEVT1+4~, CHKEVT1+5, CHKEVT1+6, CHKEVT1+7 , CHKEVT1+8, CHKEVT1+10, CHKEVT1+11, CHKEVT1+12, CHKEVTD+7~, CHKEVTD+12
BSDXI	ENDBG+1~, ENDBG+8, ENDBG+47, ENDBG+48, ENDBG+49, ENDBG+50, CHECKOUT+10, CHECKOUT+48, CHECKOUT+51, CHECKOUT+52 , CHECKOUT+53, CHECKOUT+54, CANCKOUT+6, CANCKOUT+40, CANCKOUT+41, CANCKOUT+42, CANCKOUT+43, ERR+3, ERR+4, ERR+5 , ERR+6
BSDXID	ENDBG+1~
BSDXIEN	APCHK+62~, APCHK+63*, APCHK+64
BSDXIENS	ENDBG+1~, BSDXCHK+2*, BSDXCHK+3
BSDXNOD	ENDBG+1~, ENDBG+21, ENDBG+22, ENDBG+23, ENDBG+24, ENDBG+26, ENDBG+29, ENDBG+30, ENDBG+32, CHKEVT1+9* , CHKEVT1+10, CHECKOUT+28, CHECKOUT+30, CHECKOUT+32, CHECKOUT+33, CHECKOUT+34, CANCKOUT+12*, CANCKOUT+13, CANCKOUT+14, CANCKOUT+15 , CANCKOUT+16, CANCKOUT+18
BSDXNOEV	ENDBG+2~, ENDBG+4*, CHKEVT+4, CHKEVTD+5
BSDXOG	CHECKIND~, CHECKIN~, ENDBG+37, APCHK~, APCHK+40
BSDXOUT	APCHK+3~, APCHK+54, APCHK+58
BSDXOUT(0	APCHK+56, APCHK+63
BSDXPAT	CHKEVT~, CHKEVT+10, CHKEVT+12, CHKEVT1~, CHKEVT1+10, CHKEVTD~
BSDXPATID	ENDBG+1~, ENDBG+23*, ENDBG+36, ENDBG+37, ENDBG+45
BSDXPCC	CHECKIN~, ENDBG+41
BSDXPRV	CHECKIND~, CHECKIN~, ENDBG+37, ENDBG+38, APCHK~, APCHK+15
BSDXRES	CHKEVT+6~, CHKEVT+10, CHKEVT+11, CHKEVT+12, CHKEVT+13, CHKEVT1~, CHKEVT1+6, CHKEVT1+7, CHKEVT1+8, CHKEVT3~ , CHKEVT3+4, CHKEVTD+7~, CHKEVTD+10, CHKEVTD+11, CHECKOUT+32, CHECKOUT+33
BSDXRESN	CHKEVT3+3~, CHKEVT3+4, CHKEVT3+5, CHKEVT3+6, CHKEVT3+8
BSDXROU	CHECKIND~, CHECKIN~, ENDBG+40
BSDXSC	CHKEVT~, CHKEVT+5, CHKEVT+10, CHKEVT+12, CHKEVTD~, CHKEVTD+6, CHKEVTD+10
BSDXSC1	ENDBG+26, ENDBG+28, ENDBG+29, ENDBG+30, ENDBG+32, ENDBG+36, ENDBG+37, APCHK~, APCHK+11
BSDXSTART	ENDBG+1~, ENDBG+24*, ENDBG+36, ENDBG+37, ENDBG+45, APCHK~, APCHK+17, CHKEVT~, CHKEVT+10, CHKEVT+12 , CHKEVT1~, CHKEVT1+7, CHKEVT1+8, CHKEVTD~
BSDXSTAT	CHKEVT+6~, CHKEVT+7, CHKEVT+8, CHKEVT+10, CHKEVT+12, CHKEVT1~, CHKEVT1+11, CHKEVTD+7~, CHKEVTD+8, CHKEVTD+9 , CHKEVTD+10
BSDXVCL	CHECKIND~, CHECKIN~, ENDBG+37, APCHK~, APCHK+38
BSDXVEN	ENDBG+1~
BSDXVEN("CLINIC"	APCHK+38*
BSDXVEN("FORM"	APCHK+39*
BSDXVEN("OUTGUIDE"	APCHK+40*
BSDXVFM	CHECKIND~, CHECKIN~, ENDBG+37, APCHK~, APCHK+39
BSDXVSTR	APCHK+62~, APCHK+64*, APCHK+65
BSDXWHF	CHECKIN~, ENDBG+42
BSDXY	CHECKIND~, CHECKIN~, ENDBG+10, CHECKOUT~, CHECKOUT+12, CANCKOUT~, CANCKOUT+8*
BSDXZ	ENDBG+1~, ENDBG+28, ENDBG+37, APCHK~
>> CNT	CHECKOUT+47, CHECKOUT+48
DA	ENDBG+1~, ENDBG+38, APCHK+47!, APCHK+49, CANCKOUT+21, CANCKOUT+26, CANCKOUT+33, CANCKOUT+38
DA(1	APCHK+49, CANCKOUT+26
DA(2	APCHK+49, CANCKOUT+26
DFN	ENDBG+22, ENDBG+40, ENDBG+41, ENDBG+42, CANCHKIN~, CANCHKIN+6, CANCHKIN+9, CANCHKIN+10, CANCHKIN+12, CANCHKIN+13 , FIND~, FIND+7, VALID~, VALID+8, CHECKOUT~, CHECKOUT+44, CANCKOUT+14, CANCKOUT+26, CANCKOUT+30
>> DGQUIET	ENDBG+45*
DIE	ENDBG+38, APCHK+47!, APCHK+48, CANCKOUT+20, CANCKOUT+25, CANCKOUT+33, CANCKOUT+38
DIK	ENDBG+1~
DR	ENDBG+38, APCHK+47!, APCHK+50, CANCKOUT+22, CANCKOUT+27, CANCKOUT+34, CANCKOUT+38
DUZ	APCHK+19, CANCKOUT+22
DUZ(2	APCHK+26
EMSG	ENDBG+2~, ENDBG+3*, ENDBG+40, ENDBG+41, ENDBG+42, ENDBG+48
ERR	CANCHKIN+14!, CHECKOUT+48
ERRNO	ERR~, ERR+1, ERR+2
FDA	CANCHKIN+14!
FDA(	CANCHKIN+11*
IEN	APCHK+3~, APCHK+45*, APCHK+49
>> RES	CANCKOUT+16*, CANCKOUT+17
>> SDASK	CHECKOUT+37*, CHECKOUT+44
SDATA	CANCHKIN+9~*, CANCHKIN+10, CANCHKIN+12
SDATA("AFTER"	CHKEVT+8, CHKEVTD+9
SDCIHDL	CANCHKIN+9~*, CANCHKIN+10, CANCHKIN+12
SDCL	CANCHKIN~, CANCHKIN+6, CANCHKIN+9, CANCHKIN+10, CANCHKIN+11, CANCHKIN+12, CANCHKIN+13, FIND~, FIND+7, VALID~ , VALID+8, CHECKOUT+34, CHECKOUT+44, CANCKOUT+17, CANCKOUT+25, CANCKOUT+26, CANCKOUT+30
>> SDCOACT	CHECKOUT+39*, CHECKOUT+44
>> SDCOALBF	CHECKOUT+38*, CHECKOUT+44
SDCODT	CHECKOUT~, CHECKOUT+21, CHECKOUT+24*, CHECKOUT+25, CHECKOUT+30, CHECKOUT+44
SDDA	CANCHKIN+5~, CANCHKIN+6, CANCHKIN+8, CANCHKIN+9, CANCHKIN+10, CANCHKIN+11, CANCHKIN+12, VALID~, VALID+8, CHECKOUT+36 , CHECKOUT+44
>> SDLNE	CHECKOUT+40*, CHECKOUT+44
>> SDN	CANCKOUT+26*
>> SDOE	CANCKOUT+30*, CANCKOUT+31, CANCKOUT+38
>> SDQUIET	CHECKOUT+41*, CHECKOUT+44
SDT	CANCHKIN~, CANCHKIN+6, CANCHKIN+9, CANCHKIN+10, CANCHKIN+11, CANCHKIN+12, CANCHKIN+13, FIND~, FIND+7, VALID~ , VALID+8, CHECKOUT~, CHECKOUT+18, CHECKOUT+20, CHECKOUT+44, CANCKOUT+15, CANCKOUT+25, CANCKOUT+26, CANCKOUT+30
>> SDV	CANCKOUT+31*, CANCKOUT+32, CANCKOUT+33, CANCKOUT+35
U	ENDBG+22, ENDBG+23, ENDBG+24, ENDBG+26, ENDBG+28, ENDBG+30, ENDBG+32, APCHK+42, CANCHKIN+9, VALID+8 , CHKEVT1+10, CHECKOUT+30, CHECKOUT+32, CHECKOUT+34, CANCKOUT+13, CANCKOUT+14, CANCKOUT+15, CANCKOUT+16, CANCKOUT+17, CANCKOUT+18
VPRV	CHECKOUT~, CHECKOUT+44
X	ENDBG+7, ENDBG+17, CANCHKIN+9~, CHECKOUT+9, CHECKOUT+18, CHECKOUT+21, CANCKOUT+5
Y	ENDBG+17, FIND+6~, FIND+7*, FIND+8, CHECKOUT+20, CHECKOUT+24

Customize PDF page

Package: Clinical Scheduling for Windows

Routine: BSDX25

Information

Source Information

Call Graph

Call Graph Total: 18

Entry Points

External References

Used in RPC

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: