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

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 4 ^DIC  $$GET1^DIQ  ^DIR  EN^DIWE  
Outpatient Pharmacy 2 $$GETDRUG^PSOERXU5  DIRE^PSOERXX1  
Pharmacy Data Management 1 $$GETNDC^PSSNDCUT  

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

Package Total Caller Graph
Outpatient Pharmacy 1 PSOERCR0  

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

External References

Name Field # of Occurrence
^DIC DRUG+21, QTYUM+3
$$GET1^DIQ DRUG+12, DRUG+13, DRUG+14, DRUG+25, QTYQUAL+3, QTYUM+5, LOADMED+4, LOADMED+5, LOADMED+6, LOADMED+10
, LOADMED+11, LOADMED+12, LOADMED+13, LOADMED+15, LOADMED+16, LOADMED+17, LOADMED+18, LOADMED+19
^DIR DRUG+4, SUBS+3, QTY+2, QTYQUAL+5, DAYSSUP+2, NUMREFS+2, NOTE+4
EN^DIWE SIG+5
$$GETDRUG^PSOERXU5 LOADMED+4
DIRE^PSOERXX1 SIG+10
$$GETNDC^PSSNDCUT DRUG+24, DRUG+25

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
Routine Call
  • DIC
  • Line Location:
    • DRUG+21
    • QTYUM+3
