Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ORWGAPI

ORWGAPI.m

Go to the documentation of this file.
  1. ORWGAPI ; SLC/STAFF - Graph API ;12/21/05 08:14
  1. ;;3.0;ORDER ENTRY/RESULTS REPORTING;**215,243**;Dec 17, 1997;Build 242
  1. ;
  1. ALLITEMS(ITEMS,DFN) ; API - return all items of data on patient (procedures, tests, codes,..)
  1. N CNT,SUB,TMP,TYPE
  1. K ^TMP("ORWGAPI",$J)
  1. S DFN=+$G(DFN) I 'DFN Q
  1. D TYPES("ORWGAPI",DFN)
  1. D RETURN^ORWGAPIW(.TMP,.ITEMS)
  1. S CNT=0
  1. S SUB=""
  1. F S SUB=$O(^TMP("ORWGAPI",$J,SUB)) Q:SUB="" D
  1. . S TYPE=$P(^TMP("ORWGAPI",$J,SUB),U)
  1. . D ITEMS^ORWGAPIR(.ITEMS,DFN,TYPE,0,,,.CNT,TMP)
  1. D SETLAST^ORWGTASK(DFN)
  1. K ^TMP("ORWGAPI",$J)
  1. Q
  1. ;
  1. ALLVIEWS(DATA,VIEW,USER) ; API - get all graph views
  1. D ALLVIEWS^ORWGAPIP(.DATA,+$G(VIEW),+$G(USER))
  1. Q
  1. ;
  1. CLASS(DATA,TYPE) ; API - get classification
  1. I TYPE=50.605 D DRUGC^ORWGAPIC(.DATA)
  1. I TYPE=68 D ACC^ORWGAPIC(.DATA)
  1. I TYPE=8925.1 D TIUTITLE^ORWGAPIA(.DATA)
  1. I TYPE=100.98 D OITEM^ORWGAPIA(.DATA)
  1. Q
  1. ;
  1. DATEDATA(DATA,OLDEST,NEWEST,TYPEITEM,DFN) ; API - return all data for an item on patient for date range
  1. N CNT,ITEM,SUB,TMP,TYPE
  1. S DFN=+$G(DFN) I 'DFN Q
  1. S OLDEST=+$G(OLDEST)
  1. S NEWEST=+$G(NEWEST,$$NOW^ORWGAPIX)
  1. S TYPEITEM=$G(TYPEITEM) I TYPEITEM'[U Q
  1. I 'OLDEST D ITEMDATA(.DATA,TYPEITEM,NEWEST,DFN,OLDEST) Q
  1. I OLDEST<NEWEST Q
  1. S TYPEITEM=$$UP^ORWGAPIX(TYPEITEM)
  1. D RETURN^ORWGAPIW(.TMP,.DATA)
  1. S TYPE=$P(TYPEITEM,U)
  1. S ITEM=$P(TYPEITEM,U,2)
  1. S CNT=0
  1. D DATA^ORWGAPIR(.DATA,ITEM,TYPE,NEWEST,DFN,.CNT,TMP,OLDEST)
  1. Q
  1. ;
  1. DATEITEM(ITEMS,OLDEST,NEWEST,TYPE,DFN) ; API - return all file items on patient for date range
  1. N CNT,SUB,TMP
  1. K ^TMP("ORWGAPI",$J)
  1. S DFN=+$G(DFN) I 'DFN Q
  1. S OLDEST=+$G(OLDEST),NEWEST=+$G(NEWEST),TYPE=$G(TYPE)
  1. I $L(TYPE) S ^TMP("ORWGAPI",$J,1)=TYPE
  1. I '$L(TYPE) D TYPES("ORWGAPI",DFN)
  1. D RETURN^ORWGAPIW(.TMP,.ITEMS)
  1. S CNT=0
  1. S SUB=""
  1. F S SUB=$O(^TMP("ORWGAPI",$J,SUB)) Q:SUB="" D
  1. . S TYPE=$P(^TMP("ORWGAPI",$J,SUB),U)
  1. . D ITEMS^ORWGAPIR(.ITEMS,DFN,TYPE,6,OLDEST,NEWEST,.CNT,TMP)
  1. K ^TMP("ORWGAPI",$J)
  1. Q
  1. ;
  1. DELVIEWS(DATA,NAME,PUBLIC) ; API - delete a graph view
  1. D DELVIEWS^ORWGAPIP(.DATA,$G(NAME),$G(PUBLIC))
  1. Q
  1. ;
  1. DETAIL(DATA,DFN,DATE1,DATE2,VAL,COMP) ; API - get all reports for types of data from items and date range
  1. D DETAIL^ORWGAPID("ORWGRPC",DFN,DATE1,DATE2,.VAL)
  1. S DATA=$NA(^TMP("ORWGRPC",$J))
  1. Q
  1. ;
  1. DETAILS(DATA,DFN,DATE1,DATE2,TYPE,COMP) ; API - get report for type of data for a date or date range
  1. D DETAILS^ORWGAPID("ORWGRPC",DFN,DATE1,DATE2,TYPE)
  1. S DATA=$NA(^TMP("ORWGRPC",$J))
  1. Q
  1. ;
  1. FASTDATA(DATA,DFN) ; API - get all data (non-lab) on patient
  1. D FASTDATA^ORWGAPIF(.DATA,DFN)
  1. Q
  1. ;
  1. FASTITEM(ITEMS,DFN) ; API - get all items on patient
  1. D FASTITEM^ORWGAPIF(.ITEMS,DFN)
  1. D SETLAST^ORWGTASK(DFN)
  1. Q
  1. ;
  1. FASTLABS(DATA,DFN) ; API - get all lab data on patient
  1. D FASTLABS^ORWGAPIF(.DATA,DFN)
  1. Q
  1. ;
  1. FASTTASK(STATUS,DFN,OLDDFN) ; API - process cache of all data and items on patient, -1 if turned off
  1. ; this should be able to be turned off if needbe (D CLEAN^ORWGTASK)
  1. D UPDATE^ORWGTASK(.STATUS,DFN,DUZ,+$G(OLDDFN))
  1. Q
  1. ;
  1. GETDATES(DATA,REPORTID) ; API - get graph date ranges
  1. D GETDATES^ORWGAPID(.DATA,$G(REPORTID))
  1. Q
  1. ;
  1. GETPREF(DATA) ; API - get graph settings
  1. D GETPREF^ORWGAPIP(.DATA)
  1. Q
  1. ;
  1. GETSIZE(DATA) ; API - get graph positions and sizes
  1. D GETSIZE^ORWGAPIP(.DATA)
  1. Q
  1. ;
  1. GETVIEWS(DATA,ALL,PUBLIC,EXT,USER) ; API - get graph views
  1. D GETVIEWS^ORWGAPIP(.DATA,$G(ALL),$G(PUBLIC),$G(EXT),+$G(USER))
  1. Q
  1. ;
  1. ITEMDATA(DATA,TYPEITEM,START,DFN,BACKTO) ; API - return data of an item on patient (glucose results)
  1. N CNT,ITEM,TMP,TYPE
  1. S DFN=+$G(DFN) I 'DFN Q
  1. S TYPEITEM=$G(TYPEITEM) I TYPEITEM'[U Q
  1. S TYPEITEM=$$UP^ORWGAPIX(TYPEITEM)
  1. S START=$G(START,$$NOW^ORWGAPIX)
  1. D RETURN^ORWGAPIW(.TMP,.DATA)
  1. S TYPE=$P(TYPEITEM,U)
  1. S ITEM=$P(TYPEITEM,U,2)
  1. S CNT=0
  1. D DATA^ORWGAPIR(.DATA,ITEM,TYPE,START,DFN,.CNT,TMP,$G(BACKTO))
  1. Q
  1. ;
  1. ITEMS(ITEMS,DFN,TYPE) ; API - return items of a type of data on patient (lab tests)
  1. N CNT,TMP
  1. S DFN=+$G(DFN) I 'DFN Q
  1. S TYPE=$G(TYPE) I '$L(TYPE) Q
  1. D RETURN^ORWGAPIW(.TMP,.ITEMS)
  1. S CNT=0
  1. D ITEMS^ORWGAPIR(.ITEMS,DFN,TYPE,3,,,.CNT,TMP)
  1. I TYPE=63 D SETLAST^ORWGTASK(DFN)
  1. Q
  1. ;
  1. LOOKUP(VAL,FILE,FROM,DIR) ; API - get item names for long lookup
  1. N REF,SCREEN,XREF
  1. D FILE^ORWGAPIU($G(FILE),.REF,.XREF,.SCREEN)
  1. I '$L(REF) Q
  1. D GENERIC^ORWGAPIW(.VAL,.FROM,DIR,FILE,REF,XREF,SCREEN)
  1. Q
  1. ;
  1. PUBLIC(USER) ; API - $$(user) -> 1 if user can edit public settings and views
  1. Q $$PUBLIC^ORWGAPIP(USER)
  1. ;
  1. RPTPARAM(IEN) ; API - $$(ien) -> PARAM1^PARAM2 for graph report else ""
  1. Q $$RPTPARAM^ORWGAPIP(IEN)
  1. ;
  1. SETPREF(DATA,VAL,PUBLIC) ; API - set a graph setting
  1. D SETPREF^ORWGAPIP(.DATA,$G(VAL),$G(PUBLIC))
  1. Q
  1. ;
  1. SETSIZE(DATA,VAL) ; API - set graph positions and settings
  1. D SETSIZE^ORWGAPIP(.DATA,.VAL)
  1. Q
  1. ;
  1. SETVIEWS(DATA,NAME,PUBLIC,VAL) ; API - set a graph view
  1. D SETVIEWS^ORWGAPIP(.DATA,$G(NAME),$G(PUBLIC),.VAL)
  1. Q
  1. ;
  1. TAX(DATA,ALL,REMTAX) ; API - get reminder taxonomies
  1. D TAX^ORWGAPID(.DATA,+$G(ALL),.REMTAX)
  1. Q
  1. ;
  1. TESTING(DATA) ; API - return test data
  1. D TESTING^ORWGTEST(.DATA)
  1. Q
  1. ;
  1. TESTSPEC(DATA) ; API - return test/spec info on all lab tests
  1. D TESTSPEC^ORWGAPIC(.DATA)
  1. Q
  1. ;
  1. TYPES(TYPES,DFN,SUB) ; API - return all types of data on patient (if no dfn, return all)
  1. N TMP
  1. S DFN=+$G(DFN)
  1. S SUB=+$G(SUB)
  1. D RETURN^ORWGAPIW(.TMP,.TYPES)
  1. D TYPES^ORWGAPIT(.TYPES,DFN,SUB,TMP)
  1. Q