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 |  Local Variables  | All
Print Page as PDF
Routine: PSODIR5

Package: Outpatient Pharmacy

Routine: PSODIR5


Information

PSODIR5 ;DAL/JCH - ASK FOR DEA RX DATA ;11/08/21 4:03pm

Source Information

Source file <PSODIR5.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
VA FileMan 4 FIELD^DID  ($$GET1,GETS)^DIQ  EN^DIQ1  ^DIR  
Kernel 3 $$FMDIFF^XLFDT  PARENT^XUAF4  ($$DETOX,$$SDEA)^XUSER  
Outpatient Pharmacy 3 $$DRGSCH^PSODIR  $$DDIR^PSODIR5  SET^PSODRG  
Toolkit 1 $$GET^XPAR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Outpatient Pharmacy 2 PSODIR  PSODIR5  

Entry Points

Name Comments DBIA/ICR reference
FAILOVER(DEARY,VA,SDEA) ;check failover flag, if expired DEA, use VA schedule
DISP3(IEN,ARYSEL,PSORX) ;displays dea#,detox#,address
USEVA(PROVIEN,VA,PSORX) ;Use VA# only when provider has no dea#
WM1 ;warning message
WM2 ; Warning message
WM3(SCHED) ; Warning message
INDISP(PROVIEN,DEARY,PSORX) ;displays institutional dea#va#, address of institution
DEALIST(RET,NPIEN,SDEA)
DISPONLY(DEARY) ; Display only
SLDEA(PROVIEN,PSORX,DFLTDEA,PSODRIEN) ;
DDIR(DCNT,DFLT) ;
VAPROV(PROVIEN) ; Is PROVIEN a VA Provider? (NON-VA PRESCRIBER=NO, PROVIDER TYPE=FULL TIME, PART TIME, or HOUSE STAFF)
; INPUT: PROVIEN = Provider DUZ

External References

Name Field # of Occurrence
FIELD^DID DISP3+14
$$GET1^DIQ DISP3+4, INDISP+4, INDISP+5, INDISP+6, DEALIST+24, DEALIST+27, DEALIST+30, DEALIST+31, VAPROV+4, VAPROV+5
, VAPROV+6
GETS^DIQ DEALIST+23, DEALIST+25
EN^DIQ1 DISP3+6
^DIR DDIR+3
$$DRGSCH^PSODIR SLDEA+4
$$DDIR^PSODIR5 FAILOVER+9
SET^PSODRG SLDEA+3
$$FMDIFF^XLFDT DEALIST+27
$$GET^XPAR FAILOVER+2, DEALIST+32
PARENT^XUAF4 USEVA+12
$$DETOX^XUSER DISP3+12
$$SDEA^XUSER FAILOVER+4, DEALIST+32

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,""_DCNT_". "_VA_" (VA#)"
  • Line Location: FAILOVER+6
Function Call: WRITE
  • Prompt: "-"_$P($G(DEARY(1,DLOOP)),U,3)
  • Condition for execution: $L($P($G(DEARY(1,DLOOP)),U,3))
  • Line Location: FAILOVER+8
Function Call: WRITE
  • Prompt: " "_$P($G(DEARY(1,DLOOP)),U,4)_" Expired: "_$P($G(DEARY(1,DLOOP)),U,6)
  • Line Location: FAILOVER+8
Function Call: WRITE
  • Prompt: !
  • Line Location: DISP3+7
Function Call: WRITE
  • Prompt: !," "_DISPTXT
  • Line Location: DISP3+17
Function Call: WRITE
  • Prompt: !,"Press Return to continue: ",$C(7)
  • Line Location: DISP3+18
Function Call: WRITE
  • Prompt: !!!!,"Press Return to continue: ",$C(7)
  • Line Location: DISP3+19
Function Call: WRITE
  • Prompt: !!,"Provider must have a current DEA# or VA# to write prescriptions for this drug.",!
  • Line Location: WM1+1
Function Call: WRITE
  • Prompt: !!,"The provider's DEA# on file has Expired and must be updated.",!
  • Line Location: WM2+1
