Routine: BEXRX

Package	Total	Call Graph
VA Fileman	5	NOW^%DTC (,UPDATE)^DIE IXALL^DIK $$GET1^DIQ ^DIR
IHS VA Utilities	3	^XBKVAR EN^XBNEW EN^XBVK
Outpatient Pharmacy	3	(ASK,PROCESSX,PT,REFILL)^PSOBBC ^PSOLSET PROFILE^PSORX
Kernel	2	^%ZIS $$FMTE^XLFDT
IHS Changes To Scheduling	1	WISD^BSDROUT
IHS Pharmacy Auto Refill System	1	CR^BEXRX7

Package

Total

Call Graph

VA Fileman

NOW^%DTC (,UPDATE)^DIE IXALL^DIK $$GET1^DIQ ^DIR

IHS VA Utilities

^XBKVAR EN^XBNEW EN^XBVK

Outpatient Pharmacy

(ASK,PROCESSX,PT,REFILL)^PSOBBC ^PSOLSET PROFILE^PSORX

Kernel

^%ZIS $$FMTE^XLFDT

IHS Changes To Scheduling

WISD^BSDROUT

IHS Pharmacy Auto Refill System

CR^BEXRX7

Entry Points

Name	Comments	DBIA/ICR reference
EOJCR	;-- kill vars
TSK	;EP - loop the transactiopn file and request charts
BEXEND
DIE	;EP
BEX
CUT()	;check cutoff time and now
END
HDR	;EP - header
IDX	;EP - reindex all x ref upon entry into menu
BEX6
BEX5
BEX4
BEX3
CR(BEXVIEN)	;EP - add a chart request
PIMS53()	;-- check for pims 5.3
START
ADDCR(CLN,PAT,TS,PM)	;-- add a chart request and print a routing slip for pims 5.3
RS(DFN,CI)	;-- print a routine slip
BEXALT	;Menu action entry point to alert user
LKPT(PT,CI,TM)	;-- check to see if patient has chart request already
ADDDPT(CLN,PAT,TS)	;-- add the appointment to the patient file
BEX12
BEX10
GNXT(CI,TM)	;-- get next ien for clinic

External References

Name	Field # of Occurrence
NOW^%DTC	CUT+7
^%ZIS	RS+8
CR^BEXRX7	CR+5
WISD^BSDROUT	ADDCR+21
^DIE	TSK+7, DIE+10
UPDATE^DIE	ADDDPT+10, ADDCR+14
IXALL^DIK	IDX+2
$$GET1^DIQ	ADDCR+17, ADDCR+18, RS+4
^DIR	BEX+1, BEX+3, BEX12+2
ASK^PSOBBC	START+7
PROCESSX^PSOBBC	BEX6+9, END+1
PT^PSOBBC	BEX6+10
REFILL^PSOBBC	BEX6+14
^PSOLSET	START
PROFILE^PSORX	BEX6+13
^XBKVAR	TSK+1
EN^XBNEW	RS+11
EN^XBVK	EOJCR+1, EOJCR+2, EOJCR+3, EOJCR+4
$$FMTE^XLFDT	DIE+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!!?20,"Division: "_$P(^PS(59,PSOSITE,0),"^"),!! Line Location: START+2
Function Call: WRITE	Prompt: !!?7,*7,"There are no telephone refills to process." Line Location: START+6
Function Call: WRITE	Prompt: ! Line Location: BEX+1
Function Call: WRITE	Prompt: !?7,7,7,*7,"Not from this institution.",! Line Location: BEX6+3
Function Call: WRITE	Prompt: !,*7,"Rx data is not on file!",! Line Location: BEX6+6
Function Call: WRITE	Prompt: !,*7,"Rx has already been deleted." Line Location: BEX6+7
Function Call: WRITE	Prompt: !,*7,"Rx has already been entered." Line Location: BEX6+8
Function Call: WRITE	Prompt: !! Line Location: BEX6+13
Function Call: WRITE	Prompt: !!,*7,"REFILL WAS NOT PROCESSED! PLEASE TAKE APPROPRIATE ACTION." Line Location: BEX12+0
Function Call: WRITE	Prompt: !,"Process time is past daily cut off time, refills will not be processed" Line Location: CUT+9
Function Call: WRITE	Prompt: !!,"I need to update files, please stand by.." Line Location: IDX+1
Function Call: WRITE	Prompt: !,?(80-$L(BEXPKG))/2,BEXPKG Line Location: HDR+4
Function Call: WRITE	Prompt: !,?BEXTAB,BEXLOC Line Location: HDR+5
Routine Call	DIE Line Location: ADDDPT+10 ADDCR+14
Routine Call	DIE Line Location: TSK+7 DIE+10
Routine Call	DIR Line Location: BEX+1 BEX+3 BEX12+2
Routine Call	%ZIS Line Location: RS+8

