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

Package: Outpatient Pharmacy

Routine: PSOERPV1


Information

PSOERPV1 ;BIRM/MFR - eRx Provider Supporting API's ;08/29/22

Source Information

Source file <PSOERPV1.m>

Entry Points

Name Comments DBIA/ICR reference
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)
CMPPRV(ERXIEN,VISTAPRV,LSTERXID,COUNTER) ; Display the Comparison Between eRx and VistA Providers
PRVIDS ; Provider Lookup Identifiers Display (set on DIC("W"))

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: MATCHSUG+30
Function Call: WRITE
  • Prompt: !
  • Line Location: MATCHSUG+35
Function Call: WRITE
  • Prompt: !
  • Line Location: MATCHSUG+35
Function Call: WRITE
  • Prompt: !?50,"Forgetting..."
  • Line Location: MATCHSUG+36
Function Call: WRITE
  • Prompt: "done."
  • Line Location: MATCHSUG+36
Function Call: WRITE
  • Prompt: "done."
  • Line Location: MATCHSUG+36
Function Call: WRITE
  • Prompt: !?55,"|Sugg. "
  • Line Location: CMPPRV+8
Function Call: WRITE
  • Prompt: $G(IOINHI)_+$G(COUNTER)_$G(IOINORM)_" of "_$G(IOINHI)_$P($G(COUNTER),"^",2)_$G(IOINORM)
  • Line Location: CMPPRV+8
Function Call: WRITE
  • Prompt: " - ",$G(IOINHI)_$$FMTE^XLFDT($$GET1^DIQ(52.49,LSTERXID,1.9,"I")\1,"2Z")_$G(IOINORM),"|"
  • Line Location: CMPPRV+9
Function Call: WRITE
  • Prompt: !,$G(IORVON)_"ERX PROVIDER"_$G(IORVOFF),?41,$G(IORVON)_"VISTA PROVIDER"_$G(IORVOFF)
  • Line Location: CMPPRV+10
Function Call: WRITE
  • Prompt: ?55,"|From eRx#: "_$G(IOINHI)_$$GET1^DIQ(52.49,LSTERXID,.01)_$G(IOINORM),?79,"|"
  • Line Location: CMPPRV+11
Function Call: WRITE
  • Prompt: !,XX
  • Line Location: CMPPRV+12
Function Call: WRITE
  • Prompt: " ",$P(Z,U,4)
  • Line Location: PRVIDS+2
Function Call: WRITE
  • Prompt: ",",$P(^DIC(5,+$P(Z,U,5),0),U,2)
  • Line Location: PRVIDS+2
Function Call: WRITE
  • Prompt: " DEA#: ",$P(Z1,"^",2)
  • Line Location: PRVIDS+3
Function Call: WRITE
  • Prompt: " (Exp: "_$$FMTE^XLFDT($P(Z2,"^",9),"2Z")_")"
  • Condition for execution: $P(Z2,"^",9)
  • Line Location: PRVIDS+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(52.49 - [#52.49] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call