Changeset 623 for WorldVistAEHR/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORWGRPC.m

Timestamp:

Dec 4, 2009, 12:11:15 AM (14 years ago)

Author:

George Lilly

Message:

revised back to 6/30/08 version

File:

• WorldVistAEHR/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORWGRPC.m (modified) (1 diff)

WorldVistAEHR/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORWGRPC.m

@@ -1 @@
-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
+ ;;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
+ ;