FileNo	Call Tags
^VEXHRX0(19080.1 - [#90350.1]	Classic Fileman Calls
^BEXHRXP - [#90350.2]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUTTSITE(1	CR+12, CR+14
^BEXHRXP - [#90350.2]	CUT+3, CUT+5, CR+19, CR+21, CR+22, CR+23, CR+34, CR+35, CR+36, CR+37 , RS+1
^BEXHRXP("B"	CUT+1, CR+17
^DD("SITE"	START+4, BEX5, BEXALT+2
^DIC(4 - [#4]	HDR+2
^DIC(9.4 - [#9.4]	PIMS53+2, PIMS53+4
^DPT - [#2]	CR+39, CR+56, CR+57, CR+59, ADDDPT+6
^PS(59 - [#59]	START+2, CR+13, CR+15
^PSRX - [#52]	BEX6+6, BEX6+7, BEX6+10, BEX3+1, BEX10
^SC - [#44]	CR+49, CR+50, CR+51, CR+52, CR+54, CR+55, ADDCR+1, ADDCR+7, RS+6, LKPT+2 , LKPT+3, GNXT+2
^SD(409.1 - [#409.1]	CR+58, ADDDPT+2
^VEXHRX(19080	START+6, BEX3, BEX3+1, BEX4, BEX5+1, BEX12, BEXALT+3, BEXALT+4, BEXALT+5
^VEXHRX0(19080.1 - [#90350.1]	CR+9, CR+11, CR+46, TSK+2, TSK+3, DIE+2, DIE+3

Label References

Name	Line Occurrences
$$CR	TSK+4
$$CUT	BEX
$$GNXT	CR+53
$$LKPT	CR+48
$$PIMS53	CR+47
ADDCR	CR+47
ADDDPT	CR+47
BEX12	BEX3+1, BEX5+2
BEX3	BEX6+2, BEX3+1, BEX4, BEX10
BEX5	BEX6+1, BEX3+1
BEX6	BEX6+3, BEX6+6, BEX6+7, BEX6+8, BEX6+10, BEX6+14
BEXEND	BEXALT+3
END	START, START+6, START+7, BEX, BEX+1, BEX+2, BEX+3, BEX6+2
EOJCR	TSK+9
RS	CR+60

Name	Field # of Occurrence
^(1	BEXALT+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	CUT+8
>> %ZIS	RS+8*
BEXANS	START+6, BEX+1, BEX+2, BEX+3, BEX6+1, BEX6+2, BEX3, BEX4, BEX12+2, END+3!
BEXANS2	BEX+3*, BEX10, END+3!
BEXAPTP	CR+58, CR+59, ADDDPT+1~, ADDDPT+2, ADDDPT+9
>> BEXCLNA	CR+34*, CR+38, CR+40, CR+44
>> BEXCLNB	CR+35*, CR+42, CR+43
BEXCLNE	ADDCR+2~, ADDCR+7*, ADDCR+8
>> BEXCLNI	CR+40, CR+43, CR+44*, CR+45, CR+47, CR+48, CR+49, CR+50, CR+51, CR+52 , CR+53, CR+54, CR+55, CR+59, CR+60
BEXCNT	BEXALT+1, BEXALT+5, BEXALT+6, BEXEND!
>> BEXCR	TSK+4*
BEXCRE	LKPT+1!, LKPT+3*, LKPT+4
>> BEXCTR	BEX+4*
>> BEXCUT	CR+36*, CR+42, CR+43
BEXDATE	ADDDPT+1~, ADDCR+2~
BEXDEV	ADDCR+2~, ADDCR+17, ADDCR+18, ADDCR+19, ADDCR+21, RS+4*, RS+5, RS+8
>> BEXEIDT	DIE+8*, DIE+9
BEXERR	ADDDPT+1~, ADDDPT+11, ADDCR+2~, ADDCR+15
BEXFDA	ADDDPT+1~, ADDCR+2~
BEXFDA(	ADDDPT+8, ADDDPT+9, ADDCR+9, ADDCR+10, ADDCR+11, ADDCR+12, ADDCR+13*
BEXFDA(2	ADDDPT+7*
BEXFDA(44	ADDCR+8*
BEXIDA	DIE+2*, DIE+3, DIE+4, DIE+5, DIE+12!
>> BEXIDT	DIE+4*, DIE+6
>> BEXIEN	LKPT+2, LKPT+3, GNXT+2, GNXT+3
BEXIENS	ADDDPT+1~, ADDDPT+3, ADDCR+2~, ADDCR+3
BEXIENS(1	ADDDPT+4, ADDDPT+7, ADDDPT+8, ADDDPT+9, ADDCR+4
BEXIENS(2	ADDDPT+5, ADDCR+5
BEXIENS(3	ADDCR+6*
BEXIIEN	DIE+3*, DIE+9, DIE+12!
>> BEXLOC	HDR+2*, HDR+3, HDR+5
BEXNIDT	DIE+6, DIE+7, DIE+8, DIE+12!
BEXNOW	ADDDPT+1~, ADDCR+2~
BEXNXT	CR+53, CR+54, CR+55, GNXT+1!, GNXT+3, GNXT+4
>> BEXOTM	CR+25, CR+26, CR+27, CR+28, CR+29, CR+43
>> BEXPAT	CR+9*, CR+10, CR+39, CR+47, CR+48, CR+54, CR+56, CR+57, CR+59, CR+60
BEXPATE	ADDDPT+1~, ADDDPT+6*, ADDDPT+7
BEXPIMS	PIMS53+1~, PIMS53+2*, PIMS53+3, PIMS53+4
>> BEXPKG	HDR+1*, HDR+4
>> BEXPM	CR+41, CR+43, CR+47
BEXPPL	END+2!
>> BEXPSITE	CR+13, CR+14, CR+15, CR+16, CR+17
BEXPTRN	BEXALT+1, BEXALT+4, BEXALT+5, BEXEND!
BEXPTRX	BEX+1, BEX+2, BEX6+1, BEX3*, BEX3+1, BEX4, BEX10, BEX5+1, BEX12, END+3!
>> BEXRDA	TSK+2*, TSK+3, TSK+4, TSK+5
>> BEXREFO	CR+37*, CR+46
BEXRX	START+1*, END+2!
>> BEXTAB	HDR+3*, HDR+5
>> BEXTS	CR+11, CR+24, CR+25, CR+30, CR+32, CR+33, CR+43*, CR+47, CR+48, CR+49 , CR+50, CR+51, CR+52, CR+53, CR+54, CR+55, CR+59
>> BEXTSCA	CR+21*, CR+43
>> BEXTSP	CR+30, CR+31, CR+43
>> BEXTSRA	CR+22*, CR+32
>> BEXTSRP	CR+23*, CR+30
BEXVIEN	CR~, CR+5, CR+6, CR+9, CR+11, CR+46
>> BEXVSITE	CR+19*, CR+20
>> BEXVSITO	CR+17*, CR+18, CR+19, CR+21, CR+22, CR+23, CR+34, CR+35, CR+36, CR+37 , ADDCR+17, ADDCR+18, RS+1, RS+4
CI	RS~, RS+6, LKPT~, LKPT+2, LKPT+3, GNXT~, GNXT+2
CLN	ADDDPT~, ADDDPT+8, ADDCR~, ADDCR+1, ADDCR+4, ADDCR+7
DA	TSK+5, DIE+9, DIE+11!
DFN	RS~
>> DGPGM	RS+2*
>> DGQUIET	ADDCR+20*
>> DGUTQND	RS+7*
DIE	TSK+5, TSK+8!, DIE+1, DIE+12!
DIK	IDX+2*, IDX+3!
DIR	BEX+1!, BEX+3!, BEX12+2!, END+3!
DIR("A"	BEX+1, BEX+3, BEX12+2*
DIR("B"	BEX+1, BEX+3
DIR(0	BEX+1, BEX+3, BEX12+2*
>> DIRUT	BEX+1, BEX+3
>> DIV	RS+6*
DR	TSK+6, DIE+9, DIE+11!
DT	BEX5+1, CR+24
DUZ	ADDCR+12
DUZ(2	CUT+1, CR+12, CR+13, CR+14, CR+15, HDR+2
>> IOP	RS+8*
OTM	EOJCR+5!
PAT	ADDDPT~, ADDDPT+4, ADDDPT+6, ADDCR~, ADDCR+1, ADDCR+6, ADDCR+10, ADDCR+21, EOJCR+5!
PM	ADDCR~, ADDCR+16
>> POP	RS+8*
PSOBBC	END+3!
PSOBBC("DFLG"	START+3, BEX6, BEX6+10, BEX5+2, BEX12+1*
PSOBBC("DONE"	BEX6+8, BEX6+14*
PSOBBC("IRXN"	BEX6+4*, BEX6+5, BEX6+6, BEX6+7, BEX6+8, BEX6+10, BEX6+14, BEX3!
PSOBBC("OIRXN"	BEX6+4*
PSOBBC("QFLG"	START+3*, START+7, BEX6+9
PSOBBC1	END+3!
PSOBBC1("FROM"	START+3*
>> PSODFN	BEX6+10
>> PSOFROM	START+5*
>> PSOINST	START+4, START+6, BEX6+3, BEX3, BEX3+1, BEX4, BEX5, BEX5+1, BEX12, BEXALT+2* , BEXALT+3, BEXALT+4, BEXALT+5
>> PSOPAR	START
PSORX	END+2!
PSORX("PSOL"	BEX6+5*
PSOSELSE	BEX6+10*!, BEX6+13!
>> PSOSITE	START+2, BEX10
PT	LKPT~, LKPT+3
>> SDZCV	RS+7*
>> SDZZWI	RS+7*
TM	LKPT~, LKPT+2, LKPT+3, GNXT~, GNXT+2
TS	ADDDPT~, ADDDPT+5, ADDCR~, ADDCR+1, ADDCR+5, ADDCR+9, ADDCR+11, ADDCR+21, EOJCR+5!
TSCA	EOJCR+5!
TSCP	EOJCR+5!
TSM	EOJCR+5!
U	BEX12, CUT+3, CUT+5, CR+8*, CR+9, CR+11, CR+12, CR+14, CR+19, CR+21 , CR+22, CR+23, CR+34, CR+35, CR+36, CR+37, CR+46, CR+54, CR+59, ADDDPT+6 , ADDCR+7, RS+1, RS+6, LKPT+3, TSK+3, HDR+2
>> VAR	RS+2*
>> VCUT	CUT+5*, CUT+6, CUT+8
>> VEXCTR	BEX+4*
>> VEXRX	START+1*
>> VSITE	CUT+3*, CUT+4
>> VSITEO	CUT+1*, CUT+2, CUT+3, CUT+5
X	BEX6+3, BEX6+4, BEX6+9!, BEX4*, END+3!
Y	BEX+2, BEX+3, BEX6+9!, BEX12+2, END+3!

Customize PDF page

Package: IHS Pharmacy Auto Refill System

Routine: BEXRX

Information

Source Information

Call Graph

Call Graph Total: 15

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: