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
;
ORWGRPC ; SLC/STAFF - Graph RPC ;3/9/06 13:59
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**215,243**;Dec 17, 1997;Build 242
+2 ;
ALLITEMS(ITEMS,DFN) ; RPC - get all items of data on patient (procedures, tests, codes,..)
+1 DO ALLITEMS^ORWGAPI("ORWGRPC",DFN)
+2 SET ITEMS=$NAME(^TMP("ORWGRPC",$JOB))
+3 QUIT
+4 ;
ALLVIEWS(DATA,VIEW,USER) ; RPC - get all graph views
+1 DO ALLVIEWS^ORWGAPI("ORWGRPC",+$GET(VIEW),+$GET(USER))
+2 SET DATA=$NAME(^TMP("ORWGRPC",$JOB))
+3 QUIT
+4 ;
CLASS(DATA,TYPE) ; RPC - get classifications
+1 DO CLASS^ORWGAPI("ORWGRPC",TYPE)
+2 SET DATA=$NAME(^TMP("ORWGRPC",$JOB))
+3 QUIT
+4 ;
DATEDATA(DATA,OLDEST,NEWEST,TYPEITEM,DFN) ; RPC - get data for an item on patient in date range
+1 DO DATEDATA^ORWGAPI("ORWGRPC",OLDEST,NEWEST,TYPEITEM,DFN)
+2 SET DATA=$NAME(^TMP("ORWGRPC",$JOB))
+3 QUIT
+4 ;
DATEITEM(DATA,OLDEST,NEWEST,FNUM,DFN) ; RPC - get patient items in date range for a type
+1 DO DATEITEM^ORWGAPI("ORWGRPC",OLDEST,NEWEST,FNUM,DFN)
+2 SET DATA=$NAME(^TMP("ORWGRPC",$JOB))
+3 QUIT
+4 ;
DELVIEWS(ERR,NAME,PUBLIC) ; RPC - delete a graph view
+1 DO DELVIEWS^ORWGAPI("ORWGRPC",NAME,+$GET(PUBLIC))
+2 SET ERR=$NAME(^TMP("ORWGRPC",$JOB))
+3 QUIT
+4 ;
DETAIL(ITEMS,DFN,DATE1,DATE2,VAL,COMP) ; RPC - get all reports for types of data from items and date range
+1 DO DETAIL^ORWGAPI("ORWGRPC",DFN,DATE1,DATE2,.VAL,$GET(COMP))
+2 SET ITEMS=$NAME(^TMP("ORWGRPC",$JOB))
+3 QUIT
+4 ;
DETAILS(ITEMS,DFN,DATE1,DATE2,TYPE,COMP) ; RPC - get report for type of data for a date or date range
+1 DO DETAILS^ORWGAPI("ORWGRPC",DFN,DATE1,DATE2,TYPE,$GET(COMP))
+2 SET ITEMS=$NAME(^TMP("ORWGRPC",$JOB))
+3 QUIT
+4 ;
FASTDATA(DATA,DFN) ; RPC - get all data (non-lab) set up on patient
+1 DO FASTDATA^ORWGAPI(.DATA,DFN)
+2 QUIT
+3 ;
FASTITEM(ITEMS,DFN) ; RPC - get all items set up on patient
+1 DO FASTITEM^ORWGAPI(.ITEMS,DFN)
+2 QUIT
+3 ;
FASTLABS(DATA,DFN) ; RPC - get all lab data set up on patient
+1 DO FASTLABS^ORWGAPI(.DATA,DFN)
+2 QUIT
+3 ;
FASTTASK(STATUS,DFN,OLDDFN) ; set up all data and items on patient
+1 DO FASTTASK^ORWGAPI(.STATUS,DFN,$GET(OLDDFN))
+2 QUIT
+3 ;
GETDATES(DATA,REPORTID) ; RPC - get graph date range
+1 DO GETDATES^ORWGAPI("ORWGRPC",$GET(REPORTID))
+2 SET DATA=$NAME(^TMP("ORWGRPC",$JOB))
+3 QUIT
+4 ;
GETPREF(DATA) ; RPC - get graph settings
+1 DO GETPREF^ORWGAPI("ORWGRPC")
+2 SET DATA=$NAME(^TMP("ORWGRPC",$JOB))
+3 QUIT
+4 ;
GETSIZE(DATA) ; RPC - get graph positions and sizes
+1 DO GETSIZE^ORWGAPI("ORWGRPC")
+2 SET DATA=$NAME(^TMP("ORWGRPC",$JOB))
+3 QUIT
+4 ;
GETVIEWS(DATA,ALL,PUBLIC,EXT,USER) ; RPC - get graph views
+1 DO GETVIEWS^ORWGAPI("ORWGRPC",ALL,+$GET(PUBLIC),+$GET(EXT),+$GET(USER))
+2 SET DATA=$NAME(^TMP("ORWGRPC",$JOB))
+3 QUIT
+4 ;
ITEMDATA(DATA,ITEM,START,DFN) ; RPC - get data of an item on patient (glucose results)
+1 DO ITEMDATA^ORWGAPI("ORWGRPC",ITEM,START,DFN)
+2 SET DATA=$NAME(^TMP("ORWGRPC",$JOB))
+3 QUIT
+4 ;
ITEMS(ITEMS,DFN,TYPE) ; RPC - get items of a type of data on patient (lab tests)
+1 DO ITEMS^ORWGAPI("ORWGRPC",DFN,TYPE)
+2 SET ITEMS=$NAME(^TMP("ORWGRPC",$JOB))
+3 QUIT
+4 ;
LOOKUP(VAL,INFO,FROM,DIR) ; RPC - get item names for long lookup
+1 DO LOOKUP^ORWGAPI(.VAL,INFO,.FROM,DIR)
+2 QUIT
+3 ;
PUBLIC(VAL) ; RPC - check if user can edit public views and settings
+1 SET VAL=$$PUBLIC^ORWGAPI(DUZ)
+2 QUIT
+3 ;
RPTPARAM(VAL,IEN) ; RPC - return PARAM1^PARAM2 for graph report
+1 SET VAL=$$RPTPARAM^ORWGAPI(IEN)
+2 QUIT
+3 ;
SETPREF(ERR,SETTING,PUBLIC) ; RPC - set a graph setting
+1 DO SETPREF^ORWGAPI("ORWGRPC",SETTING,+$GET(PUBLIC))
+2 SET ERR=$NAME(^TMP("ORWGRPC",$JOB))
+3 QUIT
+4 ;
SETSIZE(ERR,VAL) ; RPC - set graph positions and sizes
+1 DO SETSIZE^ORWGAPI("ORWGRPC",.VAL)
+2 SET ERR=$NAME(^TMP("ORWGRPC",$JOB))
+3 QUIT
+4 ;
SETVIEWS(ERR,NAME,PUBLIC,VAL) ; RPC - set a graph view
+1 DO SETVIEWS^ORWGAPI("ORWGRPC",NAME,+$GET(PUBLIC),.VAL)
+2 SET ERR=$NAME(^TMP("ORWGRPC",$JOB))
+3 QUIT
+4 ;
TAX(DATA,ALL,REMTAX) ; RPC - get reminder taxonomies
+1 DO TAX^ORWGAPI("ORWGRPC",+$GET(ALL),.REMTAX)
+2 SET DATA=$NAME(^TMP("ORWGRPC",$JOB))
+3 QUIT
+4 ;
TESTING(DATA) ; RPC - cache data
+1 DO TESTING^ORWGAPI("ORWGRPC")
+2 SET DATA=$NAME(^TMP("ORWGRPC",$JOB))
+3 QUIT
+4 ;
TESTSPEC(DATA) ; RPC - get test/spec info on all lab tests
+1 DO TESTSPEC^ORWGAPI("ORWGRPC")
+2 SET DATA=$NAME(^TMP("ORWGRPC",$JOB))
+3 QUIT
+4 ;
TYPES(TYPES,DFN,SUB) ; RPC - get all the types of data on a patient (SUB=1, gets subtypes, DFN=0 gets all types),
+1 DO TYPES^ORWGAPI("ORWGRPC",DFN,+$GET(SUB))
+2 SET TYPES=$NAME(^TMP("ORWGRPC",$JOB))
+3 QUIT
+4 ;
