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

ORWGRPC ; SLC/STAFF - Graph RPC ;3/9/06  13:59
 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**215**;Dec 17, 1997
 ;
ALLITEMS(ITEMS,DFN) ; RPC - get all items of data on patient (procedures, tests, codes,..)
 D ALLITEMS^ORWGAPI("ORWGRPC",DFN)
 S ITEMS=$NA(^TMP("ORWGRPC",$J))
 Q
 ;
CLASS(DATA,TYPE) ; RPC - get classifications
 D CLASS^ORWGAPI("ORWGRPC",TYPE)
 S DATA=$NA(^TMP("ORWGRPC",$J))
 Q
 ;
DATEITEM(DATA,OLDEST,NEWEST,FNUM,DFN) ; RPC - get patient items in date range for a type
 D DATEITEM^ORWGAPI("ORWGRPC",OLDEST,NEWEST,FNUM,DFN)
 S DATA=$NA(^TMP("ORWGRPC",$J))
 Q
 ; 
DELVIEWS(ERR,NAME,PUBLIC) ; RPC - delete a graph view
 D DELVIEWS^ORWGAPI("ORWGRPC",NAME,+$G(PUBLIC))
 S ERR=$NA(^TMP("ORWGRPC",$J))
 Q
 ;
DETAIL(ITEMS,DFN,DATE1,DATE2,VAL,COMP) ; RPC - get all reports for types of data from items and date range
 D DETAIL^ORWGAPI("ORWGRPC",DFN,DATE1,DATE2,.VAL,$G(COMP))
 S ITEMS=$NA(^TMP("ORWGRPC",$J))
 Q
 ;
DETAILS(ITEMS,DFN,DATE1,DATE2,TYPE,COMP) ; RPC - get report for type of data for a date or date range
 D DETAILS^ORWGAPI("ORWGRPC",DFN,DATE1,DATE2,TYPE,$G(COMP))
 S ITEMS=$NA(^TMP("ORWGRPC",$J))
 Q
 ;
GETDATES(DATA,REPORTID) ; RPC - get graph date range
 D GETDATES^ORWGAPI("ORWGRPC",$G(REPORTID))
 S DATA=$NA(^TMP("ORWGRPC",$J))
 Q
 ;
GETPREF(DATA) ; RPC - get graph settings
 D GETPREF^ORWGAPI("ORWGRPC")
 S DATA=$NA(^TMP("ORWGRPC",$J))
 Q
 ;
GETSIZE(DATA) ; RPC - get graph positions and sizes
 D GETSIZE^ORWGAPI("ORWGRPC")
 S DATA=$NA(^TMP("ORWGRPC",$J))
 Q
 ;
GETVIEWS(DATA,ALL,PUBLIC,EXT) ; RPC - get graph views
 D GETVIEWS^ORWGAPI("ORWGRPC",ALL,+$G(PUBLIC),+$G(EXT))
 S DATA=$NA(^TMP("ORWGRPC",$J))
 Q
 ;
ITEMDATA(DATA,ITEM,START,DFN) ; RPC - get data of an item on patient (glucose results)
 S ITEM=$$UP^ORWGAPIX(ITEM)
 D ITEMDATA^ORWGAPI("ORWGRPC",ITEM,START,DFN)
 S DATA=$NA(^TMP("ORWGRPC",$J))
 Q
 ; 
ITEMS(ITEMS,DFN,TYPE) ; RPC - get items of a type of data on patient (lab tests)
 D ITEMS^ORWGAPI("ORWGRPC",DFN,TYPE)
 S ITEMS=$NA(^TMP("ORWGRPC",$J))
 Q
 ;
LOOKUP(VAL,INFO,FROM,DIR) ; RPC - get item names for long lookup
 D LOOKUP^ORWGAPI(.VAL,INFO,.FROM,DIR)
 Q
 ;
PUBLIC(VAL) ; RPC - check if user can edit public views and settings
 S VAL=$$PUBLIC^ORWGAPI(DUZ)
 Q
 ;
RPTPARAM(VAL,IEN) ; RPC - return PARAM1^PARAM2 for graph report
 S VAL=$$RPTPARAM^ORWGAPI(IEN)
 Q
 ;
SETPREF(ERR,SETTING,PUBLIC) ; RPC - set a graph setting
 D SETPREF^ORWGAPI("ORWGRPC",SETTING,+$G(PUBLIC))
 S ERR=$NA(^TMP("ORWGRPC",$J))
 Q
 ;
SETSIZE(ERR,VAL) ; RPC - set graph positions and sizes
 D SETSIZE^ORWGAPI("ORWGRPC",.VAL)
 S ERR=$NA(^TMP("ORWGRPC",$J))
 Q
 ;
SETVIEWS(ERR,NAME,PUBLIC,VAL) ; RPC - set a graph view
 D SETVIEWS^ORWGAPI("ORWGRPC",NAME,+$G(PUBLIC),.VAL)
 S ERR=$NA(^TMP("ORWGRPC",$J))
 Q
 ;
TAX(DATA,ALL,REMTAX) ; RPC - get reminder taxonomies
 D TAX^ORWGAPI("ORWGRPC",+$G(ALL),.REMTAX)
 S DATA=$NA(^TMP("ORWGRPC",$J))
 Q
 ;
TESTSPEC(DATA) ; RPC - get test/spec info on all lab tests
 D TESTSPEC^ORWGAPI("ORWGRPC")
 S DATA=$NA(^TMP("ORWGRPC",$J))
 Q
 ;
TYPES(TYPES,DFN,SUB) ; RPC - get all the types of data on a patient (SUB=1, gets subtypes, DFN=0 gets all types), 
 D TYPES^ORWGAPI("ORWGRPC",DFN,+$G(SUB))
 S TYPES=$NA(^TMP("ORWGRPC",$J))
 Q
 ;