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

Package: Outpatient Pharmacy

Routine: PSODIR


Information

PSODIR ;BHAM ISC/SAB - asks data for rx order entry ;Oct 20, 2022@17:03

Source Information

Source file <PSODIR.m>

Entry Points

Name Comments DBIA/ICR reference
PROV(PSODIR) ;
PROVEN ; Entry point for failed lookup
NODRUG
PROVX
DRGSCH() ; determine the drug schedule
GENERIC ;
GENERICX
COSIGN ;
COSIGN1
COSIGNX
DOSE(PSODIR) ;add dosing info
EX
INS(PSODIR) ;patient instructions
INSD
SINS(PSODIR) ;other lang. patient instructions
DIR ;
DIRX
JUMP ;
JUMPX
INDICAT(PSODIR) ;*441
INDICAT1 ;
SIND(PSODIR) ;
OIND ;
OINDI1 ;
DELIND
SLDEA(PROVIEN,PSORX,DFLTDEA,PSODRIEN) ; DEA Selection

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,"Provider is being edited by "_$P($G(^VA(200,PSOED,0)),"^")
  • Line Location: PROVEN+19
Function Call: WRITE
  • Prompt: $C(7),!!,"Provider is being edited by an unknown user or has been deleted"
  • Line Location: PROVEN+20
Function Call: WRITE
  • Prompt: $C(7),!!,"Provider must have a DETOX# to order this drug.",!
  • Line Location: PROVEN+25
Function Call: WRITE
  • Prompt: $C(7),!!,"Provider not authorized to write Federal Schedule "_SDEA_" prescriptions."
  • Line Location: PROVEN+30
Function Call: WRITE
  • Prompt: !,"Please contact the provider.",!
  • Line Location: PROVEN+31
Function Call: WRITE
  • Prompt: $C(7),!!,"Provider must have a valid DEA# or VA# to write prescriptions for this drug.",!
  • Line Location: PROVEN+32
Function Call: WRITE
  • Prompt: $C(7),!!,"Provider must have a DETOX# to order this drug.",!
  • Line Location: PROVEN+35
Function Call: WRITE
  • Prompt: !!,"INDICATION:"
  • Line Location: INDICAT+9
Function Call: WRITE
  • Prompt: $C(7),!?5,"MAX OF 32 CHARACTERS ALLOWED WITHOUT SPACES.",!
  • Line Location: INDICAT1+10
Function Call: WRITE
  • Prompt: $C(7),!?5,"MAX OF 32 CHARACTERS ALLOWED BETWEEN SPACES.",!
  • Line Location: INDICAT1+12
Function Call: WRITE
  • Prompt: !,PSODIR("IND"),!
  • Line Location: INDICAT1+18
Function Call: WRITE
  • Prompt: $C(7),!!?5,"OTHER INDICATION REQUIRED",!
  • Line Location: SIND+18
Function Call: WRITE
  • Prompt: $C(7),!!?5,"INDICATION REQUIRED",!
  • Line Location: SIND+19
Function Call: WRITE
  • Prompt: !!,"OTHER LANGUAGE INDICATION:"
  • Line Location: OIND+8
Function Call: WRITE
  • Prompt: $C(7),!?5,"MAX OF 32 CHARACTERS ALLOWED WITHOUT SPACES.",!
  • Line Location: OINDI1+10
Function Call: WRITE
  • Prompt: $C(7),!?5,"MAX OF 32 CHARACTERS ALLOWED BETWEEN SPACES.",!
  • Line Location: OINDI1+12
Function Call: WRITE
  • Prompt: $C(7),!!?5,"ANY DATA ENTERED FOR "_$S($G(PSODELINS)=2:"OTHER INDICATION",1:"INDICATION")
  • Line Location: DELIND+3
Function Call: WRITE
  • Prompt: $C(7),!?5,"WILL ALSO BE DELETED.",!
  • Line Location: DELIND+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSNDF(50.68 - [#50.68] GET1^DIQ
^PS(59.7 - [#59.7] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call