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

Package: Outpatient Pharmacy

Routine: PSOERXX1


Information

PSOERXX1 ;ALB/BWF - eRx xml utilities ; 8/3/2016 5:14pm

Source Information

Source file <PSOERXX1.m>

Entry Points

Name Comments DBIA/ICR reference
RREQLST(PSOLST,PSOSITE,PSOCNT) ;
RREQSIN(RXIEN,PSOSITE) ;
RREQOP(PSOIEN,PSOSITE) ;
CREQHQ(PSOIEN,PSOSITE) ;
FMES(PSOIEN) ;
DRGPRMPT(DRG) ;
; Prompt for drug
CREQBD(RXIEN) ;
CREQPO(ORIEN) ;
RREQ(PSOIEN,RXIEN,ORNUM,PSOSITE,MESSID,REFREQ) ;RefillRequest
CREQ(PSOIEN,REQDRUG,PSOSITE,ORNUM,RXIEN) ;ChangeRequest
RXFILL(PSOIEN,FP,NOTE,RXIEN,ORNUM) ;
DIRE ;
CONVXML(ARYNM) ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"NOTE: If you have selected items that are not inbound eRx Prescriptions,"
  • Line Location: RREQLST+5
Function Call: WRITE
  • Prompt: !,"those entries will be skipped during the RxRenewal process.",!!
  • Line Location: RREQLST+6
Function Call: WRITE
  • Prompt: !,"This item is "_$P(PSOLST(ITEM),U,3)_" and cannot be renewed.",!
  • Line Location: RREQLST+11
Function Call: WRITE
  • Prompt: !,$P(PRECHECK,U,2),!
  • Line Location: RREQLST+21
Function Call: WRITE
  • Prompt: !!,"RxRenewal request may not be used. This prescription is not an eRx."
  • Line Location: RREQSIN+3
Function Call: WRITE
  • Prompt: !!,"Now renewing prescription #: "_$$GET1^DIQ(52,RXIEN,.01,"E")
  • Line Location: RREQSIN+5
Function Call: WRITE
  • Prompt: !,"Patient: "_$$GET1^DIQ(52,RXIEN,2,"E")
  • Line Location: RREQSIN+6
Function Call: WRITE
  • Prompt: !,"Drug/Supply: "_RXDRUGN,!!
  • Line Location: RREQSIN+7
Function Call: WRITE
  • Prompt: !,"# of Refills: "_$$GET1^DIQ(52,RXIEN,9,"E"),?30,"Days Supply: "_$$GET1^DIQ(52,RXIEN,8,"E"),?52,"Quantity: "_$$GET1^DIQ(52,RXIEN,7,"E")
  • Line Location: RREQSIN+8
Function Call: WRITE
  • Prompt: !,$P(PRECHECK,U,2),!
  • Line Location: RREQSIN+10
Function Call: WRITE
  • Prompt: !!,"Renewals are prohibited for this eRx."
  • Line Location: RREQOP+10
Function Call: WRITE
  • Prompt: !!,"NPI could not be established. Cannot create renewal request."
  • Line Location: RREQOP+21
Function Call: WRITE
  • Prompt: !!,"No OE/RR order number. Cannot create renewal request."
  • Line Location: RREQOP+23
Function Call: WRITE
  • Prompt: !!,"RX appears to be in Pending Outpatient Orders, but not yet processed to",!,"backdoor orders."
  • Line Location: RREQOP+26
Function Call: WRITE
  • Prompt: !!,"Cannot resolve RX#. Please ensure the prescription is in the prescription file."
  • Line Location: RREQOP+27
Function Call: WRITE
  • Prompt: !!,"Rx is in suspense, cannot renew prescription."
  • Line Location: RREQOP+28
Function Call: WRITE
  • Prompt: !!,"Cannot renew Rx # "_PSORENW("ORX #")_", Max number reached."
  • Line Location: RREQOP+30
Function Call: WRITE
  • Prompt: !!,"Medication has expired, cannot renew prescription."
  • Line Location: RREQOP+32
Function Call: WRITE
  • Prompt: !!,"Refills remaining for this prescription. Cannot create RxRenewal request."
  • Line Location: RREQOP+35
Function Call: WRITE
  • Prompt: !!,"Sig is greater than 140 characters. Cannot create renewal request."
  • Line Location: RREQOP+38
