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

Package: Vendor - Audiofax Inc

Routine: VEXRX


Information

VEXRX ;MUSKOGEE VAMC/GLD - AUDIOFAX SUBROUTINE - 6-21-94

Source Information

Source file <VEXRX.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Outpatient Pharmacy 3 (ASK,PROCESSX,PT,PTC,REFILL)^PSOBBC  (,FINAL)^PSOLSET  PROFILE^PSORX1  
VA FileMan 2 $$GET1^DIQ  ^DIR  
MailMan 1 ^XMD  
Order Entry Results Reporting 1 RENEW^ORAREN  
Pharmacy Data Management 1 (PSOL,PSOUL)^PSSLOCK  
Pharmacy Prescription Practice 1 $$PDA^PPPPDA1  

Entry Points

Name Comments DBIA/ICR reference
END
ULK ;
VEXALT ;Menu action entry point to alert user
VEX4
RENEWCHK ; Checks ^VEXHRX node for renewal information
; Renewal check
; @1
VEX
VEX3
START
VEX6
VEX5 ;
; Next statement is used by BFD/648 CHK PROGRESS THRU PROGRAM
VEX10
VEXEND
BFDRNCHK ; 648/BFD 4-27-06 There is data in global - is it date or renewal request
; Troubleshooting - put this on next line after =1
; W !,"there is no ^ in VEXREN "_VEXREN_" so must just be a date. Set Vex648 to 0"
VEX12 ;
; @3

External References

Name Field # of Occurrence
$$GET1^DIQ END+5, END+12, END+13
^DIR START+14, VEX, VEX+2, VEX12+5
RENEW^ORAREN RENEWCHK+15
$$PDA^PPPPDA1 VEX6+12
ASK^PSOBBC START+19
PROCESSX^PSOBBC VEX6+9, END
PT^PSOBBC VEX6+10
PTC^PSOBBC VEX6+11
REFILL^PSOBBC VEX6+13
^PSOLSET START+15
FINAL^PSOLSET END+17
PROFILE^PSORX1 VEX6+12
PSOL^PSSLOCK VEX10+3
PSOUL^PSSLOCK ULK+2
^XMD END+9, END+12, END+13

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ".none found.",!
  • Line Location: START+12
Function Call: WRITE
  • Prompt: !?5,$P($G(^PS(59,+$G(PSOVX),0)),"^")
  • Line Location: START+13
Function Call: WRITE
  • Prompt: !!!?20,"Division: "_$P(^PS(59,PSOSITE,0),"^"),!!
  • Line Location: START+16
Function Call: WRITE
  • Prompt: !!?7,$C(7),"There are no telephone refills to process."
  • Line Location: START+18
Function Call: WRITE
  • Prompt: !
  • Line Location: VEX+0
Function Call: WRITE
  • Prompt: !?7,$C(7),$C(7),$C(7),"Not from this institution.",!
  • Line Location: VEX6+2
Function Call: WRITE
  • Prompt: !,$C(7),"Rx data is not on file!",!
  • Line Location: VEX6+6
Function Call: WRITE
  • Prompt: !,$C(7),"Rx has already been deleted."
  • Line Location: VEX6+7
Function Call: WRITE
  • Prompt: !,$C(7),"Rx has already been entered."
  • Line Location: VEX6+8
Function Call: WRITE
  • Prompt: !!
  • Line Location: VEX6+12
Function Call: WRITE
  • Prompt: !!,$C(7),"REFILL WAS NOT PROCESSED! PLEASE TAKE APPROPRIATE ACTION."
  • Line Location: VEX12+4
Function Call: WRITE
  • Prompt: !!,"Your Outpatient Site parameters have been deleted because you selected an",!,"inactive Outpatient Site!",!
  • Line Location: END+17
Function Call: WRITE
  • Prompt: !,"there is no ^ in VEXREN "_VEXREN_" so must just be a date. Set Vex648 to 0"
  • Line Location: BFDRNCHK+2
