close Warning: Can't use blame annotator:
svn blame failed on WorldVistAEHR/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORWCOM.m: 'GenericSWIGWrapper' object has no attribute '_wrap'

source: WorldVistAEHR/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORWCOM.m@ 861

Last change on this file since 861 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 931 bytes
RevLine 
1ORWCOM ;SLC/JM - Wraps RPCs for COM Objects Hooks ;8/02/2001
2 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**109**;Dec 17, 1997
3 Q
4DETAILS(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
11GETOBJ(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
17PTOBJ(ORY) ; Returns Patient COM Object
18 D GETOBJ(.ORY,"ORWCOM PATIENT SELECTED",1)
19 Q
20ORDEROBJ(ORY,ORGRP) ; Returns Accept Order COM Object
21 D GETOBJ(.ORY,"ORWCOM ORDER ACCEPTED",ORGRP)
22 Q
23GETOBJS(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
Note: See TracBrowser for help on using the repository browser.