source: WorldVistAEHR/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORY243A.m@ 1801

ORY243A ;SLCOIFO - Pre and Post-init for patch OR*3*243 ;4/25/07  14:12
        ;;3.0;ORDER ENTRY/RESULTS REPORTING;**243**;Dec 17, 1997;Build 242
        ;
INPQCONV        ;
        N DA,DIE,DR,INPDG,TEXT,TYPE,UDDG,X0
        S TEXT(1)="Converting Inpatient Medications Quick Orders to"
        S TEXT(2)="Unit Dose Medications Quick Orders."
        D MES^XPDUTL(.TEXT)
        S UDDG=$O(^ORD(100.98,"B","UNIT DOSE MEDICATIONS","")) Q:UDDG'>0
        S INPDG=$O(^ORD(100.98,"B","INPATIENT MEDICATIONS","")) Q:INPDG'>0
        S DIE="^ORD(101.41,"
        S DA=0 F  S DA=$O(^ORD(101.41,DA)) Q:DA'>0  D
        . S X0=$G(^ORD(101.41,DA,0))
        .I $P(X0,U,4)="Q",$P(X0,U,5)=INPDG D
        ..S DR="5///^S X=UDDG" D ^DIE
        Q
        ;
IVORCON ;
        N ZTDESC,ZTDTH,ZTRTN,ZTSAVE,ZTIO,TEXT,ZTSK
        S ZTDESC="Delayed IV Order conversion"
        S TEXT=ZTDESC_" has been queued, task number "
        S ZTRTN="IVORCONQ^ORY243A"
        S ZTIO=""
        S ZTDTH=$$NOW^XLFDT
        D ^%ZTLOAD
        I $D(ZTSK) S TEXT=TEXT_ZTSK D MES^XPDUTL(.TEXT)
        Q
        ;
IVORCONQ        ;
        ;This code convert pre CPRS 27 delayed IV orders to a new order.
        N DELSTAT,EVNT,FDA,MSG,IVDIAL,NODE,PAT,ORIEN
        S IVDIAL=$O(^ORD(101.41,"B","PSJI OR PAT FLUID OE","")) Q:IVDIAL'>0
        S DELSTAT=$O(^ORD(100.01,"B","DELAYED","")) Q:DELSTAT'>0
        S PAT="" F  S PAT=$O(^OR(100,"AEVNT",PAT)) Q:PAT=""  D
        .S EVNT="" F  S EVNT=$O(^OR(100,"AEVNT",PAT,EVNT)) Q:EVNT=""  D
        ..S ORIEN="" F  S ORIEN=$O(^OR(100,"AEVNT",PAT,EVNT,ORIEN)) Q:ORIEN=""  D
        ...S NODE=$G(^OR(100,ORIEN,0))
        ...I +$P(NODE,U,5)'=IVDIAL Q
        ...I $P($G(^OR(100,ORIEN,3)),U,3)'=DELSTAT Q
        ...I $D(^OR(100,ORIEN,4.5,"ID","TYPE"))>0 Q
        ...S FDA(100.045,"+2,"_ORIEN_",",.01)=20
        ...S FDA(100.045,"+2,"_ORIEN_",",.02)="OR GTX IV TYPE"
        ...S FDA(100.045,"+2,"_ORIEN_",",.03)=1
        ...S FDA(100.045,"+2,"_ORIEN_",",.04)="TYPE"
        ...S FDA(100.045,"+2,"_ORIEN_",",1)="C"
        ...D UPDATE^DIE("E","FDA","","MSG")
        Q
        ;