Routine Call
  • DIR
  • Line Location:
    • DRUG+4
    • SUBS+3
    • QTY+2
    • QTYQUAL+5
    • DAYSSUP+2
    • NUMREFS+2
    • NOTE+4

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(52.45 - [#52.45] QTYQUAL+2
^PS(52.49 - [#52.49] LOADMED+7
^TMP("PSOCRSIG" SIG+6, SIG+7, NOTE+18, LOADMED+2!, LOADMED+14*, LOADMED+35*

Label References

Name Line Occurrences
$$GOTO DRUG+4, DRUG+16, DRUG+22, SUBS+3, QTY+4, QTYQUAL+5, QTYUM+3, DAYSSUP+2, NUMREFS+2, NOTE+4
@( DRUG+4, DRUG+16, SUBS+3, QTY+4, QTYQUAL+5, QTYUM+3, DAYSSUP+2, NUMREFS+2, NOTE+4
DRUG NOTE+7
EXIT DRUG+16
LOADMED EN+5, DRUG+10
NUMREFS NUMREFS+3, NOTE+12
QTY QTY+3, NOTE+9
QTYQUAL NOTE+10
QTYUM QTYUM+4, NOTE+11
SIG SIG+8
SUBS NOTE+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CODE EN+2~, QTYQUAL+2*, QTYQUAL+3
>> CRMED EN+4*, DRUG+9, NOTE+15, NOTE+16, NOTE+17, NOTE+18, LOADMED+21, LOADMED+23, LOADMED+34, LOADMED+35
>> CRMEDS( DRUG+9, NOTE+15!, NOTE+16*, NOTE+17*, NOTE+18*, LOADMED+21, LOADMED+23, LOADMED+34, LOADMED+35
>> CRMEDS(99 EN+4
DAYSSUP EN+1~, DAYSSUP+1, DAYSSUP+3*, NOTE+16, LOADMED+2*, LOADMED+18*, LOADMED+32*
DIC EN+1~, DRUG+7!, DRUG+18*, QTYUM+1!, QTYUM+2*, SIG+1!, SIG+2*
DIC("A" QTYUM+1*
DIC("B" DRUG+18*, QTYUM+1*
DIC("S" DRUG+19*, QTYUM+2*
DIC(0 DRUG+18*, QTYUM+2*
DIR EN+1~, SUBS+1!, QTY+1!, QTYQUAL+1!, DAYSSUP+1!, NUMREFS+1!, NOTE+1!
DIR("?" NOTE+3*
DIR("A" DRUG+3*, SUBS+1*, QTY+1*, QTYQUAL+4*, DAYSSUP+1*, NUMREFS+1*, NOTE+1*
DIR("B" DRUG+3*, SUBS+2*, QTY+1*, QTYQUAL+4*, DAYSSUP+1*, NUMREFS+1*, NOTE+2*
DIR(0 DRUG+2*, SUBS+1*, QTY+1*, QTYQUAL+1*, QTYQUAL+3*, DAYSSUP+1*, NUMREFS+1*, NOTE+1*
DIROUT EN+1~, DRUG+4, SUBS+3, QTY+4, QTYQUAL+5, DAYSSUP+2, NUMREFS+2, NOTE+4
DIRUT EN+1~, DRUG+4, SUBS+3, QTY+4, QTYQUAL+5, NOTE+1!
DIWESUB EN+2~, SIG+1!, SIG+4*
DRUG EN+1~, DRUG+5*, DRUG+12*, DRUG+15, DRUG+17!, DRUG+18, DRUG+25*, NOTE+7, NOTE+16, LOADMED+2*
, LOADMED+4*, LOADMED+10*, LOADMED+25*
DRUGCODE EN+1~, DRUG+5*, DRUG+13*, DRUG+15, DRUG+17!, DRUG+25*, NOTE+16, LOADMED+2*, LOADMED+5*, LOADMED+11*
, LOADMED+26*
DRUGCODQ EN+1~, DRUG+5*, DRUG+14*, DRUG+15, DRUG+17!, DRUG+25*, NOTE+16, LOADMED+2*, LOADMED+6*, LOADMED+12*
, LOADMED+27*
DRUGTYPE EN+1~, DRUG+3, DRUG+5, DRUG+6*, DRUG+8, DRUG+17, NOTE+16, LOADMED+3, LOADMED+23*, LOADMED+24
DUOUT EN+1~, DRUG+7!, QTYUM+3
DWDISABL EN+2~, SIG+1!, SIG+3*
DWLW EN+2~, SIG+1!, SIG+3*
DWPK EN+2~, SIG+1!, SIG+3*
ERXDRUG EN+1~
>> ERXIEN DRUG+12, DRUG+13, DRUG+14, LOADMED+4, LOADMED+5, LOADMED+6, LOADMED+7, LOADMED+9, LOADMED+15, LOADMED+16
, LOADMED+17, LOADMED+18, LOADMED+19
ERXSIG LOADMED+1~
ERXSIG( LOADMED+14
FINISH EN+2~, DRUG+20*, DRUG+21, DRUG+25*
GOTO GOTO+1~, GOTO+16*, GOTO+17*, GOTO+18, GOTO+20
HOME GOTO~, GOTO+16, GOTO+18
I EN+1~, LOADMED+14*
INPUT GOTO~, GOTO+2, GOTO+4
J EN+1~
MPIEN EN+1~, LOADMED+1~, LOADMED+7*, LOADMED+8, LOADMED+9
MPIENS EN+1~, LOADMED+1~, LOADMED+9*, LOADMED+10, LOADMED+11, LOADMED+12, LOADMED+13
MRC EN+2~, QTYUM+5*, QTYUM+6
MRCO EN+2~, QTYUM+5*, QTYUM+6
>> NOTE2PRV NOTE+2, NOTE+5*, NOTE+17, LOADMED+2*, LOADMED+34*
NUMREFS EN+2~, NUMREFS+1, NUMREFS+4*, NOTE+12, NOTE+16, LOADMED+19*, LOADMED+33*
PSOQUIT EN+2~, GOTO+2*
>> PSOSITE DRUG+24, DRUG+25
QTY EN+2~, QTY+1, QTY+5*, NOTE+9, NOTE+16, LOADMED+2*, LOADMED+15*, LOADMED+29*
QTYQUAL EN+2~, QTYQUAL+4, QTYQUAL+6*, NOTE+10, NOTE+16, LOADMED+2*, LOADMED+16*, LOADMED+30*
QTYUM EN+2~, QTYUM+1, QTYUM+6*, QTYUM+7*, NOTE+11, NOTE+16, LOADMED+2*, LOADMED+17*, LOADMED+31*
QUIT EN+2~, DRUG+7*, DRUG+16, DRUG+21, DRUG+22*
SIGLEN SIG+1!
SUBS EN+1~, SUBS+2, SUBS+4*, NOTE+8, NOTE+16, LOADMED+2*, LOADMED+28*
TAG GOTO+1~, GOTO+17*
TAG( GOTO+17
TAG("# OF REF ILLS" , GOTO+12*
TAG("DAYS SUP PLY" , GOTO+11*
TAG("DRUG SEL ECTION" , GOTO+5*
TAG("DRUG" GOTO+6*
TAG("NOTE" GOTO+14*
TAG("QTY QUAL IFIER" , GOTO+9*
TAG("QTY UNIT OF MEASURE" , GOTO+10*
TAG("QUANTITY" GOTO+8*
TAG("SIG" GOTO+13*
TAG("SUBSTITUTION" GOTO+7*
TRGT GOTO+1~, GOTO+4*, GOTO+17
TXTLEN EN+2~, SIG+1!, SIG+7*, SIG+8
U QTYUM+6
X EN+1~, EN+2~, DRUG+4, DRUG+16, DRUG+22, SUBS+3, QTY+3, QTY+4, QTYQUAL+5, QTYUM+3
, QTYUM+4, DAYSSUP+2, NUMREFS+2, NUMREFS+3, SIG+1!, SIG+6*, SIG+7, NOTE+4, LOADMED+13*
Y EN+1~, DRUG+5, DRUG+6, DRUG+23, DRUG+24, DRUG+25, SUBS+4, QTY+5, QTYQUAL+6, QTYUM+5
, QTYUM+7, DAYSSUP+3, NUMREFS+4, NOTE+5
Z LOADMED+1~, LOADMED+23*, LOADMED+25, LOADMED+26, LOADMED+27, LOADMED+28, LOADMED+29, LOADMED+30, LOADMED+31, LOADMED+32
, LOADMED+33
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