ORY1004.m

ORY1004 ; IHS/MSC/DKM - Pre and Post-init for patch OR*3.0*1004;04-May-2006 12:33;DKM

 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**1004**;May 1, 2006

 ; Environment Check

EC Q

 ; Pre-init

PRE Q

 ; Post-init

POST D CHG^XPAR("PKG","ORWD NONVA REASON",1,"Outside medication not recommended by provider.")

 D CHG^XPAR("PKG","ORWD NONVA REASON",2,"Outside medication recommended by provider.")

 D CHG^XPAR("PKG","ORWD NONVA REASON",3,"Patient buys OTC/Herbal product without medical advice.")

 D CHG^XPAR("PKG","ORWD NONVA REASON",4,"Medication prescribed by another provider.")

 D PUT^XPAR("PKG","ORWDX NEW MED","h",$$FIND1^DIC(101.41,,"X","PSH OERR"))

 Q

ORY1004   ; IHS/MSC/DKM - Pre and Post-init for patch OR*3.0*1004;04-May-2006 12:33;DKM

 +1       ;;3.0;ORDER ENTRY/RESULTS REPORTING;**1004**;May 1, 2006

 +2       ; Environment Check

EC         QUIT 

 +1       ; Pre-init

PRE        QUIT 

 +1       ; Post-init

POST       DO CHG^XPAR("PKG","ORWD NONVA REASON",1,"Outside medication not recommended by provider.")

 +1        DO CHG^XPAR("PKG","ORWD NONVA REASON",2,"Outside medication recommended by provider.")

 +2        DO CHG^XPAR("PKG","ORWD NONVA REASON",3,"Patient buys OTC/Herbal product without medical advice.")

 +3        DO CHG^XPAR("PKG","ORWD NONVA REASON",4,"Medication prescribed by another provider.")

 +4        DO PUT^XPAR("PKG","ORWDX NEW MED","h",$$FIND1^DIC(101.41,,"X","PSH OERR"))

 +5        QUIT