ORY115.m

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

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