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

Package: Outpatient Pharmacy

Routine: PSOERUT6


Information

PSOERUT6 ;ALB/MFR - eRx & Pending Order Side-by-Side LM Display - Cont'd; 06/25/2023 5:14pm

Source Information

Source file <PSOERUT6.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; Continuation of PSOERUT5 due to routine size limit
VISTAPAT(ERXIEN) ; Returns the VistA Patient For Responses that pass through the eRx Holding Queue w/out matching/validation
; Input: ERXIEN - Pointer to the ERX HOLDING QUEUE (#52.49)
CSERX(ORD) ; Check whether a Pending Order is for a CS eRx
; Input: ORD - Pointer to OUTPATIENT PENDING ORDER file (#52.41)
CSDRG(DRGIEN) ; Controlled Substance drug?
; Input: DRGIEN - Pointer to DRUG file (#50)
VS(ERXIEN,TYPE) ; View Suggestion(s)
LASTRXST(RXIEN) ; Returns the Rx Last Fill status (For Future Fill Suggestion only)
; Input: RXIEN - pointer to PRESCRIPTION file (#52)
NARRATIV(DFN,NMSPC,MODE) ;Display the Pharmacy Narrative
MATCHSUG(ERXIEN,VIEW) ; Match Suggestion Prompt
; Input: ERXIEN - Pointer to ERX HOLDING QUEUE file (#52.49)
; (o)VIEW - View Only Mode (1:YES,0/null: NO)
CMPMEDS(ERXIEN,VISTARX,COUNTER) ; Display the Comparison Between eRx and VistA Providers
PROMPTPI(ERXIEN,MATCHSUG) ;Once the user accept the suggested rx, prompt if user want to copy the patient instruction for that suggested rx into the eRx.
VIEWNOTE ; View Suggested Rx Notice

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: CSERX+3
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: VS+12
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: VS+21
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: VS+24
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: VS+26
Function Call: WRITE
  • Prompt: !
  • Line Location: MATCHSUG+50
Function Call: WRITE
  • Prompt: !
  • Line Location: MATCHSUG+58
Function Call: WRITE
  • Prompt: !
  • Line Location: MATCHSUG+58
Function Call: WRITE
  • Prompt: !?64,"Forgetting..."
  • Line Location: MATCHSUG+59
Function Call: WRITE
  • Prompt: "Ok."
  • Line Location: MATCHSUG+59
Function Call: WRITE
  • Prompt: "Ok."
  • Line Location: MATCHSUG+59
Function Call: WRITE
  • Prompt: !?55,"|Sugg. "
  • Line Location: CMPMEDS+6
Function Call: WRITE
  • Prompt: $G(IOINHI)_+$G(COUNTER)_$G(IOINORM)_" of "_$G(IOINHI)_$P($G(COUNTER),"^",2)_$G(IOINORM)
  • Line Location: CMPMEDS+6
Function Call: WRITE
  • Prompt: " - ",$G(IOINHI)_$$FMTE^XLFDT($$GET1^DIQ(52,VISTARX,21,"I")\1,"2Z")_$G(IOINORM),?79,"|"
  • Line Location: CMPMEDS+7
Function Call: WRITE
  • Prompt: !,$G(IORVON)_"ERX MED"_$G(IORVOFF),?41,$G(IORVON)_"VISTA MED"_$G(IORVOFF)
  • Line Location: CMPMEDS+8
Function Call: WRITE
  • Prompt: ?55,"|From Rx#: "_$G(IOINHI)_$$GET1^DIQ(52,VISTARX,.01)_$G(IOINORM),?79,"|"
  • Line Location: CMPMEDS+9
Function Call: WRITE
  • Prompt: !,XX
  • Line Location: CMPMEDS+10
Function Call: WRITE
  • Prompt: !!,"Rx #"_$G(IOINHI)_VARXNUM_$G(IOINORM)," PATIENT INSTRUCTIONS:"
  • Line Location: PROMPTPI+28
Function Call: WRITE
  • Prompt: !,$G(IOINHI)_PATINSARY(I)_$G(IOINORM)
  • Line Location: PROMPTPI+30
Function Call: WRITE
  • Prompt: !
  • Line Location: PROMPTPI+31
Function Call: WRITE
  • Prompt: !,$G(IOUON),XX,$G(IOUOFF)
  • Line Location: VIEWNOTE+1
Function Call: WRITE
  • Prompt: !,"You will be taken to the VistA Rx#",$$GET1^DIQ(52,VISTARX,.01)," that was entered in the past for the"
  • Line Location: VIEWNOTE+2
Function Call: WRITE
  • Prompt: !,"same Product (NDC/SIG/Qty/Days Supply/# of Refills/Substitution) for a different"
  • Line Location: VIEWNOTE+3
Function Call: WRITE
  • Prompt: !,"eRx. This VistA Rx may or may not be for the same patient in this erx being"
  • Line Location: VIEWNOTE+4
Function Call: WRITE
  • Prompt: !,"processed."
  • Line Location: VIEWNOTE+5
Function Call: WRITE
  • Prompt: !,$G(IOUON),XX,$G(IOUOFF)
  • Line Location: VIEWNOTE+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
^PSDRUG - [#50] GET1^DIQ
^PSRX - [#52] GET1^DIQ
^PS(52.41 - [#52.41] GET1^DIQ
^PS(52.49 - [#52.49] GET1^DIQ
^PS(55 - [#55] GET1^DIQ
^PS(59.7 - [#59.7] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call