Function Call: WRITE
  • Prompt: $C(7),!!,"Provider not authorized to write Federal Schedule "_SCHED_" prescriptions.",!
  • Line Location: WM3+1
Function Call: WRITE
  • Prompt: !!,"DEA NUMBER: "_DEARY
  • Line Location: INDISP+1
Function Call: WRITE
  • Prompt: !,"DETOX NUMBER: "_PSORX("DETX")
  • Line Location: INDISP+2
Function Call: WRITE
  • Prompt: !,"STREET ADDRESS 1:",MADD1
  • Line Location: INDISP+7
Function Call: WRITE
  • Prompt: !,"CITY:",MCITY
  • Line Location: INDISP+9
Function Call: WRITE
  • Prompt: !,"STATE:",MSTATE
  • Line Location: INDISP+10
Function Call: WRITE
  • Prompt: !,"ZIP CODE:",MZIP
  • Line Location: INDISP+11
Function Call: WRITE
  • Prompt: !
  • Line Location: INDISP+12
Function Call: WRITE
  • Prompt: !,"Press Return to continue: ",$C(7)
  • Line Location: INDISP+12
Function Call: WRITE
  • Prompt: !,"* "_$P($G(DEARY(1,DLOOP)),U,2)
  • Line Location: DISPONLY+2
Function Call: WRITE
  • Prompt: "-"_$P($G(DEARY(1,DLOOP)),U,3)
  • Condition for execution: $L($P($G(DEARY(1,DLOOP)),U,3))
  • Line Location: DISPONLY+2
Function Call: WRITE
  • Prompt: " "_$P($G(DEARY(1,DLOOP)),U,4)_" Expired: "_$P($G(DEARY(1,DLOOP)),U,6)
  • Line Location: DISPONLY+2
Function Call: WRITE
  • Prompt: !,"* "_$P($G(DEARY(3,DLOOP)),U,2)
  • Line Location: DISPONLY+4
Function Call: WRITE
  • Prompt: "-"_$P($G(DEARY(3,DLOOP)),U,3)
  • Condition for execution: $L($P($G(DEARY(3,DLOOP)),U,3))
  • Line Location: DISPONLY+4
Function Call: WRITE
  • Prompt: " "_$P($G(DEARY(3,DLOOP)),U,4)_" Not Valid for Schedule: "_SDEA
  • Line Location: DISPONLY+5
Function Call: WRITE
  • Prompt: !,DCNT_". "_$P($G(DEARY(2,DLOOP)),U,2)
  • Line Location: DISPONLY+7
Function Call: WRITE
  • Prompt: "-"_$P($G(DEARY(2,DLOOP)),U,3)
  • Condition for execution: $L($P($G(DEARY(2,DLOOP)),U,3))
  • Line Location: DISPONLY+7
Function Call: WRITE
  • Prompt: " "_$P($G(DEARY(2,DLOOP)),U,4)
  • Line Location: DISPONLY+7
Function Call: WRITE
  • Prompt: !,"Provider not authorized to write Federal Schedule "_SDEA_" prescriptions."
  • Line Location: SLDEA+15
Function Call: WRITE
  • Prompt: !,"Please contact the provider.",!
  • Line Location: SLDEA+16
Function Call: WRITE
  • Prompt: !!,"This provider has multiple DEA registrations."
  • Line Location: SLDEA+20
Function Call: WRITE
  • Prompt: !,"Please select the correct DEA number for the prescription being entered"
  • Line Location: SLDEA+20
Function Call: WRITE
  • Prompt: !,"* "_$P($G(DEARY(1,DLOOP)),U,2)
  • Line Location: SLDEA+22
Function Call: WRITE
  • Prompt: "-"_$P($G(DEARY(1,DLOOP)),U,3)
  • Condition for execution: $L($P($G(DEARY(1,DLOOP)),U,3))
  • Line Location: SLDEA+22
Function Call: WRITE
  • Prompt: " "_$P($G(DEARY(1,DLOOP)),U,4)_" Expired: "_$P($G(DEARY(1,DLOOP)),U,6)
  • Line Location: SLDEA+22
Function Call: WRITE
  • Prompt: !,"* "_$P($G(DEARY(3,DLOOP)),U,2)
  • Line Location: SLDEA+24
