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 |  Local Variables  | All
Print Page as PDF
Routine: PSOERXU8

Package: Outpatient Pharmacy

Routine: PSOERXU8


Information

PSOERXU8 ;ALB/BLB - eRx Utilities/RPC's ; 08/18/2020 10:02am

Source Information

Source file <PSOERXU8.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Kernel 4 ($$FMADD,$$FMTE)^XLFDT  $$UP^XLFSTR  $$PRDEA^XUPSPRA  $$DEA^XUSER  
VA FileMan 4 $$FIND1^DIC  FILE^DIE  $$GET1^DIQ  ^DIR  
Outpatient Pharmacy 3 $$PROHIBIT^PSOERX1D  UPDSTAT^PSOERXU1  ($$VALPTADD,PRDRVAL,SUFFWARN)^PSOERXUT  

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

Package Total Caller Graph
Outpatient Pharmacy 7 PSOERUT1  PSOERX1A  PSOERX1B  PSOERX1G  PSOERXA1  PSOERXI1  PSOERXUT  

Entry Points

Name Comments DBIA/ICR reference
BPROC(PSOIEN,BTYPE,MVFLD,VBFLD,VBDTTMF,VDTTM) ;
VADEA(NPIEN,ERXIEN) ; Get Provider's VA DEA Matching DEATXT if possible. If no match, get default USER FOR INPATIENT DEA#.
VADEASUF(DEATXT,NPIEN) ; Get Provider's VA DEA Suffix
DEAFOUND(DEATXT,NPIEN) ; Is DEA=DEATXT found on profile=NPIEN profile in ^VA(200,NPIEN,"PS4"?
ERXSIG(ERXIEN) ; Returns the eRx SIG
; Input: (r) ERXIEN - Pointer to ERX HOLDING QUEUE File (#52.49)
VISTASIG(ERXIEN) ; Returns the VistA SIG, if present
; Input: (r) ERXIEN - Pointer to ERX HOLDING QUEUE File (#52.49)
RENEWALS(ERXIEN) ; Returns whether Renewals are Prohibited or no
; Input: ERXIEN - Pointer to ERX HOLDING QUEUE File (#52.49)
SUFCHK(RESULT,ERXPRDEA,VADEADFL,ERXSUFF) ; Check for matching DEA, mismatched suffix

External References

Name Field # of Occurrence
$$FIND1^DIC VADEASUF+3, VADEASUF+5
FILE^DIE BPROC+69
$$GET1^DIQ BPROC+3, BPROC+4, BPROC+5, BPROC+8, BPROC+9, BPROC+10, BPROC+15, BPROC+16, BPROC+19, BPROC+21
, BPROC+23, BPROC+29, BPROC+33, BPROC+34, BPROC+39, BPROC+40, BPROC+41, BPROC+42, BPROC+43, BPROC+44
, BPROC+53, BPROC+54, BPROC+55, BPROC+59, BPROC+61, BPROC+66, BPROC+67, BPROC+70, BPROC+71, VADEA+5
, VADEA+6, VADEA+7, VADEASUF+4, VADEASUF+7, VISTASIG+9, VISTASIG+10, RENEWALS+4, RENEWALS+5, RENEWALS+6, RENEWALS+7
, RENEWALS+9
^DIR BPROC+48, BPROC+64
$$PROHIBIT^PSOERX1D RENEWALS+8
UPDSTAT^PSOERXU1 BPROC+70, BPROC+72
$$VALPTADD^PSOERXUT BPROC+54
PRDRVAL^PSOERXUT BPROC+59
SUFFWARN^PSOERXUT SUFCHK+2
$$FMADD^XLFDT VADEA+8
$$FMTE^XLFDT BPROC+28, BPROC+32, BPROC+45
$$UP^XLFSTR VADEA+6, VADEA+10
$$PRDEA^XUPSPRA VADEA+11
$$DEA^XUSER VADEA+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: BPROC+26
Function Call: WRITE
  • Prompt: !,"This patient has other prescriptions for: "_$$FMTE^XLFDT(ERXRECDT)
  • Line Location: BPROC+28
Function Call: WRITE
  • Prompt: !,"Patient: "_$$GET1^DIQ(52.46,ERXPAT,.01,"E")
  • Line Location: BPROC+29
Function Call: WRITE
  • Prompt: !,"There are other prescriptions for this patient, written by this provider on"
  • Line Location: BPROC+31
Function Call: WRITE
  • Prompt: !,$$FMTE^XLFDT(ERXRECDT)
  • Line Location: BPROC+32
Function Call: WRITE
  • Prompt: !,"Provider: "_$$GET1^DIQ(52.48,ERXPROV,.01,"E")
  • Line Location: BPROC+33
Function Call: WRITE
  • Prompt: !,"Patient: "_$$GET1^DIQ(52.46,ERXPAT,.01,"E")
  • Line Location: BPROC+34
Function Call: WRITE
  • Prompt: !!,?4,"DRUG",?42,"PROVIDER",?67,"STA",?71,"REC DATE"
  • Line Location: BPROC+35
Function Call: WRITE
  • Prompt: !,LINE
  • Line Location: BPROC+36
Function Call: WRITE
  • Prompt: !,CNT_".) "_$E(EDRUG,1,37),?42,$E(EPROV,1,24),?67,$E(RXSTAT,1,3),?71,$$FMTE^XLFDT(ERXRDT,"2Z")
  • Line Location: BPROC+45
Function Call: WRITE
  • Prompt: !!,"Would you like to apply the above validation to these prescriptions?"
  • Line Location: BPROC+46
Function Call: WRITE
  • Prompt: !,CNT,". ERX#: ",$$GET1^DIQ(52.49,ERXID,.01)," ERX DRUG: ",$$GET1^DIQ(52.49,ERXID,3.1)
  • Line Location: BPROC+55
Function Call: WRITE
  • Prompt: !,"Unable to validate - VistA Patient does not have a current mailing",!,"or residential address on file.",!
  • Line Location: BPROC+56
Function Call: WRITE
  • Prompt: !,CNT,". ERX#: ",$$GET1^DIQ(52.49,ERXID,.01)," ERX DRUG: ",$$GET1^DIQ(52.49,ERXID,3.1)
  • Line Location: BPROC+61
Function Call: WRITE
  • Prompt: !,"Unable to validate - ",$P(ERXMSG(I),"^"),!
  • Line Location: BPROC+63
Routine Call
  • DIC
  • Line Location:
    • VADEASUF+3
    • VADEASUF+5
Routine Call
  • DIE
  • Line Location:
    • BPROC+69
Routine Call
  • DIR
  • Line Location:
    • BPROC+48
    • BPROC+64

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
200.5321 FIND1^DIC,  GET1^DIQ
^PS(52.45 - [#52.45] GET1^DIQ
^PS(52.46 - [#52.46] GET1^DIQ
^PS(52.48 - [#52.48] GET1^DIQ
^PS(52.49 - [#52.49] GET1^DIQ
^PS(59.7 - [#59.7] GET1^DIQ
^XTV(8991.9 - [#8991.9] FIND1^DIC,  GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(52.49 - [#52.49] BPROC+13, BPROC+14, VADEA+3, ERXSIG+6, ERXSIG+7, ERXSIG+8, ERXSIG+9, ERXSIG+11, ERXSIG+12, ERXSIG+13
, ERXSIG+15, ERXSIG+16, ERXSIG+19, VISTASIG+6, VISTASIG+7
^VA(200 - [#200] VADEA+12, VADEA+13, VADEA+14, DEAFOUND+1, DEAFOUND+2
^XTV(8991.9 - [#8991.9] VADEA+15

Label References

Name Line Occurrences
$$VADEASUF VADEA+17

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BTYPE BPROC~, BPROC+21, BPROC+23, BPROC+27, BPROC+30, BPROC+54, BPROC+58, BPROC+66, BPROC+67
CHGMESRI RENEWALS+3~, RENEWALS+6*, RENEWALS+8
CHGMESRQ RENEWALS+3~, RENEWALS+5*, RENEWALS+6
CNT BPROC+1~, BPROC+37*, BPROC+38*, BPROC+45, BPROC+50*, BPROC+52*, BPROC+55, BPROC+61
CSMSG BPROC+2~, BPROC+50*, BPROC+57*, BPROC+63*, BPROC+64
DEACNT VADEA+13~*
DEASUFF VADEASUF+2!*, VADEASUF+7*, VADEASUF+8
DEATXT VADEASUF~, VADEASUF+3, VADEASUF+5, DEAFOUND~, DEAFOUND+1, DEAFOUND+2
DEAVAIEN VADEA+13~*, VADEA+14
DEAXTV VADEA+13~
DEAXUIEN VADEA+13~, VADEA+14*, VADEA+15
DIR BPROC+1~, BPROC+48!
DIR("B" BPROC+48*
DIR(0 BPROC+47*, BPROC+64*
DNDEAIEN VADEASUF+1~, VADEASUF+3*, VADEASUF+4
DUZ BPROC+68
EDRUG BPROC+1~, BPROC+40*, BPROC+45
EEPROV BPROC+2~, BPROC+41*, BPROC+42
EHID BPROC+1~, BPROC+39*
EPAT BPROC+1~, BPROC+43*
EPROV BPROC+1~, BPROC+42*, BPROC+45
ERESTAT BPROC+1~, BPROC+16*, BPROC+17
ERXARY BPROC+1~
ERXDT BPROC+1~, BPROC+12*, BPROC+13*, BPROC+14
ERXEDT BPROC+1~, BPROC+11*, BPROC+13
ERXID BPROC+2~, BPROC+50*, BPROC+51*, BPROC+53, BPROC+55, BPROC+57, BPROC+59, BPROC+61, BPROC+63, BPROC+64
ERXIEN BPROC+1~, BPROC+14*, BPROC+15, BPROC+16, BPROC+19, BPROC+21, BPROC+22, BPROC+23, BPROC+24, VADEA~
, VADEA+2, VADEA+3, VADEA+5, VADEA+7, ERXSIG~, ERXSIG+6, ERXSIG+7, ERXSIG+8, ERXSIG+9, ERXSIG+11
, ERXSIG+12, ERXSIG+13, ERXSIG+15, ERXSIG+16, ERXSIG+19, VISTASIG~, VISTASIG+6, VISTASIG+7, VISTASIG+9, VISTASIG+10
, RENEWALS~, RENEWALS+4, RENEWALS+5, RENEWALS+7, RENEWALS+9
ERXMSG BPROC+59!, BPROC+60
ERXMSG( BPROC+62, BPROC+63
ERXPAT BPROC+1~, BPROC+8*, BPROC+13, BPROC+14, BPROC+29, BPROC+34, BPROC+43
ERXPRDEA VADEA+1~, VADEA+6*, VADEA+10, SUFCHK~, SUFCHK+1, SUFCHK+2
ERXPROV BPROC+2~, BPROC+9*, BPROC+23, BPROC+33, VADEA+1~, VADEA+5*, VADEA+6
ERXRDT BPROC+1~, BPROC+44*, BPROC+45
ERXRECDT BPROC+1~, BPROC+10*, BPROC+11, BPROC+12, BPROC+28, BPROC+32
ERXSIG ERXSIG+4~, ERXSIG+5*, ERXSIG+6, ERXSIG+16*, ERXSIG+17*, ERXSIG+19*, ERXSIG+20
ERXSTAT BPROC+1~
ERXSUFF SUFCHK~, SUFCHK+1
EXARY BPROC+2~
EXARY( BPROC+24*, BPROC+37, BPROC+51, BPROC+57!, BPROC+63!, BPROC+64, BPROC+65
EXARY(0 BPROC+25
FDA BPROC+69!
FDA( BPROC+66*, BPROC+67*, BPROC+68*
FLG BPROC+1~
I BPROC+1~, BPROC+62*, BPROC+63, BPROC+65*, BPROC+66, BPROC+67, BPROC+68, BPROC+70, BPROC+71, BPROC+72
, ERXSIG+4~, ERXSIG+15*, ERXSIG+16
IENS VADEASUF+1~, VADEASUF+6*, VADEASUF+7
L BPROC+1~, BPROC+37*, BPROC+39, BPROC+40, BPROC+41, BPROC+44
LINE BPROC+1~, BPROC+36*
MBMSITE BPROC+1~, BPROC+3*, BPROC+15
MEDIEN ERXSIG+4~, ERXSIG+11*, ERXSIG+12*, ERXSIG+13*, ERXSIG+14, ERXSIG+15, ERXSIG+16
MSGTYPE ERXSIG+4~, ERXSIG+8*, ERXSIG+11, ERXSIG+12, ERXSIG+13
MTYPE BPROC+2~, BPROC+4*, BPROC+6, BPROC+7, RENEWALS+3~, RENEWALS+4*, RENEWALS+8
MVFLD BPROC~, BPROC+68
NPDEAIEN VADEASUF+1~, VADEASUF+5*, VADEASUF+6
NPIEN VADEA~, VADEA+4, VADEA+10, VADEA+11, VADEA+12, VADEA+13, VADEA+14, VADEA+17, VADEASUF~, VADEASUF+5
, VADEASUF+6, DEAFOUND~, DEAFOUND+1, DEAFOUND+2
>> PSNPINST BPROC+15
PSOIEN BPROC~, BPROC+4, BPROC+5, BPROC+8, BPROC+9, BPROC+10, BPROC+22, BPROC+54, BPROC+59, BPROC+66
, BPROC+67
RENEWALS RENEWALS+3~, RENEWALS+4*, RENEWALS+9*, RENEWALS+10
RESPVAL RENEWALS+3~, RENEWALS+7*, RENEWALS+8
RESTYPE BPROC+2~, BPROC+5*, BPROC+7, ERXSIG+4~, ERXSIG+9*, ERXSIG+12
RESULT SUFCHK~, SUFCHK+2, SUFCHK+3*
REXEDT BPROC+2~
RXDEADT VADEA+1~, VADEA+8*, VADEA+10
>> RXSTAT BPROC+45
RXWRDATE VADEA+1~, VADEA+7*, VADEA+8
S2017 ERXSIG+4~, ERXSIG+7*, ERXSIG+10, ERXSIG+18
SIG ERXSIG+4~, VISTASIG+4~, VISTASIG+6*, VISTASIG+7
VADEA VADEA+1~, VADEA+10*, VADEA+11*, VADEA+12, VADEA+15*, VADEA+18*, VADEA+19
VADEADFL SUFCHK~, SUFCHK+1, SUFCHK+2
VADEADSP VADEA+1~, VADEA+10*, VADEA+11*, VADEA+14*, VADEA+15, VADEA+16, VADEA+17, VADEA+18*, VADEA+19
>> VADEANUM SUFCHK+2
VADEASUF VADEA+1~, VADEA+17*, VADEA+18
VBDTTMF BPROC~, BPROC+68
VBFLD BPROC~, BPROC+68
VDTTM BPROC~, BPROC+68
VISTASIG VISTASIG+4~, VISTASIG+5*, VISTASIG+7*, VISTASIG+10*, VISTASIG+11
Y BPROC+1~, BPROC+47!, BPROC+49
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 |  Local Variables  | All