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

Package: Outpatient Pharmacy

Routine: PSOERCR0


Information

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

Source Information

Source file <PSOERCR0.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; Action Entry Point
EN1 ; Loop Entry Point
NOTES ; NOTE TO PROVIDER Prompt (Max 260 characters)
PNCOMM ; Patient Progress Note Comments
RESENDEC ;Allows a user to resend an eRx Change request in the Inbound eRx application
EXIT ; Exit the action
DEFREA(REACODE) ; Returns the Default Change Request Reason Text
; Input: REACODE - Pointer to the ERX SERVICE REASON CODES (#52.45)
HELP ; Sub-Code List
LISTMEDS ; Display Meds Already entered
SUMMARY ; Displays a Summary of the RxChangeRequest
PAUSE ; Decides whether to pause the listing or not

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Institution NPI Number could not be found. Cannot create Change Request."
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: !!,$G(IOINHI),"You do not have the appropriate key to access this option.",!,$G(IOINORM)
  • Line Location: EN+13
Function Call: WRITE
  • Prompt: !!,$G(IOINHI),"Change Request may not be used for this record type.",!,$G(IOINORM)
  • Line Location: EN+20
Function Call: WRITE
  • Prompt: !!,$G(IOINHI),"The VistA Patient must be matched and validated first.",!,$G(IOINORM)
  • Line Location: EN+23
Function Call: WRITE
  • Prompt: !!,$G(IOINHI),CRFOUND," Rx Change Request",$S(CRFOUND>1:"s have",1:" has")," already been sent for this eRx.",$G(IOINORM)
  • Line Location: EN+30
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+31
Function Call: WRITE
  • Prompt: !!,$G(IOINHI),"Substitutions are already allowed by prescriber for this eRx.",$G(IOINORM),$C(7)
  • Line Location: EN1+13
Function Call: WRITE
  • Prompt: !,DIWESUB,":"
  • Line Location: NOTES+7
Function Call: WRITE
  • Prompt: !!,$G(IOINHI),"The maximum length for this note is 260 characters.",$G(IOINORM),$C(7)
  • Line Location: NOTES+11
Function Call: WRITE
  • Prompt: !!,$G(IOINHI),"The place holder [DRUG_NAME] must be replaced before proceeding.",$G(IOINORM),$C(7)
  • Line Location: NOTES+12
Function Call: WRITE
  • Prompt: !!,$G(IOINHI),"The place holder [ADD_TEXT_HERE] must be replaced before proceeding.",$G(IOINORM),$C(7)
  • Line Location: NOTES+13
Function Call: WRITE
  • Prompt: !
  • Line Location: NOTES+18
Function Call: WRITE
  • Prompt: !!,"A maximum of 9 Drug Suggestion can be entered!",!,$C(7)
  • Line Location: NOTES+35
Function Call: WRITE
  • Prompt: !
  • Line Location: NOTES+36
Function Call: WRITE
  • Prompt: !
  • Line Location: NOTES+37
Function Call: WRITE
  • Prompt: !
  • Line Location: NOTES+39
Function Call: WRITE
  • Prompt: !
  • Line Location: NOTES+42
Function Call: WRITE
  • Prompt: !
  • Line Location: NOTES+44
Function Call: WRITE
  • Prompt: !
  • Line Location: NOTES+48
Function Call: WRITE
  • Prompt: !
  • Line Location: NOTES+48
Function Call: WRITE
  • Prompt: !?64,"Deleting..."
  • Line Location: NOTES+49
Function Call: WRITE
  • Prompt: "Ok.",!
  • Line Location: NOTES+49
Function Call: WRITE
  • Prompt: !
  • Line Location: PNCOMM+3
Function Call: WRITE
  • Prompt: !!,$G(IOINHI),"You must enter either Notes to Provider or at least one Drug Suggestion",$G(IOINORM),$C(7)
  • Line Location: PNCOMM+7
Function Call: WRITE
  • Prompt: !,$G(IOINHI),"before proceeding.",$G(IOINORM),$C(7)
  • Line Location: PNCOMM+8
Function Call: WRITE
  • Prompt: !!,$G(IOINHI),"Resend Change Request may not be used for this record type.",$G(IOINORM),!
  • Line Location: RESENDEC+8
Function Call: WRITE
  • Prompt: !
  • Line Location: RESENDEC+11
Function Call: WRITE
  • Prompt: !
  • Line Location: RESENDEC+16
Function Call: WRITE
  • Prompt: !!,"Sending Request to Provider..."
  • Line Location: RESENDEC+20
Function Call: WRITE
  • Prompt: !,$P(PSSRET(0),U,2)
  • Line Location: RESENDEC+64
Function Call: WRITE
  • Prompt: !,PSSRET("errorMessage")
  • Line Location: RESENDEC+65
Function Call: WRITE
  • Prompt: !,"The eRx Processing hub did not return a Hub identification number."
  • Line Location: RESENDEC+66
Function Call: WRITE
  • Prompt: "Done."
  • Line Location: RESENDEC+75
Function Call: WRITE
  • Prompt: !,"A problem was encountered while trying to file the RxChange request."
  • Line Location: RESENDEC+78
Function Call: WRITE
  • Prompt: !,"RxChange Request was not filed in vista."
  • Line Location: RESENDEC+79
Function Call: WRITE
  • Prompt: !!,"ERROR: "_$P(RES,U,2)
  • Line Location: RESENDEC+80
Function Call: WRITE
  • Prompt: !
  • Line Location: RESENDEC+92
Function Call: WRITE
  • Prompt: !
  • Line Location: EXIT+3
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: !
  • Line Location: LISTMEDS+5
Function Call: WRITE
  • Prompt: IOUON
  • Condition for execution: $D(IOUON)
  • Line Location: LISTMEDS+5
Function Call: WRITE
  • Prompt: "# DRUG",?50,"QTY",?55,"# REFS",?63,"DAYS SUPPLY",?76,"SUBS"
  • Line Location: LISTMEDS+5
Function Call: WRITE
  • Prompt: IOUOFF
  • Condition for execution: $D(IOUOFF)
  • 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: IOUON
  • Condition for execution: $D(IOUON)
  • Line Location: LISTMEDS+13
Function Call: WRITE
  • Prompt: "Sig :"
  • Line Location: LISTMEDS+13
Function Call: WRITE
  • Prompt: IOUOFF
  • Condition for execution: $D(IOUOFF)
  • 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: IOUON
  • Condition for execution: $D(IOUON)
  • Line Location: LISTMEDS+17
Function Call: WRITE
  • Prompt: "Note:"
  • Line Location: LISTMEDS+17
Function Call: WRITE
  • Prompt: IOUOFF
  • Condition for execution: $D(IOUOFF)
  • Line Location: LISTMEDS+17
Function Call: WRITE
  • Prompt: ?9,$E(NOTE,1,71),!
  • Line Location: LISTMEDS+18
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SUMMARY+3
Function Call: WRITE
  • Prompt: !
  • Line Location: SUMMARY+5
Function Call: WRITE
  • Prompt: !,$G(IOUON),XX,$G(IOUOFF)
  • Line Location: SUMMARY+5
Function Call: WRITE
  • Prompt: !
  • Line Location: SUMMARY+6
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+6
Function Call: WRITE
  • Prompt: !
  • Line Location: SUMMARY+8
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+8
Function Call: WRITE
  • Prompt: !,HIGH,REATXT(I),NORM
  • Line Location: SUMMARY+10
Function Call: WRITE
  • Prompt: !
  • Line Location: SUMMARY+12
Function Call: WRITE
  • Prompt: !
  • Line Location: SUMMARY+14
Function Call: WRITE
  • Prompt: "VA Progress Note Comment: ",!,HIGH,PNCOMM,NORM,!
  • Line Location: SUMMARY+14
Function Call: WRITE
  • Prompt: $G(IOUON),XX,$G(IOUOFF)
  • Line Location: SUMMARY+16
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
^PS(52.45 - [#52.45] GET1^DIQ
^PS(52.49 - [#52.49] GET1^DIQ
^PS(59 - [#59] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call