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

Package: Outpatient Pharmacy

Routine: PSORRX1


Information

PSORRX1 ;AITC/BWF - Remote RX driver ;8/30/16 12:00am

Source Information

Source file <PSORRX1.m>

Entry Points

Name Comments DBIA/ICR reference
REMOTERX(DFN,PSOSITE) ;
LOGERR(DFN,DATA,HLDAT,NMSG) ;
RXPRSE(DFN,DATA,HLDAT) ;
REFREQ ;
PARTIAL() ;
CL ;
DRUGMTCH(DRGNM,VAPIN) ;p736 - VAPIEN directly passed into DRUGMTCH
; returns -1 if a match was found but user said NO
PRMPTXT ;
DIR() ;
POST ; post init for PSO*7*454
OPAI() ; determine if drug will go through OPAI

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"There was a problem creating the PID segment for this patient.",!,"Please contact technical support.",!
  • Line Location: REMOTERX+11
Function Call: WRITE
  • Prompt: !!,"When trying to query prescriptions at other VA Pharmacy",!,"Locations the following message was encountered:",!,"***",!,HLERR,!,"***",!
  • Line Location: LOGERR+6
Function Call: WRITE
  • Prompt: !!,"Only 'ACTIVE' remote prescriptions may be refilled at this time."
  • Line Location: REFREQ+12
Function Call: WRITE
  • Prompt: !!,"Missing VA Product IEN. Rx# ",RXNUM," cannot be refilled."
  • Line Location: REFREQ+17
Function Call: WRITE
  • Prompt: !,"Cannot refill Rx # ",RXNUM,"."
  • Line Location: REFREQ+20
Function Call: WRITE
  • Prompt: !!,"Processing refill request. Please be patient as it may take a moment"
  • Line Location: REFREQ+37
Function Call: WRITE
  • Prompt: !,"for the host site to respond and generate your label data...",!
  • Line Location: REFREQ+38
Function Call: WRITE
  • Prompt: !!,"Only 'ACTIVE' remote prescriptions may be actioned at this time."
  • Line Location: PARTIAL+7
Function Call: WRITE
  • Prompt: !,"Missing VA Product ID. Rx# ",PRXNUM," cannot process a partial fill."
  • Line Location: PARTIAL+17
Function Call: WRITE
  • Prompt: !,"Cannot process a partial fill for Rx # ",PRXNUM,"."
  • Line Location: PARTIAL+20
Function Call: WRITE
  • Prompt: !,"Cancelling partial fill request.",!
  • Line Location: PARTIAL+41
Function Call: WRITE
  • Prompt: !!,"Processing partial fill request. Please be patient as it may take a moment"
  • Line Location: PARTIAL+55
Function Call: WRITE
  • Prompt: !,"for the host site to respond and generate your label data...",!
  • Line Location: PARTIAL+56
Function Call: WRITE
  • Prompt: !,"An error was encountered when trying to process the results",!,"from the refill/partial fill request.",!!,$P(HL,U,3)
  • Line Location: PARTIAL+62
Function Call: WRITE
  • Prompt: !!,"Remote site drug name: "_$G(DRGNM)
  • Line Location: DRUGMTCH+10
Function Call: WRITE
  • Prompt: !!,"VA Product ID: ",VAPIDSTR," CS FEDERAL SCHEDULE: ",+CSSCH
  • Line Location: DRUGMTCH+15
Function Call: WRITE
  • Prompt: !!,"Controlled substances are not allowed for ONEVA Pharmacy dispensing.",!
  • Line Location: DRUGMTCH+16
Function Call: WRITE
  • Prompt: !!,"Remote site VA PRODUCT IDENTIFIER: "_VAPIDSTR_" *** NOT FOUND ***",!
  • Line Location: DRUGMTCH+21
Function Call: WRITE
  • Prompt: !,"Matching Drug Found for Dispensing: "_LDNAME
  • Line Location: DRUGMTCH+41
Function Call: WRITE
  • Prompt: !,"No active drug name match found for "_DRGNM_"."
  • Line Location: DRUGMTCH+44
Function Call: WRITE
  • Prompt: !!,"Drugs matching the VA PRODUCT IDENTIFIER:"
  • Line Location: DRUGMTCH+62
Function Call: WRITE
  • Prompt: !
  • Line Location: DRUGMTCH+84
Function Call: WRITE
  • Prompt: !,"No other local match could be found for "_DRGNM_"."
  • Line Location: DRUGMTCH+85
Function Call: WRITE
  • Prompt: !,"You may need to update your Drug file to process this order"
  • Line Location: DRUGMTCH+86

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^VA(200 - [#200] GET1^DIQ
^DIC(4 - [#4] FIND1^DIC
^PSDRUG - [#50] GET1^DIQ
^PSNDF(50.68 - [#50.68] GET1^DIQ
^HLCS(870 - [#870] FIND1^DIC
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call