| 1 | ORWCOM ;SLC/JM - Wraps RPCs for COM Objects Hooks ;8/02/2001
|
|---|
| 2 | ;;3.0;ORDER ENTRY/RESULTS REPORTING;**109**;Dec 17, 1997
|
|---|
| 3 | Q
|
|---|
| 4 | DETAILS(ORY,ID) ; Returns Details about a specific COM Object
|
|---|
| 5 | N NODE
|
|---|
| 6 | S ORY=0
|
|---|
| 7 | I +ID D
|
|---|
| 8 | .S NODE=$G(^ORD(101.15,+ID,0))
|
|---|
| 9 | .I NODE'="",$P(NODE,U,3)'="I" S ORY=ID_U_NODE
|
|---|
| 10 | Q
|
|---|
| 11 | GETOBJ(ORY,PARAM,ORIDX) ; Returns COM Object info
|
|---|
| 12 | N SRV,ID
|
|---|
| 13 | S SRV=$$GET1^DIQ(200,DUZ,29,"I")
|
|---|
| 14 | S ID=$$GET^XPAR(DUZ_";VA(200,^SRV.`"_+$G(SRV)_"^DIV^SYS",PARAM,ORIDX,"I")
|
|---|
| 15 | D DETAILS(.ORY,ID)
|
|---|
| 16 | Q
|
|---|
| 17 | PTOBJ(ORY) ; Returns Patient COM Object
|
|---|
| 18 | D GETOBJ(.ORY,"ORWCOM PATIENT SELECTED",1)
|
|---|
| 19 | Q
|
|---|
| 20 | ORDEROBJ(ORY,ORGRP) ; Returns Accept Order COM Object
|
|---|
| 21 | D GETOBJ(.ORY,"ORWCOM ORDER ACCEPTED",ORGRP)
|
|---|
| 22 | Q
|
|---|
| 23 | GETOBJS(ORY) ; Returns list of all active COM objects
|
|---|
| 24 | N I,J,IDX,NODE
|
|---|
| 25 | S I="",IDX=0
|
|---|
| 26 | F S I=$O(^ORD(101.15,"B",I)) Q:I="" D
|
|---|
| 27 | .S J=$O(^ORD(101.15,"B",I,0)) Q:'+J
|
|---|
| 28 | .S NODE=$G(^ORD(101.15,J,0))
|
|---|
| 29 | .I $P(NODE,U,3)'="I" D
|
|---|
| 30 | ..S IDX=IDX+1
|
|---|
| 31 | ..S ORY(IDX)=J_U_NODE
|
|---|
| 32 | Q
|
|---|
