ORY115 ; slc/jvs - Patch 115 Post-init
;;3.0 ORDER ENTRY/RESULTS REPORTING;**115**;Dec 17,1997
;POST INSTALL CALLS
Q
SENDPAR(ANAME) ;Return true if the current parameter should be sent.
I ANAME="ORQQPX NEW REMINDER PARAMS" Q 1
I ANAME="ORWPCE FORCE PCE ENTRY" Q 1
I ANAME="ORWOR TIMEOUT CHART" Q 1
I ANAME="ORB PROVIDER RECIPIENTS" Q 1
I ANAME="ORB FORWARD SUPERVISOR" Q 1
I ANAME="ORQQVS SEARCH RANGE STOP" Q 1
I ANAME="ORB ARCHIVE PERIOD" Q 1
I ANAME="ORB OI EXPIRING - INPT" Q 1
I ANAME="ORB OI EXPIRING - OUTPT" Q 1
I ANAME="ORB OI ORDERED - INPT" Q 1
I ANAME="ORB OI ORDERED - OUTPT" Q 1
I ANAME="ORB OI RESULTS - INPT" Q 1
I ANAME="ORB OI RESULTS - OUTPT" Q 1
I ANAME="ORWRP HEALTH SUMMARY TYPE LIST" Q 1
Q 0
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORY115 755 printed Sep 23, 2025@20:14:38 Page 2
ORY115 ; slc/jvs - Patch 115 Post-init
+1 ;;3.0 ORDER ENTRY/RESULTS REPORTING;**115**;Dec 17,1997
+2 ;POST INSTALL CALLS
+3 QUIT
SENDPAR(ANAME) ;Return true if the current parameter should be sent.
+1 IF ANAME="ORQQPX NEW REMINDER PARAMS"
QUIT 1
+2 IF ANAME="ORWPCE FORCE PCE ENTRY"
QUIT 1
+3 IF ANAME="ORWOR TIMEOUT CHART"
QUIT 1
+4 IF ANAME="ORB PROVIDER RECIPIENTS"
QUIT 1
+5 IF ANAME="ORB FORWARD SUPERVISOR"
QUIT 1
+6 IF ANAME="ORQQVS SEARCH RANGE STOP"
QUIT 1
+7 IF ANAME="ORB ARCHIVE PERIOD"
QUIT 1
+8 IF ANAME="ORB OI EXPIRING - INPT"
QUIT 1
+9 IF ANAME="ORB OI EXPIRING - OUTPT"
QUIT 1
+10 IF ANAME="ORB OI ORDERED - INPT"
QUIT 1
+11 IF ANAME="ORB OI ORDERED - OUTPT"
QUIT 1
+12 IF ANAME="ORB OI RESULTS - INPT"
QUIT 1
+13 IF ANAME="ORB OI RESULTS - OUTPT"
QUIT 1
+14 IF ANAME="ORWRP HEALTH SUMMARY TYPE LIST"
QUIT 1
+15 QUIT 0
