ORWPT2 ; SLC/JLC - Patient Lookup Functions (cont) ;04/10/2020
;;3.0;ORDER ENTRY/RESULTS REPORTING;**485**;Dec 17, 1997;Build 16
;
COVID(Y,DFN) ; return COVID-19 statuses
N A,RIEN
S RIEN=+$$GET^XPAR("ALL","OR OTHER INFO REMINDER",1,"I")
I RIEN=0 S Y="-1^No Reminder definition is defined"
;ICR #7146
S Y=$$STATUS^PXRMCOVID19(DFN,RIEN)
Q Y
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORWPT2 357 printed Mar 13, 2024@23:46:57 Page 2
ORWPT2 ; SLC/JLC - Patient Lookup Functions (cont) ;04/10/2020
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**485**;Dec 17, 1997;Build 16
+2 ;
COVID(Y,DFN) ; return COVID-19 statuses
+1 NEW A,RIEN
+2 SET RIEN=+$$GET^XPAR("ALL","OR OTHER INFO REMINDER",1,"I")
+3 IF RIEN=0
SET Y="-1^No Reminder definition is defined"
+4 ;ICR #7146
+5 SET Y=$$STATUS^PXRMCOVID19(DFN,RIEN)
+6 QUIT Y