Routine: PSOERX1D

Information

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

Name	Comments	DBIA/ICR reference
GETRULES(PSOIEN,MTYPE,RESPVAL,CHGMESRI,PRTVIEW)	;
SETMRC(PSOIEN,CHGMESRI,CHGMESRQ,RESPVAL,RULE,LINE)	; Set values for MRC variables
RESTSMDT(SMALLMP,PSOIEN,RESPVAL,RULE,LINE)	; Print rest of Summary/Details screen for CXD - G/T/S/OS/D
MEDPRES(PSOIEN,RULE,LINE)	; Medication Prescribed
CXRES(ERXIEN,RESPVAL,RULE,RULES,LINE)	;
MEDREQDR(PSOIEN,RULE,LINE)	; Medication Requested section driver
MEDREQ(REQIEN,F,IENS,IEN311,LINE,CNT)	; Medication Request section
CXREQ(ERXIEN,RULE,LINE)	;
SET(LINE,TITLE,VAL)	; Add line if there is a value
PRTVIEW(PSOIEN,CHGMESRQ,RESPVAL,RULE,NO311)	; Set values for MRC variables
ARR2PRT(FUN,PSOIEN,RESPVAL,RULE,RULES,LINE)	; Change VALMAR to print
CHGMTYPE(PSOIEN,MTYPE,RESPVAL,CHGMESRI)	; Check on changing message type
QTSUMDT1(PSOIEN,MTYPE,CHGMESRI,CHGMESRQ,RESPVAL,LINE)	; Quit Summary Detail early?
QTSUMDT2(PSOIEN,MTYPE,CHGMESRI,RESPVAL,LINE)	; Quit Summary Detail later?
ADMDPRLN(PSOIEN,MTYPE,RESPVAL,CHGMESRI,SDSPLAY)	; Add Medication Prescribed Line?
SHORTPI(PSOIEN,MTYPE,RESPVAL,CHGMESRI)	; Short Prescription Info section?
CHGEND(PSOIEN,MTYPE,RESPVAL,CHGMESRI)	; Change end of Print View?
NOTE(STR,TITLE,REQUIRED,LINE)	; Print possibly multi-line comment
PROHIBIT(RESPVAL,CHGMESRI)	; Print prohibit renewal tag?