Routine: BEXRX7

Information

BEXRX7 ;cmi/anch/maw - BEX Audiocare Refill Driver - Pharmacy Version 7 Only [ 06/15/2010 9:18 PM ] ; 04 Dec 2015 8:08 AM

Source Information

Source file <BEXRX7.m>

Call Graph

Call Graph Total: 17

Package	Total	Call Graph
VA Fileman	6	NOW^%DTC ^DIC (,FILE,UPDATE)^DIE IXALL^DIK $$GET1^DIQ ^DIR
IHS VA Utilities	3	^XBKVAR EN^XBNEW EN^XBVK
Outpatient Pharmacy	3	(ASK,PROCESSX,PT,REFILL)^PSOBBC (,FINAL)^PSOLSET PROFILE^PSORX1
Kernel	2	^%ZIS ($$FMTE,$$NOW)^XLFDT
IHS Changes To Scheduling	1	WISD^BSDROUT
IHS Pharmacy Auto Refill System	1	($$CHECK,CHANGE,HOLD)^BEXSITE
Pharmacy Data Management	1	(PSOL,PSOUL)^PSSLOCK

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
IHS Pharmacy Auto Refill System	1	BEXRX

Entry Points

Name	Comments	DBIA/ICR reference
EOJCR	;-- kill vars
ULK	;
TSK	;EP - loop trans file and request charts
BEXEND
DIE	;EP
MARK(BEXRDA)	;EP - mark entries as completed
BEX
CUT()	;check cutoff time and now
END
HDR	;EP
IDX	;EP - reindex all x ref upon entry into menu
BEX6
BEX5
BEX4
BEX3
MED	;-- populate 90350.1 with med name in 11th piece
CR(BEXVIEN)	;EP - add a chart request
PIMS53()	;check for pims 5.3
START	;
ADDCR(CLN,PAT,TS,PM)	;-- add cr and print rs
RS(DFN,CI)	;-- print a routine slip
BEXALT	;Menu action entry point to alert user
LKPT(PT,CI,TM)	;-- check if patient has cr already
KSRX	;-- kill and reset PSORX
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
$$CHECK^BEXSITE	END+14
CHANGE^BEXSITE	START+18, END+18
HOLD^BEXSITE	START+15
WISD^BSDROUT	ADDCR+23
^DIC	BEX+14
^DIE	DIE+10
FILE^DIE	MED+14
UPDATE^DIE	ADDCR+16, ADDDPT+10, MARK+4
IXALL^DIK	IDX+2
$$GET1^DIQ	CR+35, CR+38, ADDCR+19, ADDCR+20, RS+4
^DIR	START+9, BEX+1, BEX+29, BEX12+2
ASK^PSOBBC	START+26
PROCESSX^PSOBBC	END
PT^PSOBBC	BEX6+10
REFILL^PSOBBC	BEX6+24
^PSOLSET	END+9, END+10
FINAL^PSOLSET	END+2
PROFILE^PSORX1	BEX6+11
PSOL^PSSLOCK	BEX10+17
PSOUL^PSSLOCK	ULK+2
^XBKVAR	TSK+1
EN^XBNEW	RS+11
EN^XBVK	EOJCR+1, EOJCR+2, EOJCR+3, EOJCR+4
$$FMTE^XLFDT	DIE+8
$$NOW^XLFDT	ADDCR+15

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ".none found.",! Line Location: START+7
Function Call: WRITE	Prompt: !?5,$P($G(^PS(59,+$G(PSOVX),0)),"^") Line Location: START+8
Function Call: WRITE	Prompt: !!?7,$C(7),"No telephone refills to process." Line Location: START+25
Function Call: WRITE	Prompt: ! Line Location: BEX+1
Function Call: WRITE	Prompt: ! Line Location: BEX+33
Function Call: WRITE	Prompt: !?7,$C(7),$C(7),$C(7),"Not from this institution.",! Line Location: BEX6+3
Function Call: WRITE	Prompt: !,$C(7),"Rx data is not on file!",! Line Location: BEX6+6
Function Call: WRITE	Prompt: !,$C(7),"Rx has already been deleted." Line Location: BEX6+7
Function Call: WRITE	Prompt: !,$C(7),"Rx has already been entered." Line Location: BEX6+8
Function Call: WRITE	Prompt: !! Line Location: BEX6+12
Function Call: WRITE	Prompt: !!,$C(7),"REFILL WAS NOT PROCESSED! PLEASE TAKE APPROPRIATE ACTION." Line Location: BEX12+0
Function Call: WRITE	Prompt: !!,"Your Outpatient Site parameters have been deleted because you selected an",!,"inactive Outpatient Site!",! Line Location: END+2
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: ADDCR+16 ADDDPT+10 MARK+4
Routine Call	DIE Line Location: DIE+10
Routine Call	DIR Line Location: START+9 BEX+1 BEX+29 BEX12+2
Routine Call	%ZIS Line Location: RS+8
Routine Call	DIC Line Location: BEX+14
Routine Call	DIE Line Location: MED+14

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BEXHRXP - [#90350.2]	CUT+3, CUT+5, CR+20, CR+44, CR+45, CR+46, CR+57, CR+58, CR+59, CR+60 , RS+1
^BEXHRXP("B"	CUT+1, CR+18
^DD("SITE"	START+23, BEX5, BEXALT+2
^DIC(4 - [#4]	HDR+2
^DIC(9.4 - [#9.4]	PIMS53+2, PIMS53+4
^DPT - [#2]	CR+63, CR+81, CR+82, CR+84, ADDDPT+6
^PS(59 - [#59]	START+3, START+8, END+2, CR+14
^PSRX - [#52]	START+5, BEX6+6, BEX6+7, BEX6+10, BEX6+19, BEX3+2, BEX4+6, BEX4+8, BEX4+9, MED+9
^PSRX("B"	CR+32, MED+7
^SC - [#44]	CR+74, CR+75, CR+76, CR+77, CR+79, CR+80, ADDCR+9, RS+6, LKPT+2, LKPT+3 , GNXT+2
^SC("AIHSCR"	ADDCR+3
^SD(409.1 - [#409.1]	CR+83, ADDDPT+2
^VEXHRX(19080	START+4, START+6, START+25, BEX3, BEX3+2, BEX4, BEX10+4, BEX5+1, BEX12, BEXALT+3 , BEXALT+4, BEXALT+5
^VEXHRX0(19080.1 - [#90350.1]	CR+2, CR+3, CR+5, CR+24, CR+29, CR+71, TSK+2, TSK+3, DIE+2, DIE+3 , MED+2, MED+3, MED+5

Label References

Name	Line Occurrences
$$CUT	BEX
$$GNXT	CR+78
$$LKPT	CR+73
$$PIMS53	CR+72
ADDCR	CR+72
BEX12	BEX3+2, BEX5+2
BEX3	BEX6+2
BEX5	BEX6+1, BEX3+2
BEX6	BEX6+3, BEX6+6, BEX6+7, BEX6+8, BEX6+10, BEX6+24
BEXEND	BEXALT+3
CR	TSK+4
END	START+9, START+25, START+26, BEX, BEX+1, BEX+2, BEX+31, BEX6+2
EOJCR	MARK+5
KSRX	BEX6+10
MARK	CR+72, CR+86
RS	CR+85
ULK	BEX6+2, BEX6+3, BEX6+6, BEX6+7, BEX6+8, BEX6+10, BEX6+24

Name	Field # of Occurrence
^("I"	START+3, END+2
^(1	BEXALT+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	CUT+8
>> %ZIS	RS+8*
BEXANS	START+25, BEX+1, BEX+2, BEX+7, BEX+31, BEX6+1, BEX6+2, BEX3, BEX3+1, BEX4 , BEX12+2, END+3!
BEXANS2	END+3!
BEXAPTP	CR+83, CR+84, ADDDPT+1~, ADDDPT+2, ADDDPT+9
>> BEXCLNA	CR+57, CR+61, CR+62, CR+64, CR+68
>> BEXCLNB	CR+58*, CR+61, CR+66, CR+67
BEXCLNE	ADDCR+4~, ADDCR+9*
>> BEXCLNI	CR+64, CR+67, CR+68*, CR+69, CR+72, CR+73, CR+74, CR+75, CR+76, CR+77 , CR+78, CR+79, CR+80, CR+84, CR+85
BEXCNT	BEXALT+1, BEXALT+5, BEXALT+6, BEXEND!
BEXCRE	LKPT+1!, LKPT+3*, LKPT+4
>> BEXCTR	BEX+36*
>> BEXCUT	CR+59*, CR+66, CR+67
BEXDA	MED+1~, MED+2*, MED+3, MED+5, MED+12
BEXDATE	ADDCR+4~, ADDDPT+1~
BEXDEV	ADDCR+4~, ADDCR+19, ADDCR+20, ADDCR+21, ADDCR+23, RS+4*, RS+5, RS+8
BEXDRG	MED+4~, MED+9*, MED+10, MED+13
>> BEXEIDT	DIE+8*, DIE+9
BEXERR	ADDCR+4~, ADDCR+17, ADDDPT+1~, ADDDPT+11, MARK+1~, MED+11~
>> BEXEXIT	BEX+6, BEX+16, BEX+22
BEXFDA	ADDCR+4~, ADDDPT+1~, MARK+1~, MED+11~
BEXFDA(	ADDCR+10, ADDCR+11, ADDCR+12, ADDCR+13, ADDCR+14, ADDCR+15, ADDDPT+7, ADDDPT+8, ADDDPT+9, MARK+3 , MED+13*
>> BEXFLAG	BEX10+4, BEX10+5, BEX10+6, BEX10+7, BEX10+8, BEX10+9, BEX10+10, BEX10+11, BEX10+12, BEX10+13 , BEX10+14
BEXHOLD	END+9!, END+10!, END+20!
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, MED+11~, MED+12*, MED+13
BEXIENS	ADDCR+4~, ADDCR+5, ADDDPT+1~, ADDDPT+3, MARK+1~, MARK+2*, MARK+3
BEXIENS(1	ADDCR+6, ADDCR+10, ADDCR+11, ADDCR+12, ADDCR+13, ADDCR+14, ADDCR+15, ADDDPT+4, ADDDPT+7, ADDDPT+8 , ADDDPT+9
BEXIENS(2	ADDCR+7, ADDDPT+5
BEXIIEN	DIE+3*, DIE+9, DIE+12!
>> BEXLOC	HDR+2*, HDR+3, HDR+5
>> BEXMAIL	BEX+32*, BEX10+6, BEX10+7, BEX10+8, BEX10+9, BEX10+10, BEX10+11
BEXNIDT	DIE+6, DIE+7, DIE+8, DIE+12!
BEXNOW	ADDCR+4~, ADDDPT+1~
BEXNXT	CR+78, CR+79, CR+80, GNXT+1!, GNXT+3, GNXT+4
>> BEXOPIEN	BEX4+4, BEX4+6, BEX4+9*, BEX4+10, BEX4+11
BEXOPSIT	BEX+5!, BEX+6, BEX+19, BEX4+10, BEX4+11
BEXOPSIT(	BEX+20*, BEX4+11
>> BEXOTM	CR+48, CR+49, CR+50, CR+51, CR+52, CR+67
>> BEXPAT	CR+3*, CR+4, CR+63, CR+72, CR+73, CR+79, CR+81, CR+82, CR+84, CR+85
BEXPATE	ADDDPT+1~, ADDDPT+6*
BEXPIMS	PIMS53+1~, PIMS53+2*, PIMS53+3, PIMS53+4
>> BEXPKG	HDR+1*, HDR+4
>> BEXPM	CR+65, CR+67, CR+72
BEXPPL	END+1!
>> BEXPSITE	CR+13, CR+14, CR+17, CR+18
BEXPSORX	BEX10+17*!, END+3!, ULK+1, ULK+2, ULK+3!
BEXPTRN	BEXALT+1, BEXALT+4, BEXALT+5, BEXEND!
BEXPTRX	BEX+1, BEX+2, BEX6+1, BEX3*, BEX3+1, BEX3+2, BEX4, BEX4+5, BEX10+4, BEX10+17 , BEX5+1, BEX12, END+3!
>> BEXQUIT	BEX+6, BEX+9, BEX+16, BEX+17*
BEXRDA	TSK+2*, TSK+3, TSK+4, MARK~, MARK+2
>> BEXREFO	CR+60*, CR+71
>> BEXRFIEN	BEX4+7, BEX4+8, BEX4+9
BEXRX	START+2, END+1!, MED+4~, MED+5, MED+6, MED+7
BEXRXI	MED+4~, MED+7*, MED+8, MED+9
>> BEXRXIEN	BEX4+5, BEX4+6, BEX4+8, BEX4+9, CR+32, CR+33, CR+35
BEXSLOC	CR+23~, CR+24, CR+27, CR+40, CR+42
>> BEXTAB	HDR+3*, HDR+5
>> BEXTS	CR+5, CR+47, CR+48, CR+53, CR+55, CR+56, CR+67*, CR+72, CR+73, CR+74 , CR+75, CR+76, CR+77, CR+78, CR+79, CR+80, CR+84
>> BEXTSCA	CR+44*, CR+67
>> BEXTSO	ADDCR+1*, ADDCR+12
>> BEXTSP	CR+53, CR+54, CR+67
>> BEXTSRA	CR+45*, CR+55
>> BEXTSRP	CR+46*, CR+53
BEXVIEN	CR~, CR+2, CR+3, CR+5, CR+24, CR+29, CR+71, CR+72, CR+86
>> BEXVSITE	CR+20*, CR+21
>> BEXVSITO	CR+18*, CR+19, CR+20, CR+44, CR+45, CR+46, CR+57, CR+58, CR+59, CR+60 , ADDCR+19, ADDCR+20, RS+1, RS+4
BEXXFLAG	BEX3!, BEX10+18*, END+3!
CI	RS~, RS+6, LKPT~, LKPT+2, LKPT+3, GNXT~, GNXT+2
CLN	ADDCR~, ADDCR+3, ADDCR+6, ADDCR+9, ADDDPT~, ADDDPT+7
DA	BEX+10!, DIE+9*, DIE+11!
DFN	BEX6+18*, RS~
>> DGPGM	RS+2*
>> DGQUIET	ADDCR+22*
>> DGUTQND	RS+7*
DIC	BEX+10!, BEX+13*, BEX+15!
DIC("A"	BEX+12*
DIC(0	BEX+11*
DIE	BEX+10!, DIE+1*, DIE+12!
DIK	IDX+2*, IDX+3!
DIR	START+9!, BEX+1!, BEX+15!, BEX+26!, BEX+30!, BEX12+2!, END+3!
DIR("A"	START+9, BEX+1, BEX+28, BEX12+2
DIR("B"	BEX+1*
DIR(0	START+9, BEX+1, BEX+27, BEX12+2
DIRUT	BEX+1, BEX+31!
>> DIV	RS+6*
DR	BEX+15!, DIE+9*, DIE+11!
DT	START+3, BEX5+1, END+2, CR+47, ADDDPT+8
DUOUT	BEX+10!, BEX+16!, BEX+22!
DUZ	ADDCR+13
DUZ(2	CUT+1, CR+14, CR+42, HDR+2
>> IOP	RS+8*
OTM	EOJCR+5!
PAT	ADDCR~, ADDCR+3, ADDCR+11, ADDCR+23, ADDDPT~, ADDDPT+4, ADDDPT+6, EOJCR+5!
PM	ADDCR~, ADDCR+18
>> POP	RS+8*
PSOBBC	END+3!
PSOBBC("DFLG"	START+22, BEX6, BEX6+10, BEX5+2, BEX12+1*
PSOBBC("DONE"	BEX6+8, BEX6+24*
PSOBBC("IRXN"	BEX6+4*, BEX6+5, BEX6+6, BEX6+7, BEX6+8, BEX6+10, BEX6+19, BEX6+24, KSRX+3, BEX3!
PSOBBC("MAIL/WINDOW"	BEX10+12, BEX10+13, BEX10+14*
PSOBBC("OIRXN"	BEX6+4*
PSOBBC("QFLG"	START+22*, START+26
PSOBBC1	END+3!
PSOBBC1("FROM"	START+22*
PSOBEX	START+1*, END+3!
PSOBEXFL	START+3!, START+6*, START+7, START+8, START+9, END+3!
PSOBEXI	START+3!, END+3!
PSOBEXI(	START+3, START+5, START+6, START+8
PSOBEXI(0	START+4, START+7
PSODFN	BEX6+10, BEX6+18, KSRX+1, END+3!
>> PSODRUG("IEN"	BEX6+19*
>> PSOFROM	START+24*
>> PSOINST	START+23, START+25, BEX6+3, BEX3, BEX3+2, BEX4, BEX10+4, BEX5, BEX5+1, BEX12 , BEXALT+2*, BEXALT+3, BEXALT+4, BEXALT+5
PSOISITE	START+3!, START+5*, START+6, END+3!
PSOMSG	BEX10+17!, BEX10+18!
>> PSOPAR	END+10
PSORX	END+1!
PSORX("PSOL"	BEX6+5, KSRX+2!, KSRX+3
PSOSELSE	BEX6+10*!, BEX6+11!
>> PSOSITE	END+2, END+9
PSOVIN	START+4*, START+6, END+3!
PSOVX	START+3, START+8, END+3!
PSOVXLP	START+4*, START+5, START+6, END+3!
PT	LKPT~, LKPT+3
>> SDZCV	RS+7*
>> SDZZWI	RS+7*
TM	LKPT~, LKPT+2, LKPT+3, GNXT~, GNXT+2
TS	ADDCR~, ADDCR+1, ADDCR+2*, ADDCR+3, ADDCR+7, ADDCR+10, ADDCR+23, ADDDPT~, ADDDPT+5, EOJCR+5!
TSCA	EOJCR+5!
TSCP	EOJCR+5!
TSM	EOJCR+5!
U	START+6, BEX6+19, BEX3+2, BEX4, BEX4+9, BEX10+6, BEX10+7, BEX10+8, BEX10+9, BEX10+10 , BEX10+11, BEX10+12, BEX10+13, BEX10+14, BEX12, BEXALT+5, CUT+3, CUT+5, CR+1*, CR+2 , CR+3, CR+5, CR+20, CR+24, CR+29, CR+44, CR+45, CR+46, CR+57, CR+58 , CR+59, CR+60, CR+71, CR+79, CR+84, ADDCR+9, ADDDPT+6, RS+1, RS+6, LKPT+3 , TSK+3, HDR+2, MED+3, MED+5, MED+9
>> VAR	RS+2*
>> VCUT	CUT+5*, CUT+6, CUT+8
>> VEXCTR	BEX+36*
>> VEXRX	START+2*
>> VSITE	CUT+3*, CUT+4
>> VSITEO	CUT+1*, CUT+2, CUT+3, CUT+5
X	BEX+17, BEX6+3, BEX6+4, BEX6+9!, BEX4*, END+3!
Y	START+9, BEX+2, BEX+18, BEX+20, BEX+32, BEX6+9!, BEX12+2, END+3!, CR+29, CR+30 , CR+32, CR+35, CR+36, CR+38*, CR+39, CR+40

Customize PDF page

Package: IHS Pharmacy Auto Refill System

Routine: BEXRX7

Information

Source Information

Call Graph

Call Graph Total: 17

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: