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

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

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call