Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

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+22
Function Call: WRITE
  • Prompt: !,"Please select the correct DEA number for the prescription being entered"
  • Line Location: SLDEA+22
Function Call: WRITE
  • Prompt: !,"* "_$P($G(DEARY(1,DLOOP)),U,2)
  • Line Location: SLDEA+24
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+24
Function Call: WRITE
  • Prompt: " "_$P($G(DEARY(1,DLOOP)),U,4)_" Expired: "_$P($G(DEARY(1,DLOOP)),U,6)
  • Line Location: SLDEA+24
Function Call: WRITE
  • Prompt: !,"* "_$P($G(DEARY(3,DLOOP)),U,2)
  • Line Location: SLDEA+26
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+26
Function Call: WRITE
  • Prompt: " "_$P($G(DEARY(3,DLOOP)),U,4)_" Not Valid for Schedule: "_SDEA
  • Line Location: SLDEA+27
Function Call: WRITE
  • Prompt: !,DCNT_". "_$P($G(DEARY(2,DLOOP)),U,2)
  • Line Location: SLDEA+29
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+29
Function Call: WRITE
  • Prompt: " "_$P($G(DEARY(2,DLOOP)),U,4)
  • Line Location: SLDEA+29

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call