Function Call: WRITE
  • Prompt: !!,"Total Number of RxRenewal requests in the last 30 days: "_RRCNT,!!
  • Line Location: RREQOP+59
Function Call: WRITE
  • Prompt: !!,"Generating RxRenewal request for Rx #: "_$$GET1^DIQ(52,RXIEN,.01,"E"),!!
  • Line Location: RREQOP+62
Function Call: WRITE
  • Prompt: !!,"Number of Refills is required. RxRenewal request cancelled."
  • Line Location: RREQOP+83
Function Call: WRITE
  • Prompt: !!,"Sending RxRenewal request for:"
  • Line Location: RREQOP+85
Function Call: WRITE
  • Prompt: !!,"Patient: "_$$GET1^DIQ(52,RXIEN,2,"E")
  • Line Location: RREQOP+86
Function Call: WRITE
  • Prompt: !,"Patient Status: "_$$GET1^DIQ(52,RXIEN,3,"E")
  • Line Location: RREQOP+87
Function Call: WRITE
  • Prompt: !,"Drug: "_$$GET1^DIQ(52,RXIEN,6,"E")
  • Line Location: RREQOP+88
Function Call: WRITE
  • Prompt: !,"Orderable Item: "_$$GET1^DIQ(52,RXIEN,39.2,"E")
  • Line Location: RREQOP+89
Function Call: WRITE
  • Prompt: !,"# of Refills Requested: "_REFREQ,?30,"Days Supply: "_$$GET1^DIQ(52,RXIEN,8,"E"),?52,"Quantity: "_$$GET1^DIQ(52,RXIEN,7,"E")
  • Line Location: RREQOP+90
Function Call: WRITE
  • Prompt: !!,"Would you like to send this RxRenewal request to the prescriber"
  • Line Location: RREQOP+91
Function Call: WRITE
  • Prompt: !!,"RxRenewal Request cancelled! No RxRenewal request will be sent."
  • Line Location: RREQOP+93
Function Call: WRITE
  • Prompt: !!,"Could not create outgoing renewal message structure."
  • Line Location: RREQOP+94
Function Call: WRITE
  • Prompt: !!,"Could not create outgoing renewal message structure."
  • Line Location: RREQOP+95
Function Call: WRITE
  • Prompt: !,$P(PSSRET(0),U,2)
  • Line Location: RREQOP+98
Function Call: WRITE
  • Prompt: !,PSSRET("errorMessage")
  • Line Location: RREQOP+99
Function Call: WRITE
  • Prompt: !,"The eRx Processing hub did not return a Hub identification number."
  • Line Location: RREQOP+100
Function Call: WRITE
  • Prompt: !!,"Renewal Request sent."
  • Line Location: RREQOP+103
Function Call: WRITE
  • Prompt: !!,"This order has been Accepted from eRx and cannot be changed."
  • Line Location: CREQHQ+3
Function Call: WRITE
  • Prompt: !!,"A current prescription exists for this eRx. Cannot change eRx."
  • Line Location: CREQHQ+4
Function Call: WRITE
  • Prompt: !!,"Insufficient drug information. Cannot create change request.",!,"Please try again."
  • Line Location: CREQHQ+9
Function Call: WRITE
  • Prompt: !!,"Could not create outgoing message structure."
  • Line Location: CREQHQ+10
Function Call: WRITE
  • Prompt: !,$P(PSSRET(0),U,2)
  • Line Location: CREQHQ+13
Function Call: WRITE
  • Prompt: !,PSSRET("errorMessage")
  • Line Location: CREQHQ+14
Function Call: WRITE
  • Prompt: !!,"Change Request sent."
  • Line Location: CREQHQ+15
Function Call: WRITE
  • Prompt: !!,"No OE/RR order number. Cannot create rx renewal request."
  • Line Location: FMES+3
Function Call: WRITE
  • Prompt: !!,"Could not resolve RX #. Please contact technical support."
  • Line Location: FMES+4
Function Call: WRITE
  • Prompt: !!,"Could not create outgoing message structure."
  • Line Location: FMES+7
Function Call: WRITE
  • Prompt: !,$P(PSSRET(0),U,2)
  • Line Location: FMES+10
Function Call: WRITE
  • Prompt: !,PSSRET("errorMessage")
  • Line Location: FMES+11
Function Call: WRITE
  • Prompt: !!,"RxFill Message sent."
  • Line Location: FMES+12

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSRX - [#52] 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