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 |  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: BEXRX

Package: IHS Pharmacy Auto Refill System

Routine: BEXRX


Information

BEXRX ; cmi/anch/maw - BEX Audiocare Refill Driver ; 04 Dec 2015 8:04 AM

Source Information

Source file <BEXRX.m>

Call Graph

Call Graph Total: 15

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  

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

FileMan Files Accessed Via FileMan Db Call

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

Naked Globals

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!
Info |  Source |  Call 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