Routine: PSOERX1E

Information

PSOERX1E ;ALB/JSG - eRx Utilities ; 11 Jul 2025 7:17 PM

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	;
PATWARN(ACTION,PSOIEN,SELPAT)	; Check whether the Patient Select is valid or not ; Input:(r)ACTION - Ation being peformed ("EP": Edit Patient \| "VP": Validate Patient) ; (r)PSOIEN - Pointer to the ERX HOLDING QUEUE file (#52.49) ; (r)SELPAT - Patient -Pointer to the PATIENT file (#2)

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
Function Call: WRITE	Prompt: !!,"*****************************",$S(ERXMMFLG:" WARNING(S) ",1:"INVALID PATIENT"),"*****************************" Line Location: PATWARN+37
Function Call: WRITE	Prompt: !,$G(ERXMSG(I)) Line Location: PATWARN+39
Function Call: WRITE	Prompt: !,"*****************************************************************************" Line Location: PATWARN+40