source: FOIAVistA/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORWGRPC.m

Last change on this file was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 3.1 KB
Line 
1ORWGRPC ; SLC/STAFF - Graph RPC ;3/9/06 13:59
2 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**215**;Dec 17, 1997
3 ;
4ALLITEMS(ITEMS,DFN) ; RPC - get all items of data on patient (procedures, tests, codes,..)
5 D ALLITEMS^ORWGAPI("ORWGRPC",DFN)
6 S ITEMS=$NA(^TMP("ORWGRPC",$J))
7 Q
8 ;
9CLASS(DATA,TYPE) ; RPC - get classifications
10 D CLASS^ORWGAPI("ORWGRPC",TYPE)
11 S DATA=$NA(^TMP("ORWGRPC",$J))
12 Q
13 ;
14DATEITEM(DATA,OLDEST,NEWEST,FNUM,DFN) ; RPC - get patient items in date range for a type
15 D DATEITEM^ORWGAPI("ORWGRPC",OLDEST,NEWEST,FNUM,DFN)
16 S DATA=$NA(^TMP("ORWGRPC",$J))
17 Q
18 ;
19DELVIEWS(ERR,NAME,PUBLIC) ; RPC - delete a graph view
20 D DELVIEWS^ORWGAPI("ORWGRPC",NAME,+$G(PUBLIC))
21 S ERR=$NA(^TMP("ORWGRPC",$J))
22 Q
23 ;
24DETAIL(ITEMS,DFN,DATE1,DATE2,VAL,COMP) ; RPC - get all reports for types of data from items and date range
25 D DETAIL^ORWGAPI("ORWGRPC",DFN,DATE1,DATE2,.VAL,$G(COMP))
26 S ITEMS=$NA(^TMP("ORWGRPC",$J))
27 Q
28 ;
29DETAILS(ITEMS,DFN,DATE1,DATE2,TYPE,COMP) ; RPC - get report for type of data for a date or date range
30 D DETAILS^ORWGAPI("ORWGRPC",DFN,DATE1,DATE2,TYPE,$G(COMP))
31 S ITEMS=$NA(^TMP("ORWGRPC",$J))
32 Q
33 ;
34GETDATES(DATA,REPORTID) ; RPC - get graph date range
35 D GETDATES^ORWGAPI("ORWGRPC",$G(REPORTID))
36 S DATA=$NA(^TMP("ORWGRPC",$J))
37 Q
38 ;
39GETPREF(DATA) ; RPC - get graph settings
40 D GETPREF^ORWGAPI("ORWGRPC")
41 S DATA=$NA(^TMP("ORWGRPC",$J))
42 Q
43 ;
44GETSIZE(DATA) ; RPC - get graph positions and sizes
45 D GETSIZE^ORWGAPI("ORWGRPC")
46 S DATA=$NA(^TMP("ORWGRPC",$J))
47 Q
48 ;
49GETVIEWS(DATA,ALL,PUBLIC,EXT) ; RPC - get graph views
50 D GETVIEWS^ORWGAPI("ORWGRPC",ALL,+$G(PUBLIC),+$G(EXT))
51 S DATA=$NA(^TMP("ORWGRPC",$J))
52 Q
53 ;
54ITEMDATA(DATA,ITEM,START,DFN) ; RPC - get data of an item on patient (glucose results)
55 S ITEM=$$UP^ORWGAPIX(ITEM)
56 D ITEMDATA^ORWGAPI("ORWGRPC",ITEM,START,DFN)
57 S DATA=$NA(^TMP("ORWGRPC",$J))
58 Q
59 ;
60ITEMS(ITEMS,DFN,TYPE) ; RPC - get items of a type of data on patient (lab tests)
61 D ITEMS^ORWGAPI("ORWGRPC",DFN,TYPE)
62 S ITEMS=$NA(^TMP("ORWGRPC",$J))
63 Q
64 ;
65LOOKUP(VAL,INFO,FROM,DIR) ; RPC - get item names for long lookup
66 D LOOKUP^ORWGAPI(.VAL,INFO,.FROM,DIR)
67 Q
68 ;
69PUBLIC(VAL) ; RPC - check if user can edit public views and settings
70 S VAL=$$PUBLIC^ORWGAPI(DUZ)
71 Q
72 ;
73RPTPARAM(VAL,IEN) ; RPC - return PARAM1^PARAM2 for graph report
74 S VAL=$$RPTPARAM^ORWGAPI(IEN)
75 Q
76 ;
77SETPREF(ERR,SETTING,PUBLIC) ; RPC - set a graph setting
78 D SETPREF^ORWGAPI("ORWGRPC",SETTING,+$G(PUBLIC))
79 S ERR=$NA(^TMP("ORWGRPC",$J))
80 Q
81 ;
82SETSIZE(ERR,VAL) ; RPC - set graph positions and sizes
83 D SETSIZE^ORWGAPI("ORWGRPC",.VAL)
84 S ERR=$NA(^TMP("ORWGRPC",$J))
85 Q
86 ;
87SETVIEWS(ERR,NAME,PUBLIC,VAL) ; RPC - set a graph view
88 D SETVIEWS^ORWGAPI("ORWGRPC",NAME,+$G(PUBLIC),.VAL)
89 S ERR=$NA(^TMP("ORWGRPC",$J))
90 Q
91 ;
92TAX(DATA,ALL,REMTAX) ; RPC - get reminder taxonomies
93 D TAX^ORWGAPI("ORWGRPC",+$G(ALL),.REMTAX)
94 S DATA=$NA(^TMP("ORWGRPC",$J))
95 Q
96 ;
97TESTSPEC(DATA) ; RPC - get test/spec info on all lab tests
98 D TESTSPEC^ORWGAPI("ORWGRPC")
99 S DATA=$NA(^TMP("ORWGRPC",$J))
100 Q
101 ;
102TYPES(TYPES,DFN,SUB) ; RPC - get all the types of data on a patient (SUB=1, gets subtypes, DFN=0 gets all types),
103 D TYPES^ORWGAPI("ORWGRPC",DFN,+$G(SUB))
104 S TYPES=$NA(^TMP("ORWGRPC",$J))
105 Q
106 ;
Note: See TracBrowser for help on using the repository browser.