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

Package Total Call Graph
Outpatient Pharmacy 4 DSPERX^PSOERUT  $$GETDRUG^PSOERXU5  DIRE^PSOERXX1  PAUSE^PSOSPMU1  
VA FileMan 4 ^DIC  $$GET1^DIQ  ^DIR  EN^DIWE  
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?
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
DEFREA(REACODE) ; Returns the Default Change Request Reason Text
; Input: REACODE - Pointer to the ERX SERVICE REASON CODES (#52.45)
HELP ; Sub-Code List
SUMMARY ; Displays a Summary of the RxChangeRequest
LISTMEDS ; Display Meds Already entered
PAUSE ; Decides whether to pause the listing or not

External References

Name Field # of Occurrence
^DIC DRUG+24, QTYUM+3
$$GET1^DIQ DRUG+15, DRUG+16, DRUG+17, DRUG+28, 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, DEFREA+4, SUMMARY+5
, SUMMARY+7
^DIR DRUG+5, SUBS+3, QTY+2, QTYQUAL+5, DAYSSUP+2, NUMREFS+2, NOTE+4
EN^DIWE SIG+5
DSPERX^PSOERUT DRUG+2
$$GETDRUG^PSOERXU5 LOADMED+4
DIRE^PSOERXX1 SIG+10
PAUSE^PSOSPMU1 HELP+3
$$GETNDC^PSSNDCUT DRUG+27, DRUG+28

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: DRUG+1
Function Call: WRITE
  • Prompt: !!,"eRx Drug: ",DRUG," ",$S(DRUGCODQ="ND":"NDC",1:"UPN")_": ",DRUGCODE,!
  • Line Location: DRUG+18
Function Call: WRITE
  • Prompt: !
  • Line Location: DRUG+19
Function Call: WRITE
  • Prompt: !!,"VistA Drug is required",!,$C(7)
  • Line Location: DRUG+26
Function Call: WRITE
  • Prompt: !!,"VistA Drug is missing the NDC Code, please select a different drug.",!,$C(7)
  • Line Location: DRUG+27
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
Function Call: WRITE
  • Prompt: !," Complete List of Change Request Sub-Codes:",!
  • Line Location: HELP+1
Function Call: READ
  • Prompt: !
  • Variable: "Type <Enter> to continue or '^' to exit
  • Timeout: ",XX:DTIME
  • Line Location: HELP+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SUMMARY+2
Function Call: WRITE
  • Prompt: !
  • Line Location: SUMMARY+4
Function Call: WRITE
  • Prompt: !,$G(IOUON),XX,$G(IOUOFF)
  • Line Location: SUMMARY+4
Function Call: WRITE
  • Prompt: !
  • Line Location: SUMMARY+5
Function Call: WRITE
  • Prompt: "Change Request Reason Code: ",HIGH,$$GET1^DIQ(52.45,+$G(REACODE),.01)," - ",$$GET1^DIQ(52.45,+$G(REACODE),.02),NORM
  • Line Location: SUMMARY+5
Function Call: WRITE
  • Prompt: !
  • Line Location: SUMMARY+7
Function Call: WRITE
  • Prompt: "Change Request Reason Sub-Code: ",HIGH,$$GET1^DIQ(52.45,+$G(REASCODE),.01)," - ",$$GET1^DIQ(52.45,+$G(REASCODE),.02),NORM
  • Line Location: SUMMARY+7
Function Call: WRITE
  • Prompt: !,HIGH,REATXT(I),NORM
  • Line Location: SUMMARY+9
Function Call: WRITE
  • Prompt: !
  • Line Location: SUMMARY+10
Function Call: WRITE
  • Prompt: !
  • Line Location: SUMMARY+13
Function Call: WRITE
  • Prompt: "Suggested Medication: ",HIGH,"[VARIES FOR EACH eRx]",NORM,!
  • Line Location: SUMMARY+13
Function Call: WRITE
  • Prompt: !
  • Line Location: SUMMARY+14
Function Call: WRITE
  • Prompt: "Suggested Provider Note (For RESPONSE eRx) - SAME FOR ALL eRx's:"
  • Line Location: SUMMARY+14
Function Call: WRITE
  • Prompt: !,HIGH,$E(X,1,80),NORM
  • Line Location: SUMMARY+15
Function Call: WRITE
  • Prompt: !
  • Line Location: SUMMARY+16
Function Call: WRITE
  • Prompt: !
  • Line Location: SUMMARY+18
Function Call: WRITE
  • Prompt: "VA Progress Note Comment: ",!,HIGH,PNCOMM,NORM,!
  • Line Location: SUMMARY+18
Function Call: WRITE
  • Prompt: $G(IOUON),XX,$G(IOUOFF)
  • Line Location: SUMMARY+20
Function Call: WRITE
  • Prompt: !
  • Line Location: LISTMEDS+5
Function Call: WRITE
  • Prompt: UON,"# DRUG",?50,"QTY",?55,"# REFS",?63,"DAYS SUPPLY",?76,"SUBS",UOFF
  • Line Location: LISTMEDS+5
Function Call: WRITE
  • Prompt: !,XX,!
  • Line Location: LISTMEDS+6
Function Call: WRITE
  • Prompt: !
  • Line Location: LISTMEDS+9
Function Call: WRITE
  • Prompt: MED,?3,"(",$P(Z,"^"),")",$E($P(Z,"^",2),1,43),?50,$J($P(Z,"^",6),3),?57,$J($P(Z,"^",10),2)
  • Line Location: LISTMEDS+10
Function Call: WRITE
  • Prompt: ?65,$J($P(Z,"^",9),4),?76,$S($P(Z,"^",5):"NO",1:"YES"),!
  • Line Location: LISTMEDS+11
Function Call: WRITE
  • Prompt: ?3
  • Line Location: LISTMEDS+13
Function Call: WRITE
  • Prompt: UON,"Sig :",UOFF
  • Line Location: LISTMEDS+13
Function Call: WRITE
  • Prompt: ?9,$E(SIG,1,70),!
  • Line Location: LISTMEDS+15
Function Call: WRITE
  • Prompt: ?3
  • Line Location: LISTMEDS+17
Function Call: WRITE
  • Prompt: UON,"Note:",UOFF
  • Line Location: LISTMEDS+17
Function Call: WRITE
  • Prompt: ?9,$E(NOTE,1,71),!
  • Line Location: LISTMEDS+18
Function Call: WRITE
  • Prompt: "Press Return to continue"
  • Line Location: PAUSE+4
Function Call: WRITE
  • Prompt: $C(8)
  • Line Location: PAUSE+5
Function Call: WRITE
  • Prompt: XX
  • Line Location: PAUSE+6
Function Call: WRITE
  • Prompt: $C(8)
  • Line Location: PAUSE+7
Routine Call
  • DIC
  • Line Location:
    • DRUG+24
    • QTYUM+3
Routine Call
  • DIR
  • Line Location:
    • DRUG+5
    • 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+1, DRUG+19, DRUG+25, SUBS+3, QTY+2, QTYQUAL+5, QTYUM+3, DAYSSUP+2, NUMREFS+2, NOTE+4
@( DRUG+1, DRUG+19, SUBS+3, QTY+2, QTYQUAL+5, QTYUM+3, DAYSSUP+2, NUMREFS+2, NOTE+4
DRUG NOTE+7
EXIT DRUG+19
LISTMEDS SUMMARY+10
LOADMED EN+5, DRUG+13
NOTE SIG+11
NUMREFS NUMREFS+3, NOTE+12
PAUSE SUMMARY+4, SUMMARY+5, SUMMARY+7, SUMMARY+9, SUMMARY+13, SUMMARY+14, SUMMARY+18, LISTMEDS+5, LISTMEDS+6, LISTMEDS+10
, LISTMEDS+13, LISTMEDS+15, LISTMEDS+17, LISTMEDS+18
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
>> CHRQTYPE SUMMARY+12
CODE EN+2~, QTYQUAL+2*, QTYQUAL+3
>> CRMED EN+4*, DRUG+12, NOTE+15, NOTE+16, NOTE+17, NOTE+18, LOADMED+21, LOADMED+23, LOADMED+34, LOADMED+35
>> CRMEDS( DRUG+12, NOTE+15!, NOTE+16*, NOTE+17*, NOTE+18*, LOADMED+21, LOADMED+23, LOADMED+34, LOADMED+35, LISTMEDS+7
, LISTMEDS+8, LISTMEDS+12, LISTMEDS+14, LISTMEDS+16, LISTMEDS+17
>> CRMEDS(0 LISTMEDS+3
>> CRMEDS(99 EN+4
DAYSSUP EN+1~, DAYSSUP+1, DAYSSUP+3*, NOTE+16, LOADMED+2*, LOADMED+18*, LOADMED+32*
DEFREA DEFREA+3~, DEFREA+4*, DEFREA+5*, DEFREA+6*, DEFREA+7
DIC EN+1~, DRUG+10!, DRUG+21*, QTYUM+1!, QTYUM+2*, SIG+1!, SIG+2*
DIC("A" QTYUM+1*
DIC("B" DRUG+21*, QTYUM+1*
DIC("S" DRUG+22*, QTYUM+2*
DIC(0 DRUG+21*, QTYUM+2*
DIR EN+1~, DRUG+3!, SUBS+1!, QTY+1!, QTYQUAL+1!, DAYSSUP+1!, NUMREFS+1!, NOTE+1!
DIR("?" NOTE+3*, HELP+2
DIR("A" DRUG+4*, SUBS+1*, QTY+1*, QTYQUAL+4*, DAYSSUP+1*, NUMREFS+1*, NOTE+1*
DIR("B" DRUG+4*, SUBS+2*, QTY+1*, QTYQUAL+4*, DAYSSUP+1*, NUMREFS+1*, NOTE+2*
DIR(0 DRUG+3*, SUBS+1*, QTY+1*, QTYQUAL+1*, QTYQUAL+3*, DAYSSUP+1*, NUMREFS+1*, NOTE+1*
DIROUT EN+1~, DRUG+1, DRUG+5, SUBS+3, QTY+2, QTYQUAL+5, DAYSSUP+2, NUMREFS+2, NOTE+4
DIRUT EN+1~, DRUG+1, DRUG+5, SUBS+3, QTY+2, QTYQUAL+5, NOTE+1!
DIWESUB EN+2~, SIG+1!, SIG+4*
DRUG EN+1~, DRUG+6*, DRUG+15*, DRUG+18, DRUG+20!, DRUG+21, DRUG+28*, NOTE+7, NOTE+16, LOADMED+2*
, LOADMED+4*, LOADMED+10*, LOADMED+25*
DRUGCODE EN+1~, DRUG+6*, DRUG+16*, DRUG+17, DRUG+18, DRUG+20!, DRUG+28*, NOTE+16, LOADMED+2*, LOADMED+5*
, LOADMED+6, LOADMED+11*, LOADMED+26*
DRUGCODQ EN+1~, DRUG+6*, DRUG+17*, DRUG+18, DRUG+20!, DRUG+28*, NOTE+16, LOADMED+2*, LOADMED+6*, LOADMED+12*
, LOADMED+27*
DRUGTYPE EN+1~, DRUG+4, DRUG+6, DRUG+7*, DRUG+8*, DRUG+11, DRUG+20, NOTE+16, LOADMED+3, LOADMED+23*
, LOADMED+24
DTIME HELP+2
DUOUT EN+1~, DRUG+10!, QTYUM+3
DWDISABL EN+2~, SIG+1!, SIG+3*
DWLW EN+2~, SIG+1!, SIG+3*
DWPK EN+2~, SIG+1!, SIG+3*
>> ERXBTCHFLG DRUG+1, DRUG+8, SUMMARY+12
ERXDRUG EN+1~
>> ERXIEN DRUG+2, DRUG+15, DRUG+16, DRUG+17, LOADMED+4, LOADMED+5, LOADMED+6, LOADMED+7, LOADMED+9, LOADMED+15
, LOADMED+16, LOADMED+17, LOADMED+18, LOADMED+19
ERXSIG LOADMED+1~, SUMMARY+1~
ERXSIG( LOADMED+14
FINISH EN+2~, DRUG+23*, DRUG+24, DRUG+28*
GOTO GOTO+1~, GOTO+16*, GOTO+17*, GOTO+18, GOTO+20
HIGH SUMMARY+1~, SUMMARY+3*, SUMMARY+5, SUMMARY+7, SUMMARY+9, SUMMARY+13, SUMMARY+15, SUMMARY+18
HOME GOTO~, GOTO+16, GOTO+18
I EN+1~, LOADMED+14*, DEFREA+3~, DEFREA+5*, HELP+1~, HELP+2*, HELP+3, SUMMARY+9*, LISTMEDS+14*, LISTMEDS+15*
, LISTMEDS+18*, PAUSE+1~, PAUSE+5*, PAUSE+7*
INPUT GOTO~, GOTO+2, GOTO+4
IOF SUMMARY+2
>> IOINHI SUMMARY+3
>> IOINORM SUMMARY+3
IOSL PAUSE+3
>> IOUOFF SUMMARY+4, SUMMARY+20, LISTMEDS+4
>> IOUON SUMMARY+4, SUMMARY+20, LISTMEDS+4
J EN+1~
>> LINE SUMMARY+2*, LISTMEDS+5*, LISTMEDS+6*, PAUSE+2*, PAUSE+3
MED LISTMEDS+1~, LISTMEDS+7*, LISTMEDS+8, LISTMEDS+9, LISTMEDS+10, LISTMEDS+12, LISTMEDS+14, LISTMEDS+16, LISTMEDS+17
MEDIEN SUMMARY+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
NORM SUMMARY+1~, SUMMARY+3*, SUMMARY+5, SUMMARY+7, SUMMARY+9, SUMMARY+13, SUMMARY+15, SUMMARY+18
NOTE LISTMEDS+1~, LISTMEDS+17*, LISTMEDS+18*
>> NOTE2PRV NOTE+2, NOTE+5*, NOTE+17, LOADMED+2*, LOADMED+34*, SUMMARY+15
NOTES SUMMARY+1~
NUMREFS EN+2~, NUMREFS+1, NUMREFS+4*, NOTE+12, NOTE+16, LOADMED+19*, LOADMED+33*
>> PNCOMM SUMMARY+18
PSOQUIT EN+2~, GOTO+2*
>> PSOSITE DRUG+27, DRUG+28
QTY EN+2~, QTY+1, QTY+4*, 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*, SUMMARY+1~
QTYUM EN+2~, QTYUM+1, QTYUM+6*, QTYUM+7*, NOTE+11, NOTE+16, LOADMED+2*, LOADMED+17*, LOADMED+31*
QUIT EN+2~, DRUG+10*, DRUG+19, DRUG+24, DRUG+25*
REACODE DEFREA~, DEFREA+4, SUMMARY+5
>> REASCODE SUMMARY+6, SUMMARY+7
REATXT DEFREA+3~
REATXT( DEFREA+5, SUMMARY+9
>> RESEND SUMMARY+18
>> SELCTREC SUMMARY+18
SIG LISTMEDS+1~, LISTMEDS+14*, LISTMEDS+15*
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
UOFF LISTMEDS+1~, LISTMEDS+4*, LISTMEDS+5, LISTMEDS+13, LISTMEDS+17
UON LISTMEDS+1~, LISTMEDS+4*, LISTMEDS+5, LISTMEDS+6, LISTMEDS+13, LISTMEDS+17
X EN+1~, EN+2~, DRUG+1, DRUG+19, DRUG+25, SUBS+3, QTY+2, QTY+3, QTYQUAL+5, QTYUM+3
, QTYUM+4, DAYSSUP+2, NUMREFS+2, NUMREFS+3, SIG+1!, SIG+6*, SIG+7, NOTE+4, LOADMED+13*, DEFREA+3~
, DEFREA+4*, SUMMARY+1~, SUMMARY+15*, PAUSE+1~, PAUSE+4*
XX HELP+1~, HELP+2*, SUMMARY+1~, SUMMARY+4*, SUMMARY+20*, LISTMEDS+1~, LISTMEDS+6*, PAUSE+1~, PAUSE+6*
Y EN+1~, DRUG+6, DRUG+7, DRUG+26, DRUG+27, DRUG+28, SUBS+4, QTY+4, QTYQUAL+6, QTYUM+5
, QTYUM+7, DAYSSUP+3, NUMREFS+4, NOTE+5, LISTMEDS+1~, PAUSE+1~, PAUSE+3*
Z LOADMED+1~, LOADMED+23*, LOADMED+25, LOADMED+26, LOADMED+27, LOADMED+28, LOADMED+29, LOADMED+30, LOADMED+31, LOADMED+32
, LOADMED+33, LISTMEDS+1~, LISTMEDS+8*, LISTMEDS+10, LISTMEDS+11
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