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

Package Total Caller Graph
Outpatient Pharmacy 2 PSOERUT6  PSOERX1A  

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"))

External References

Name Field # of Occurrence
$$GET1^DIQ MATCHSUG+8, CMPPRV+9, CMPPRV+11
^DIR MATCHSUG+28, MATCHSUG+35
SETPROV^PSOERUT1 CMPPRV+13
$$FMTE^XLFDT CMPPRV+9, PRVIDS+3

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
Routine Call
  • DIR
  • Line Location:
    • MATCHSUG+28
    • MATCHSUG+35

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+9, MATCHSUG+11, MATCHSUG+12, MATCHSUG+13, MATCHSUG+36!, CMPPRV+5
^VA(200 - [#200] CMPPRV+5

Label References

Name Line Occurrences
CMPPRV MATCHSUG+16

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+5~, MATCHSUG+7*, MATCHSUG+11, MATCHSUG+15*, MATCHSUG+16, MATCHSUG+17, MATCHSUG+18, MATCHSUG+19, MATCHSUG+23, MATCHSUG+35*
COUNTER CMPPRV~, CMPPRV+8
DIR MATCHSUG+17!, MATCHSUG+32!
DIR("?" MATCHSUG+22*, MATCHSUG+24*, MATCHSUG+25*, MATCHSUG+26*, MATCHSUG+27*, MATCHSUG+34*
DIR("A" MATCHSUG+18*, MATCHSUG+33*
DIR("B" MATCHSUG+19*, MATCHSUG+32*
DIR(0 MATCHSUG+17*, MATCHSUG+32*
>> DIROUT MATCHSUG+28, MATCHSUG+35
>> DIRUT MATCHSUG+28, MATCHSUG+35
ERXID MATCHSUG+5~, MATCHSUG+13*
ERXIEN MATCHSUG~, MATCHSUG+6, MATCHSUG+8, MATCHSUG+13, MATCHSUG+16, CMPPRV~, CMPPRV+5, CMPPRV+13
ERXPRV MATCHSUG+5~, MATCHSUG+8*, MATCHSUG+9, MATCHSUG+11, MATCHSUG+12, MATCHSUG+13, MATCHSUG+36
>> II MATCHSUG+20*, MATCHSUG+22*, MATCHSUG+24*, MATCHSUG+25*, MATCHSUG+26*
>> 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+5~, MATCHSUG+12*, MATCHSUG+13*, MATCHSUG+14, MATCHSUG+16, CMPPRV~, CMPPRV+7, CMPPRV+9, CMPPRV+11
LSTMTCH MATCHSUG+5~, MATCHSUG+12*, MATCHSUG+13
MATCHCNT MATCHSUG+5~, MATCHSUG+7*, MATCHSUG+9*, MATCHSUG+10*, MATCHSUG+16, MATCHSUG+17, MATCHSUG+18, MATCHSUG+19, MATCHSUG+23
MATCHSUG MATCHSUG+5~, MATCHSUG+7*, MATCHSUG+11, MATCHSUG+29*, MATCHSUG+37
QUIT MATCHSUG+5~, MATCHSUG+7*, MATCHSUG+11, MATCHSUG+28*
U PRVIDS+2
VIEW MATCHSUG~, MATCHSUG+17, MATCHSUG+18, MATCHSUG+21
VISTAPRV CMPPRV~, CMPPRV+5, CMPPRV+13
VPRV MATCHSUG+5~, MATCHSUG+7*, MATCHSUG+9*, MATCHSUG+11*, MATCHSUG+12, MATCHSUG+13, MATCHSUG+16, MATCHSUG+29, MATCHSUG+35*, MATCHSUG+36
XX CMPPRV+6~, CMPPRV+12*
>> Y MATCHSUG+28, MATCHSUG+29, MATCHSUG+30, MATCHSUG+31, MATCHSUG+35
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