Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA FileMan 2 $$GET1^DIQ  ^DIR  
Kernel 1 $$FMTE^XLFDT  
Outpatient Pharmacy 1 SETPROV^PSOERUT1  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Outpatient Pharmacy 1 PSOERX1A  

Entry Points

Name Comments DBIA/ICR reference
MATCHSUG(ERXIEN) ; Match Suggestion Prompt
; Input: ERXIEN - Pointer to ERX HOLDING QUEUE file (#52.49)
CMPPRV(ERXIEN,VISTAPRV,LSTERXID,COUNTER) ; Display the Comparison Between eRx and VistA Providers
PRVIDS ; Provider Lookup Identifiers Display (set on DIC("W"))

External References

Name Field # of Occurrence
$$GET1^DIQ MATCHSUG+7, CMPPRV+9, CMPPRV+11
^DIR MATCHSUG+25, MATCHSUG+32
SETPROV^PSOERUT1 CMPPRV+13
$$FMTE^XLFDT CMPPRV+9, PRVIDS+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: MATCHSUG+27
Function Call: WRITE
  • Prompt: !
  • Line Location: MATCHSUG+32
Function Call: WRITE
  • Prompt: !
  • Line Location: MATCHSUG+32
Function Call: WRITE
  • Prompt: !?50,"Forgetting..."
  • Line Location: MATCHSUG+33
Function Call: WRITE
  • Prompt: "done."
  • Line Location: MATCHSUG+33
Function Call: WRITE
  • Prompt: "done."
  • Line Location: MATCHSUG+33
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
Routine Call
  • DIR
  • Line Location:
    • MATCHSUG+25
    • MATCHSUG+32

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(52.49 - [#52.49] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(5 - [#5] PRVIDS+2
^PS(52.49 - [#52.49] MATCHSUG+8, MATCHSUG+10, MATCHSUG+12, MATCHSUG+13, MATCHSUG+33!, CMPPRV+5
^VA(200 - [#200] CMPPRV+5

Label References

Name Line Occurrences
CMPPRV MATCHSUG+14

Naked Globals

Name Field # of Occurrence
^( PRVIDS+2
^("PS" PRVIDS+2
^("QAR" PRVIDS+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CNT MATCHSUG+4~, MATCHSUG+6*, MATCHSUG+10, MATCHSUG+11*, MATCHSUG+14, MATCHSUG+15, MATCHSUG+16, MATCHSUG+17, MATCHSUG+20, MATCHSUG+32*
COUNTER CMPPRV~, CMPPRV+8
DIR MATCHSUG+15!, MATCHSUG+29!
DIR("?" MATCHSUG+19*, MATCHSUG+21*, MATCHSUG+22*, MATCHSUG+23*, MATCHSUG+24*, MATCHSUG+31*
DIR("A" MATCHSUG+16*, MATCHSUG+30*
DIR("B" MATCHSUG+17*, MATCHSUG+29*
DIR(0 MATCHSUG+15*, MATCHSUG+29*
>> DIROUT MATCHSUG+25, MATCHSUG+32
>> DIRUT MATCHSUG+25, MATCHSUG+32
ERXIEN MATCHSUG~, MATCHSUG+5, MATCHSUG+7, MATCHSUG+14, CMPPRV~, CMPPRV+5, CMPPRV+13
ERXPRV MATCHSUG+4~, MATCHSUG+7*, MATCHSUG+8, MATCHSUG+10, MATCHSUG+12, MATCHSUG+13, MATCHSUG+33
>> II MATCHSUG+18*, MATCHSUG+19*, MATCHSUG+21*, MATCHSUG+22*, MATCHSUG+23*
>> IOINHI CMPPRV+8, CMPPRV+9, CMPPRV+11
>> IOINORM CMPPRV+8, CMPPRV+9, CMPPRV+11
>> IORVOFF CMPPRV+10
>> IORVON CMPPRV+10
LINE CMPPRV+6~
LSTERXID MATCHSUG+4~, MATCHSUG+13*, MATCHSUG+14, CMPPRV~, CMPPRV+7, CMPPRV+9, CMPPRV+11
LSTMTCH MATCHSUG+4~, MATCHSUG+12*, MATCHSUG+13
MATCHCNT MATCHSUG+4~, MATCHSUG+6*, MATCHSUG+8*, MATCHSUG+9*, MATCHSUG+14, MATCHSUG+15, MATCHSUG+16, MATCHSUG+17, MATCHSUG+20
MATCHSUG MATCHSUG+4~, MATCHSUG+6*, MATCHSUG+10, MATCHSUG+26*, MATCHSUG+34
QUIT MATCHSUG+4~, MATCHSUG+6*, MATCHSUG+10, MATCHSUG+25*
U PRVIDS+2
VISTAPRV CMPPRV~, CMPPRV+5, CMPPRV+13
VPRV MATCHSUG+4~, MATCHSUG+6*, MATCHSUG+8*, MATCHSUG+10*, MATCHSUG+12, MATCHSUG+13, MATCHSUG+14, MATCHSUG+26, MATCHSUG+32*, MATCHSUG+33
XX CMPPRV+6~, CMPPRV+12*
>> Y MATCHSUG+25, MATCHSUG+26, MATCHSUG+27, MATCHSUG+28, MATCHSUG+32
Z PRVIDS+1~, PRVIDS+2*
Z1 PRVIDS+1~, PRVIDS+2*, PRVIDS+3
Z2 PRVIDS+1~, PRVIDS+2*, PRVIDS+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All