Function Call: WRITE
  • Prompt: !,"VEXREN is "_VEXREN_" this check is for something in piece 1 of ] and sets VEX648=1"
  • Line Location: BFDRNCHK+5
Function Call: WRITE
  • Prompt: !,"VEXREN is "_VEXREN_" this check is for nothing in piece 1 of '] and set VEX648 to 0"
  • Line Location: BFDRNCHK+8
Routine Call
  • DIR
  • Line Location:
    • START+14
    • VEX
    • VEX+2
    • VEX12+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(59 - [#59] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("TEST" VEX6+12
^DD("SITE" VEXALT+2
^PS(59 - [#59] START+8, START+13, START+16, END+17
^PSRX - [#52] START+10, VEX6+6, VEX6+7, VEX6+10, VEX3+3, VEX10
^TMP($J START+5!, END+10, END+12, END+13
^VEXHRX(19080 START+9, START+11, START+18, VEX3, VEX3+2, VEX5+3*, VEX12+3*, VEXALT+3, VEXALT+4, VEXALT+5
, RENEWCHK+10, RENEWCHK+17*, RENEWCHK+18*

Label References

Name Line Occurrences
BFDRNCHK VEX3+2
END START+14, START+15, START+18, START+19, VEX, VEX+1, VEX+2, VEX6+1
RENEWCHK VEX10+2
ULK VEX6+1, VEX6+2, VEX6+6, VEX6+7, VEX6+8, VEX6+10, VEX6+11, VEX6+13
VEX12 VEX5+4
VEX3 VEX6+1
VEX5 VEX6, VEX3+3
VEX6 VEX6+2, VEX6+4, VEX6+6, VEX6+7, VEX6+8, VEX6+10, VEX6+11, VEX6+13
VEXEND VEXALT+3

Naked Globals

Name Field # of Occurrence
^("I" START+8, END+17
^(1 VEXALT+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CNT1 START+3*, VEX+4*, END+14!, RENEWCHK+19*, RENEWCHK+20*
DINACT START+4*, END+14!
DIR START+14!, VEX!, VEX+2!, VEX12+5!, END+19!
DIR("A" START+14*, VEX*, VEX+2*, VEX12+5*
DIR("B" VEX*, VEX+2*
DIR(0 START+14*, VEX*, VEX+2*, VEX12+5*
>> DIRUT VEX, VEX+2
DISDT START+4*, END+14!
DT START+8, VEX5+3, END+17, RENEWCHK+17
DUZ END+5, END+11
EMCNT START+2~, START+5*
FBKTR START+3*, END+15!
FBKTRDN START+3*, END+15!
GCNT END+14!
HACT START+4*, END+14!
HACTDN START+4*, END+16!
INCNT START+2~, START+5*
INFPDNKTR START+3*, END+15!
INFPKTR START+3*, END+15!
MAFBFD END+14!
MAFBKT END+15!
MMCONT START+3*, END+15!
MMDAT START+4*, END+14!
NDINACT START+4*, END+14!
NDISDT START+4*, END+14!
NPCP START+3*, END+15!
NPCPA START+4*, END+16!
NPCPADN START+4*, END+16!
NPCPDN START+3*, END+15!
NRF START+3*, VEX12+2*, END+6, END+15!
NRFLG START+3*, VEX5+6, VEX5+7*, VEX12+2*, END+15!
ORDP START+3*, END+14!
ORDPDN START+3*, END+14!
PATIEN START+2~, RENEWCHK+14*, RENEWCHK+15
PCONT START+3*, END+15!
PROVP START+2~, RENEWCHK+10*, RENEWCHK+15
PSOBBC END+19!
PSOBBC("DFLG" START+17*, VEX6+10, VEX6+11, VEX5+4
PSOBBC("DONE" VEX6+8, VEX6+13*
PSOBBC("IRXN" VEX6+5*, VEX6+6, VEX6+7, VEX6+8, VEX6+10, VEX6+13, VEX3!
PSOBBC("OIRXN" VEX6+5*
PSOBBC("QFLG" START+17*, START+19, VEX6+9
PSOBBC1 END+19!
PSOBBC1("FROM" START+17*
>> PSODFN VEX6+10, VEX6+12
>> PSOINST START+18, VEX6+2, VEX3, VEX3+2, VEX4, VEX5+3, VEX12+3, VEXALT+2*, VEXALT+3, VEXALT+4
, VEXALT+5, RENEWCHK+10, RENEWCHK+17, RENEWCHK+18
PSOISITE START+7!, START+10*, START+11, END+19!
PSOMSG VEX10+3!, VEX10+4!
>> PSOPAR START+15
PSORX END+19!
PSOSELSE VEX6+10*!, VEX6+11!, VEX6+12!
>> PSOSITE START+16, VEX10, END+5, END+12, END+13, END+17
PSOVEX START*, END+19!
PSOVEXFL START+7!, START+11*, START+12, START+13, START+14, END+19!
PSOVEXI START+7!, END+19!
PSOVEXI( START+8*, START+10, START+11*, START+13
PSOVEXI(0 START+9, START+12
PSOVIN START+9*, START+11, END+19!
PSOVX START+8*, START+13*, END+19!
PSOVXLP START+9*, START+10, START+11, END+19!
PTERM START+3*, END+15!
PTERMDN START+3*, END+15!
>> RENEW VEX6+4*, VEX10+2, RENEWCHK+10*, RENEWCHK+12, RENEWCHK+15
RENFLG START+2~, START+3*, VEX5+3, VEX5+6, RENEWCHK+9*, RENEWCHK+16*
RESULT START+2~, RENEWCHK+13~, RENEWCHK+15, RENEWCHK+18, RENEWCHK+19, RENEWCHK+20, RENEWCHK+21
RFY START+3*, VEX5+6*, END+6, END+15!
RXNUM START+2~, RENEWCHK+14*, RENEWCHK+15
TOTF START+2~, START+5*, END+8, RENEWCHK+21*
TOTREN START+2~, START+5*, END+7, RENEWCHK+20*
U VEX12+3
UNSKTR START+3*, END+15!
USR START+2~, RENEWCHK+10*
VEX648 VEX3+2*, VEX3+3, VEX4, END+16!, BFDRNCHK+3*, BFDRNCHK+6*, BFDRNCHK+9*
VEXANS START+18*, VEX*, VEX+1*, VEX+2*, VEX6, VEX6+1, VEX3, VEX3+1*, VEX4, VEX12+5*
, END+19!
VEXANS2 VEX+2*, VEX10, END+5, END+12, END+13, END+19!
VEXCNT VEXALT+1*, VEXALT+5*, VEXALT+6, VEXEND!
VEXPSORX VEX10+3*!, END+19!, ULK+1, ULK+2, ULK+3!
VEXPTRN VEXALT+1*, VEXALT+4*, VEXALT+5, VEXEND!
VEXPTRX VEX*, VEX+1*, VEX6, VEX3*, VEX3+1, VEX3+2, VEX3+3, VEX4, VEX10, VEX10+3
, VEX5+3, VEX12+3, END+19!, RENEWCHK+10, RENEWCHK+14, RENEWCHK+17, RENEWCHK+18
VEXREN VEX3+2*, END+16!, BFDRNCHK+3, BFDRNCHK+6, BFDRNCHK+9
VEXXFLAG VEX3!, VEX10+2*, VEX10+4*, END+19!
X VEX6+2, VEX6+5, VEX6+9!, VEX6+12*, VEX4*, END+19!
XMDUZ END+4~, END+5*, END+10~, END+12*, END+13*
XMSUB END+4~, END+5*, END+10~, END+12*, END+13*
XMT END+4~
XMT(1 END+6*
XMT(2 END+6*
XMT(3 END+7*
XMT(4 END+7*
XMT(5 END+8*
XMTEXT END+4~, END+5*, END+10~, END+12*, END+13*
XMY END+4!, END+10!
XMY( END+5*, END+11*
XMY("G.AUTORENEWAL" END+5*, END+12*, END+13*
Y START+14, VEX+1, VEX+2, VEX6+9!, VEX12+5, END+19!
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