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

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

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