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 Jul 2025 7:14 PM

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
SENDCHRQ(ERXIEN,CRMEDS,ERXBTCHFLG) ;Batch eRx Change Request entry point, called from PSO ERX BATCH CHANGE REQUEST SUBMISSION protocol
; Input: ERXIEN - eRx for the Change Request (Pointer to to #52.49)
; CRMEDS - Array containg Suggested Med(s)
; ERXBTCHFLG - 1: Indicates a Batch CH REQ Submission
EXIT ; Exit the action

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,"Pharmacy Division Must be Selected!",!
  • Line Location: EN+12
Function Call: WRITE
  • Prompt: !!,"Institution NPI Number could not be found. Cannot create Change Request."
  • Line Location: EN+18
Function Call: WRITE
  • Prompt: !!,$G(IOINHI),"You do not have the appropriate key to access this option.",!,$G(IOINORM)
  • Line Location: EN+21
Function Call: WRITE
  • Prompt: !!,$G(IOINHI),"Change Request may not be used for this record type.",!,$G(IOINORM)
  • Line Location: EN+28
Function Call: WRITE
  • Prompt: !!,$G(IOINHI),"Change Request can only be made on Response if it has been processed/completed.",!,$G(IOINORM)
  • Line Location: EN+30
Function Call: WRITE
  • Prompt: !!,$G(IOINHI),"The VistA Patient must be matched and validated first.",!,$G(IOINORM)
  • Line Location: EN+33
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+40
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+41
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 ",X," must be replaced before proceeding.",$G(IOINORM),$C(7)
  • Line Location: NOTES+13
Function Call: WRITE
  • Prompt: !
  • Line Location: NOTES+19
Function Call: WRITE
  • Prompt: !!,"A maximum of 9 Drug Suggestion can be entered!",!,$C(7)
  • Line Location: NOTES+36
Function Call: WRITE
  • Prompt: !
  • Line Location: NOTES+37
Function Call: WRITE
  • Prompt: !
  • Line Location: NOTES+38
Function Call: WRITE
  • Prompt: !
  • Line Location: NOTES+40
Function Call: WRITE
  • Prompt: !
  • Line Location: NOTES+43
Function Call: WRITE
  • Prompt: !
  • Line Location: NOTES+45
Function Call: WRITE
  • Prompt: !
  • Line Location: NOTES+49
Function Call: WRITE
  • Prompt: !
  • Line Location: NOTES+49
Function Call: WRITE
  • Prompt: !?64,"Deleting..."
  • Line Location: NOTES+50
Function Call: WRITE
  • Prompt: "Ok.",!
  • Line Location: NOTES+50
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),"You can only used this action on an existing Change Request eRx record.",$G(IOINORM),!
  • Line Location: RESENDEC+8
Function Call: WRITE
  • Prompt: !
  • Line Location: RESENDEC+11
Function Call: WRITE
  • Prompt: !
  • Line Location: RESENDEC+25
Function Call: WRITE
  • Prompt: !!,"Sending Request to Provider..."
  • Line Location: RESENDEC+29
Function Call: WRITE
  • Prompt: !
  • Line Location: RESENDEC+37
Function Call: WRITE
  • Prompt: !,$P(PSSRET(0),U,2)
  • Line Location: SENDCHRQ+45
Function Call: WRITE
  • Prompt: !,PSSRET("errorMessage")
  • Line Location: SENDCHRQ+46
Function Call: WRITE
  • Prompt: !,"The eRx Processing hub did not return a Hub identification number."
  • Line Location: SENDCHRQ+47
Function Call: WRITE
  • Prompt: "Done."
  • Line Location: SENDCHRQ+56
Function Call: WRITE
  • Prompt: !,"A problem was encountered while trying to file the RxChange request."
  • Line Location: SENDCHRQ+59
Function Call: WRITE
  • Prompt: !,"RxChange Request was not filed in vista."
  • Line Location: SENDCHRQ+60
Function Call: WRITE
  • Prompt: !!,"ERROR: "_$P(RES,U,2)
  • Line Location: SENDCHRQ+61
Function Call: WRITE
  • Prompt: !
  • Line Location: EXIT+3

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
^TIU(8925.1 - [#8925.1] FIND1^DIC
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call