Function Call: WRITE
  • Prompt: "-"_$P($G(DEARY(3,DLOOP)),U,3)
  • Condition for execution: $L($P($G(DEARY(3,DLOOP)),U,3))
  • Line Location: SLDEA+24
Function Call: WRITE
  • Prompt: " "_$P($G(DEARY(3,DLOOP)),U,4)_" Not Valid for Schedule: "_SDEA
  • Line Location: SLDEA+25
Function Call: WRITE
  • Prompt: !,DCNT_". "_$P($G(DEARY(2,DLOOP)),U,2)
  • Line Location: SLDEA+27
Function Call: WRITE
  • Prompt: "-"_$P($G(DEARY(2,DLOOP)),U,3)
  • Condition for execution: $L($P($G(DEARY(2,DLOOP)),U,3))
  • Line Location: SLDEA+27
Function Call: WRITE
  • Prompt: " "_$P($G(DEARY(2,DLOOP)),U,4)
  • Line Location: SLDEA+27
Routine Call
  • DIR
  • Line Location:
    • DDIR+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
200.5321 GET1^DIQ,  GETS^DIQ
^DIC(4 - [#4] GET1^DIQ
^PSDRUG - [#50] GET1^DIQ
^XTV(8991.9 - [#8991.9] Classic Fileman Calls,  FIELD^DID,  GET1^DIQ,  GETS^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] USEVA+10, USEVA+13, USEVA+15
^PSDRUG - [#50] SLDEA+3
^UTILITY("DIQ1" DISP3+5!, DISP3+8, DISP3+9, DISP3+10
^VA(200 - [#200] USEVA+3, USEVA+4, USEVA+7, DEALIST+20, SLDEA+4

Label References

Name Line Occurrences
$$DDIR SLDEA+30
$$FAILOVER SLDEA+12
$$USEVA SLDEA+9
$$VAPROV SLDEA+7, SLDEA+9, SLDEA+11, SLDEA+12
DEALIST SLDEA+5
DISP3 SLDEA+13, DDIR+7
DISPONLY FAILOVER+3, FAILOVER+5, SLDEA+11, SLDEA+17
INDISP USEVA+19, DDIR+5
WM1 USEVA+5, USEVA+6, USEVA+18, SLDEA+7
WM2 FAILOVER+3, FAILOVER+5, SLDEA+11
WM3 USEVA+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ARYSEL DISP3~, DISP3+1~, DISP3+2*, DISP3+11, DISP3+20, DISP3+21
CNT DEALIST+17~, DEALIST+20*, DEALIST+43
CNT( DEALIST+35, DEALIST+36, DEALIST+37, DEALIST+38, DEALIST+39, DEALIST+40, DEALIST+41, DEALIST+42
CNT(1 DEALIST+19*, DEALIST+28*, DEALIST+29*, DEALIST+43
CNT(2 DEALIST+19*, DEALIST+34*, DEALIST+43
CNT(3 DEALIST+19*, DEALIST+33*, DEALIST+43
DA DISP3+1~, DISP3+2*, DISP3+9, DISP3+10, SLDEA+1~
DA(1 SLDEA+4*
DCNT FAILOVER+1~, FAILOVER+2*, FAILOVER+6*, FAILOVER+9, DISPONLY+6*, DISPONLY+7*, SLDEA+1~, SLDEA+26*, SLDEA+27*, SLDEA+28
, SLDEA+30, DDIR~, DDIR+3
DEARY FAILOVER~, FAILOVER+3, FAILOVER+5, USEVA+17*, USEVA+19, INDISP~, INDISP+1, INDISP+13, DISPONLY~, SLDEA+1~
, SLDEA+5, SLDEA+11, SLDEA+12, SLDEA+17
DEARY( FAILOVER+6*, DDIR+5
DEARY(0 SLDEA+7, SLDEA+9, SLDEA+11, SLDEA+12, SLDEA+13, SLDEA+18
DEARY(1 FAILOVER+7, FAILOVER+8, DISPONLY+1, DISPONLY+2, SLDEA+21, SLDEA+22
DEARY(2 DISP3+11, DISP3+20, DISP3+21, DISPONLY+6, DISPONLY+7, SLDEA+13, SLDEA+14, SLDEA+19, SLDEA+26, SLDEA+27
, SLDEA+29, DDIR+6, DDIR+7
DEARY(3 DISPONLY+3, DISPONLY+4, DISPONLY+5, SLDEA+14, SLDEA+19, SLDEA+23, SLDEA+24, SLDEA+25
DEASEL DISP3+22*, DISP3+23, USEVA+1~, USEVA+2*, USEVA+5, USEVA+6, USEVA+9, USEVA+17*, USEVA+18, USEVA+20*
, USEVA+21, INDISP+13*, INDISP+14, SLDEA+1~*, SLDEA+11, SLDEA+12*, SLDEA+30*, SLDEA+31, DDIR+1~, DDIR+5
, DDIR+6*, DDIR+8
DEASUFX DEALIST+17~, DEALIST+31*
DERR DISP3+1~, DISP3+13!
DFLT DDIR~, DDIR+2
DFLTDEA SLDEA~, SLDEA+29
DFLTSEL SLDEA+1~, SLDEA+29*, SLDEA+30
DIC DISP3+1~, DISP3+3*
DIFF DEALIST+17~, DEALIST+27*, DEALIST+28
DIR DDIR+1~, DDIR+3!
DIR("?" DDIR+3*
DIR("A" DDIR+3*
DIR("B" DDIR+2*
DIR(0 DDIR+3*
DIRUT DDIR+3!, DDIR+4!
DISPFLD DISP3+1~, DISP3+9*, DISP3+10, DISP3+11, DISP3+12, DISP3+14
DISPTXT DISP3+1~, DISP3+16*, DISP3+17
DISPVAL DISP3+1~, DISP3+10*, DISP3+11*, DISP3+12*, DISP3+16
DL SLDEA+1~, SLDEA+29*
DLOOP FAILOVER+7*, FAILOVER+8, DISPONLY+1*, DISPONLY+2, DISPONLY+3*, DISPONLY+4, DISPONLY+5, DISPONLY+6*, DISPONLY+7, SLDEA+1~
, SLDEA+21*, SLDEA+22, SLDEA+23*, SLDEA+24, SLDEA+25, SLDEA+26*, SLDEA+27
DNDEADAT DEALIST+17~, DEALIST+25!
DNDEADAT( DEALIST+39, DEALIST+41
DNDEAIEN DEALIST+17~, DEALIST+24*, DEALIST+25, DEALIST+27, DEALIST+31, DEALIST+36, DEALIST+39, DEALIST+41
DNDEANUM DEALIST+17~, DEALIST+30*, DEALIST+31*, DEALIST+32
DR DISP3+1~, DISP3+4*
DT USEVA+17, DEALIST+27, DEALIST+29, DEALIST+34
DTIME DISP3+19, INDISP+12
DTOUT DDIR+4!
DUOUT DDIR+4!
DUZ(2 USEVA+10, INDISP+4, INDISP+5, INDISP+6
EXPCNT DEALIST+17~, DEALIST+18*, DEALIST+28*, DEALIST+29*
EXPDATEI DEALIST+17~, DEALIST+27*, DEALIST+29, DEALIST+34, DEALIST+42
EXPFLG DEALIST+17~, DEALIST+21*, DEALIST+29*, DEALIST+33, DEALIST+34
FAIL DEALIST+17~
FLOV FAILOVER+1~, FAILOVER+2*, FAILOVER+3, FAILOVER+4, DDIR+5
IEN DISP3~, DISP3+2
IENS DEALIST+17~, DEALIST+22*, DEALIST+23, DEALIST+24, DEALIST+30, DEALIST+31, DEALIST+37, DEALIST+38
IN USEVA+1~, USEVA+8*, USEVA+9, USEVA+10*, USEVA+11, USEVA+13*, USEVA+17
INN USEVA+1~, USEVA+10*, USEVA+12, USEVA+13*, USEVA+15
MADD1 INDISP+3~, INDISP+4*, INDISP+7
MADD2 INDISP+3~, INDISP+4*, INDISP+8
MCITY INDISP+3~, INDISP+5*, INDISP+9
MSTATE INDISP+3~, INDISP+5*, INDISP+10
MZIP INDISP+3~, INDISP+6*, INDISP+11
NDEA FAILOVER+1~, FAILOVER+4*, FAILOVER+5, FAILOVER+6, DEALIST+32*, DEALIST+33, DEALIST+34, SLDEA+1~
NODE1 DEALIST+17~, DEALIST+29*, DEALIST+33*, DEALIST+34*, DEALIST+35, DEALIST+36, DEALIST+37, DEALIST+38, DEALIST+39, DEALIST+40
, DEALIST+41, DEALIST+42
NODEA USEVA+1~, USEVA+4*, USEVA+5, USEVA+6, USEVA+7*, USEVA+9
NONVA VAPROV+2~, VAPROV+6*
NPDEADAT DEALIST+17~, DEALIST+23!
NPDEADAT( DEALIST+37, DEALIST+38
NPDEAIEN DEALIST+17~, DEALIST+20*, DEALIST+22
NPIEN DEALIST~, DEALIST+20, DEALIST+22, DEALIST+32
NVA USEVA+1~, USEVA+3*, USEVA+5
PROVIEN FAILOVER+4, DISP3+12, USEVA~, USEVA+3, USEVA+4, USEVA+7, USEVA+19, INDISP~, SLDEA~, SLDEA+4
, SLDEA+5, SLDEA+7, SLDEA+9, SLDEA+11, SLDEA+12, DDIR+5, VAPROV~, VAPROV+3, VAPROV+4, VAPROV+5
, VAPROV+6
PRVTYP VAPROV+2~, VAPROV+5*
PSODRIEN SLDEA~, SLDEA+2, SLDEA+3
>> PSODRUG("IEN" DISP3+4, SLDEA+2
>> PSOEDIT INDISP+12
>> PSOPINST USEVA+10
PSORX DISP3~, USEVA~, USEVA+19, INDISP~, SLDEA~, SLDEA+9, SLDEA+13, DDIR+5, DDIR+7
PSORX("RXDEA" DISP3+20*, DISP3+21*, DISP3+22, USEVA+20, INDISP+13*, SLDEA+13
PSOY SLDEA+3~*
PSOY(0 SLDEA+3*
RES DISP3+1~, DISP3+13!, DISP3+15
RES("LABEL" DISP3+16
RET DEALIST~, DEALIST+18!
RET( DEALIST+35*, DEALIST+36*, DEALIST+37*, DEALIST+38*, DEALIST+39*, DEALIST+40*, DEALIST+41*, DEALIST+42*
RET(0 DEALIST+43*
SCHED WM3~, WM3+1
SDEA FAILOVER~, FAILOVER+4, USEVA+8, USEVA+9, DEALIST~, DEALIST+32, DISPONLY+5, SLDEA+1~, SLDEA+4*, SLDEA+5
, SLDEA+12, SLDEA+15, SLDEA+25
U FAILOVER+8, DISP3+11, DISP3+20, DISP3+21, USEVA+5, USEVA+6, USEVA+9, USEVA+10, USEVA+13, USEVA+15
, DISPONLY+2, DISPONLY+4, DISPONLY+5, DISPONLY+7, SLDEA+4, SLDEA+7, SLDEA+9, SLDEA+11, SLDEA+12, SLDEA+13
, SLDEA+18, SLDEA+22, SLDEA+24, SLDEA+25, SLDEA+27, SLDEA+29, DDIR+6, DDIR+7
VA FAILOVER~, FAILOVER+6, USEVA~, USEVA+17, SLDEA+1~, SLDEA+4*, SLDEA+7, SLDEA+9, SLDEA+11, SLDEA+12
>> X DISP3+19*, INDISP+12*
XU1 USEVA+12~
XU1("P" USEVA+13
XUEXDT USEVA+1~, USEVA+15*, USEVA+16*, USEVA+17
Y DISP3+2, SLDEA+1~, SLDEA+13*, DDIR+1~, DDIR+4, DDIR+5, DDIR+6, DDIR+7
>> ZZCOPY INDISP+12
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 |  Local Variables  | All