Routine: PSOERUT3

Information

PSOERUT3 ;ALB/MFR - eRx Listman Allergy Utilities; 06/25/2022 5:14pm

Name	Comments	DBIA/ICR reference
ALLERGY(MODE,NPSPC,ERXIEN,DFN)	; Sets Allergy and Adverse Reaction information ; Input: MODE - Display Mode: "RS": Roll & Scroll \| "LM": ListMan ; NMSPC - ListMan Temp Global Namespace (e.g., "PSOERXP1") ; ERXIEN - Pointer to ERX HOLDING QUEUE file (#52.49) ; DFN - Pointer to PATIENT File(#2)
ADDALLS	; Add Alergies to the Screen (Reverses or Highlights Video for each Allergy)
SETDIAGS(MODE,NPSPC,ERXIEN)	; Sets Diagnosis information ; Input: MODE - Display Mode: "RS": Roll & Scroll \| "LM": ListMan ; NMSPC - ListMan Temp Global Namespace (e.g., "PSOERXP1") ; ERXIEN - Pointer to ERX HOLDING QUEUE file (#52.49)
GETDIAGS(ERXIEN,ICDARR)	; Returns the diagnosis codes for the eRx order ; Input: (r) ERXIEN - Pointer to the ERX HOLDING QUEUE file (52.49)
SUGSIG(RXIEN,ERXIEN)	; Returns the Suggested SIG retrieved from the VA Rx ; Input:ERXIEN - Pointer to ERX HOLDING QUEUE file (#52.49) ; RXIEN - Prescription IEN - Pointer to PRESCRIPTION file (#52)
VAPATINS(OI,DFN)	; Returns the Pharmacy Orderable Patient Instructions, if any ; Input: OI - Pointer to the PHARMACY ORDERABLE ITEM file (#50.7) ; (o)DFN - Pointer to the PATIEN file (#2)