ORWGRPC.m

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       ;