source: WorldVistAEHR/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORWGRPC.m@ 619

ORWGRPC ; SLC/STAFF - Graph RPC ;3/9/06  13:59
        ;;3.0;ORDER ENTRY/RESULTS REPORTING;**215,243**;Dec 17, 1997;Build 242
        ;
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
        ;
ALLVIEWS(DATA,VIEW,USER)        ; RPC - get all graph views
        D ALLVIEWS^ORWGAPI("ORWGRPC",+$G(VIEW),+$G(USER))
        S DATA=$NA(^TMP("ORWGRPC",$J))
        Q
        ;
CLASS(DATA,TYPE)        ; RPC - get classifications
        D CLASS^ORWGAPI("ORWGRPC",TYPE)
        S DATA=$NA(^TMP("ORWGRPC",$J))
        Q
        ;
DATEDATA(DATA,OLDEST,NEWEST,TYPEITEM,DFN)       ; RPC - get data for an item on patient in date range
        D DATEDATA^ORWGAPI("ORWGRPC",OLDEST,NEWEST,TYPEITEM,DFN)
        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
        ;
FASTDATA(DATA,DFN)      ; RPC - get all data (non-lab) set up on patient
        D FASTDATA^ORWGAPI(.DATA,DFN)
        Q
        ;
FASTITEM(ITEMS,DFN)     ; RPC - get all items set up on patient
        D FASTITEM^ORWGAPI(.ITEMS,DFN)
        Q
        ;
FASTLABS(DATA,DFN)      ; RPC - get all lab data set up on patient
        D FASTLABS^ORWGAPI(.DATA,DFN)
        Q
        ;
FASTTASK(STATUS,DFN,OLDDFN)     ; set up all data and items on patient
        D FASTTASK^ORWGAPI(.STATUS,DFN,$G(OLDDFN))
        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,USER)      ; RPC - get graph views
        D GETVIEWS^ORWGAPI("ORWGRPC",ALL,+$G(PUBLIC),+$G(EXT),+$G(USER))
        S DATA=$NA(^TMP("ORWGRPC",$J))
        Q
        ;
ITEMDATA(DATA,ITEM,START,DFN)   ; RPC - get data of an item on patient (glucose results)
        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
        ;
TESTING(DATA)   ; RPC - cache data
        D TESTING^ORWGAPI("ORWGRPC")
        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
        ;