Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: BEXRX7

Package: IHS Pharmacy Auto Refill System

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

FileMan Files Accessed Via FileMan Db Call

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

Naked Globals

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All