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

Package: Outpatient Pharmacy

Routine: PSOERCR1


Information

PSOERCR1 ;BHAM/MR - eRx Change Request Functionality - Add Drug ; 11/14/2019 3:46pm

Source Information

Source file <PSOERCR1.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; Add Medication Suggestion to eRx Change Request Entry point
DRUG ; Use eRx OR VistA drug?
; W !!,"eRx Drug: "_ERXDRUG,!
SUBS ; SUBSTITUTIONS? Prompt
QTY ; QUANTITY Prompt
QTYQUAL ; QTY QUALIFIER Prompt
QTYUM ; QTY UNIT OF MEASURE Prompt
DAYSSUP ; DAYS SUPPLY Prompt
NUMREFS ; # OF REFILLS Prompt
SIG ; SIG Prompt
NOTE ; NOTE TO PROVIDER Prompt
EXIT ; Quit
LOADMED ; Load Default Values for an existing Medication Suggestion
GOTO(INPUT,HOME) ; - Directed up-arrow

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"eRx Drug: "_ERXDRUG,!
  • Line Location: DRUG+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DRUG+4
Function Call: WRITE
  • Prompt: !!,"eRx Drug: ",DRUG," ",$S(DRUGCODQ="ND":"NDC",1:"UPN")_": ",DRUGCODE,!
  • Line Location: DRUG+15
Function Call: WRITE
  • Prompt: !
  • Line Location: DRUG+16
Function Call: WRITE
  • Prompt: !!,"VistA Drug is required",!,$C(7)
  • Line Location: DRUG+23
Function Call: WRITE
  • Prompt: !!,"VistA Drug is missing the NDC Code, please select a different drug.",!,$C(7)
  • Line Location: DRUG+24
Function Call: WRITE
  • Prompt: !!,"Quantity is required!",!,$C(7)
  • Line Location: QTY+3
Function Call: WRITE
  • Prompt: !!,"Quantity Unit of Measure is required!",!,$C(7)
  • Line Location: QTYUM+4
Function Call: WRITE
  • Prompt: !!,"# of Refills is required.",!
  • Line Location: NUMREFS+3
Function Call: WRITE
  • Prompt: !,"SIG Text: "
  • Line Location: SIG+5
Function Call: WRITE
  • Prompt: !,"Sig must be 1000 characters or less.",!
  • Line Location: SIG+9
Function Call: WRITE
  • Prompt: !,"Drug is Required!"
  • Line Location: NOTE+7
Function Call: WRITE
  • Prompt: !,"Substitution is Required!"
  • Line Location: NOTE+8
Function Call: WRITE
  • Prompt: !,"Quantity is Required!"
  • Line Location: NOTE+9
Function Call: WRITE
  • Prompt: !,"Quantity Qualifier is Required!"
  • Line Location: NOTE+10
Function Call: WRITE
  • Prompt: !,"Quantity Unit of Measure is Required!"
  • Line Location: NOTE+11
Function Call: WRITE
  • Prompt: !,"Days Supply is Required!"
  • Line Location: NOTE+12
Function Call: WRITE
  • Prompt: !?65,"Updating..."
  • Line Location: NOTE+14
Function Call: WRITE
  • Prompt: "OK"
  • Line Location: NOTE+19
Function Call: WRITE
  • Prompt: " ??",$C(7)
  • Line Location: GOTO+18

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSDRUG - [#50] GET1^DIQ
^PS(52.45 - [#52.45] Classic Fileman Calls,  GET1^DIQ
^PS(52.49 - [#52.49] GET1^DIQ
52.49311 GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call