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

Package: Outpatient Pharmacy

Routine: PSOERX1E


Information

PSOERX1E ;ALB/JSG - eRx Utilities ; 11/27/2019 11:02am

Source Information

Source file <PSOERX1E.m>

Entry Points

Name Comments DBIA/ICR reference
PHCHREQ(PSOIEN,RULE,LINE,PRTVIEW) ; Pharmacy Change Request Note
AUTOHOLD(TYPE,ERXIEN,VPATIEN,EPATIEN) ; Checks whether the VistA Patient has an Allergy Assessment or is Eligibile for
; ChampVA Rx Benefit, if not, put all eRx's on Hold (HAL or HEL) - Used by MbM only
DUPVPAT(DFN,LIST) ; Checks whether a VistA Patient has potential duplicate records
; Input: DFN - Pointer to the PATIENT file (#2)
CXRES ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"The following eRx record(s) have been put on Hold ("_$S(TYPE="A":"HAL",1:"HEL")_") because the VistA"
  • Line Location: AUTOHOLD+31
Function Call: WRITE
  • Prompt: !,"Patient ("_$$GET1^DIQ(2,VPATIEN,.01)_") "
  • Line Location: AUTOHOLD+32
Function Call: WRITE
  • Prompt: !,HDR,!,XX
  • Line Location: AUTOHOLD+37
Function Call: WRITE
  • Prompt: ?47,$E($$GET1^DIQ(52.49,OERXIEN,2.1),1,23)
  • Line Location: AUTOHOLD+40
Function Call: WRITE
  • Prompt: ?76,$$GET1^DIQ(52.49,OERXIEN,1)
  • Line Location: AUTOHOLD+41
Function Call: WRITE
  • Prompt: !,HDR,!,XX
  • Line Location: AUTOHOLD+42

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^PS(52.45 - [#52.45] GET1^DIQ
^PS(52.49 - [#52.49] GET1^DIQ,  GETS^DIQ
52.49311 GETS^DIQ
52.493117 GET1^DIQ
52.4955 GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call