Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ORY1004

ORY1004.m

Go to the documentation of this file.
  1. 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
  1. ; Environment Check
  1. EC Q
  1. ; Pre-init
  1. PRE Q
  1. ; Post-init
  1. POST D CHG^XPAR("PKG","ORWD NONVA REASON",1,"Outside medication not recommended by provider.")
  1. D CHG^XPAR("PKG","ORWD NONVA REASON",2,"Outside medication recommended by provider.")
  1. D CHG^XPAR("PKG","ORWD NONVA REASON",3,"Patient buys OTC/Herbal product without medical advice.")
  1. D CHG^XPAR("PKG","ORWD NONVA REASON",4,"Medication prescribed by another provider.")
  1. D PUT^XPAR("PKG","ORWDX NEW MED","h",$$FIND1^DIC(101.41,,"X","PSH OERR"))
  1. Q