| [613] | 1 | ORWGAPI ; SLC/STAFF - Graph API ;12/21/05 08:14
|
|---|
| 2 | ;;3.0;ORDER ENTRY/RESULTS REPORTING;**215,243**;Dec 17, 1997;Build 242
|
|---|
| 3 | ;
|
|---|
| 4 | ALLITEMS(ITEMS,DFN) ; API - return all items of data on patient (procedures, tests, codes,..)
|
|---|
| 5 | N CNT,SUB,TMP,TYPE
|
|---|
| 6 | K ^TMP("ORWGAPI",$J)
|
|---|
| 7 | S DFN=+$G(DFN) I 'DFN Q
|
|---|
| 8 | D TYPES("ORWGAPI",DFN)
|
|---|
| 9 | D RETURN^ORWGAPIW(.TMP,.ITEMS)
|
|---|
| 10 | S CNT=0
|
|---|
| 11 | S SUB=""
|
|---|
| 12 | F S SUB=$O(^TMP("ORWGAPI",$J,SUB)) Q:SUB="" D
|
|---|
| 13 | . S TYPE=$P(^TMP("ORWGAPI",$J,SUB),U)
|
|---|
| 14 | . D ITEMS^ORWGAPIR(.ITEMS,DFN,TYPE,0,,,.CNT,TMP)
|
|---|
| 15 | D SETLAST^ORWGTASK(DFN)
|
|---|
| 16 | K ^TMP("ORWGAPI",$J)
|
|---|
| 17 | Q
|
|---|
| 18 | ;
|
|---|
| 19 | ALLVIEWS(DATA,VIEW,USER) ; API - get all graph views
|
|---|
| 20 | D ALLVIEWS^ORWGAPIP(.DATA,+$G(VIEW),+$G(USER))
|
|---|
| 21 | Q
|
|---|
| 22 | ;
|
|---|
| 23 | CLASS(DATA,TYPE) ; API - get classification
|
|---|
| 24 | I TYPE=50.605 D DRUGC^ORWGAPIC(.DATA)
|
|---|
| 25 | I TYPE=68 D ACC^ORWGAPIC(.DATA)
|
|---|
| 26 | I TYPE=8925.1 D TIUTITLE^ORWGAPIA(.DATA)
|
|---|
| 27 | I TYPE=100.98 D OITEM^ORWGAPIA(.DATA)
|
|---|
| 28 | Q
|
|---|
| 29 | ;
|
|---|
| 30 | DATEDATA(DATA,OLDEST,NEWEST,TYPEITEM,DFN) ; API - return all data for an item on patient for date range
|
|---|
| 31 | N CNT,ITEM,SUB,TMP,TYPE
|
|---|
| 32 | S DFN=+$G(DFN) I 'DFN Q
|
|---|
| 33 | S OLDEST=+$G(OLDEST)
|
|---|
| 34 | S NEWEST=+$G(NEWEST,$$NOW^ORWGAPIX)
|
|---|
| 35 | S TYPEITEM=$G(TYPEITEM) I TYPEITEM'[U Q
|
|---|
| 36 | I 'OLDEST D ITEMDATA(.DATA,TYPEITEM,NEWEST,DFN,OLDEST) Q
|
|---|
| 37 | I OLDEST<NEWEST Q
|
|---|
| 38 | S TYPEITEM=$$UP^ORWGAPIX(TYPEITEM)
|
|---|
| 39 | D RETURN^ORWGAPIW(.TMP,.DATA)
|
|---|
| 40 | S TYPE=$P(TYPEITEM,U)
|
|---|
| 41 | S ITEM=$P(TYPEITEM,U,2)
|
|---|
| 42 | S CNT=0
|
|---|
| 43 | D DATA^ORWGAPIR(.DATA,ITEM,TYPE,NEWEST,DFN,.CNT,TMP,OLDEST)
|
|---|
| 44 | Q
|
|---|
| 45 | ;
|
|---|
| 46 | DATEITEM(ITEMS,OLDEST,NEWEST,TYPE,DFN) ; API - return all file items on patient for date range
|
|---|
| 47 | N CNT,SUB,TMP
|
|---|
| 48 | K ^TMP("ORWGAPI",$J)
|
|---|
| 49 | S DFN=+$G(DFN) I 'DFN Q
|
|---|
| 50 | S OLDEST=+$G(OLDEST),NEWEST=+$G(NEWEST),TYPE=$G(TYPE)
|
|---|
| 51 | I $L(TYPE) S ^TMP("ORWGAPI",$J,1)=TYPE
|
|---|
| 52 | I '$L(TYPE) D TYPES("ORWGAPI",DFN)
|
|---|
| 53 | D RETURN^ORWGAPIW(.TMP,.ITEMS)
|
|---|
| 54 | S CNT=0
|
|---|
| 55 | S SUB=""
|
|---|
| 56 | F S SUB=$O(^TMP("ORWGAPI",$J,SUB)) Q:SUB="" D
|
|---|
| 57 | . S TYPE=$P(^TMP("ORWGAPI",$J,SUB),U)
|
|---|
| 58 | . D ITEMS^ORWGAPIR(.ITEMS,DFN,TYPE,6,OLDEST,NEWEST,.CNT,TMP)
|
|---|
| 59 | K ^TMP("ORWGAPI",$J)
|
|---|
| 60 | Q
|
|---|
| 61 | ;
|
|---|
| 62 | DELVIEWS(DATA,NAME,PUBLIC) ; API - delete a graph view
|
|---|
| 63 | D DELVIEWS^ORWGAPIP(.DATA,$G(NAME),$G(PUBLIC))
|
|---|
| 64 | Q
|
|---|
| 65 | ;
|
|---|
| 66 | DETAIL(DATA,DFN,DATE1,DATE2,VAL,COMP) ; API - get all reports for types of data from items and date range
|
|---|
| 67 | D DETAIL^ORWGAPID("ORWGRPC",DFN,DATE1,DATE2,.VAL)
|
|---|
| 68 | S DATA=$NA(^TMP("ORWGRPC",$J))
|
|---|
| 69 | Q
|
|---|
| 70 | ;
|
|---|
| 71 | DETAILS(DATA,DFN,DATE1,DATE2,TYPE,COMP) ; API - get report for type of data for a date or date range
|
|---|
| 72 | D DETAILS^ORWGAPID("ORWGRPC",DFN,DATE1,DATE2,TYPE)
|
|---|
| 73 | S DATA=$NA(^TMP("ORWGRPC",$J))
|
|---|
| 74 | Q
|
|---|
| 75 | ;
|
|---|
| 76 | FASTDATA(DATA,DFN) ; API - get all data (non-lab) on patient
|
|---|
| 77 | D FASTDATA^ORWGAPIF(.DATA,DFN)
|
|---|
| 78 | Q
|
|---|
| 79 | ;
|
|---|
| 80 | FASTITEM(ITEMS,DFN) ; API - get all items on patient
|
|---|
| 81 | D FASTITEM^ORWGAPIF(.ITEMS,DFN)
|
|---|
| 82 | D SETLAST^ORWGTASK(DFN)
|
|---|
| 83 | Q
|
|---|
| 84 | ;
|
|---|
| 85 | FASTLABS(DATA,DFN) ; API - get all lab data on patient
|
|---|
| 86 | D FASTLABS^ORWGAPIF(.DATA,DFN)
|
|---|
| 87 | Q
|
|---|
| 88 | ;
|
|---|
| 89 | FASTTASK(STATUS,DFN,OLDDFN) ; API - process cache of all data and items on patient, -1 if turned off
|
|---|
| 90 | ; this should be able to be turned off if needbe (D CLEAN^ORWGTASK)
|
|---|
| 91 | D UPDATE^ORWGTASK(.STATUS,DFN,DUZ,+$G(OLDDFN))
|
|---|
| 92 | Q
|
|---|
| 93 | ;
|
|---|
| 94 | GETDATES(DATA,REPORTID) ; API - get graph date ranges
|
|---|
| 95 | D GETDATES^ORWGAPID(.DATA,$G(REPORTID))
|
|---|
| 96 | Q
|
|---|
| 97 | ;
|
|---|
| 98 | GETPREF(DATA) ; API - get graph settings
|
|---|
| 99 | D GETPREF^ORWGAPIP(.DATA)
|
|---|
| 100 | Q
|
|---|
| 101 | ;
|
|---|
| 102 | GETSIZE(DATA) ; API - get graph positions and sizes
|
|---|
| 103 | D GETSIZE^ORWGAPIP(.DATA)
|
|---|
| 104 | Q
|
|---|
| 105 | ;
|
|---|
| 106 | GETVIEWS(DATA,ALL,PUBLIC,EXT,USER) ; API - get graph views
|
|---|
| 107 | D GETVIEWS^ORWGAPIP(.DATA,$G(ALL),$G(PUBLIC),$G(EXT),+$G(USER))
|
|---|
| 108 | Q
|
|---|
| 109 | ;
|
|---|
| 110 | ITEMDATA(DATA,TYPEITEM,START,DFN,BACKTO) ; API - return data of an item on patient (glucose results)
|
|---|
| 111 | N CNT,ITEM,TMP,TYPE
|
|---|
| 112 | S DFN=+$G(DFN) I 'DFN Q
|
|---|
| 113 | S TYPEITEM=$G(TYPEITEM) I TYPEITEM'[U Q
|
|---|
| 114 | S TYPEITEM=$$UP^ORWGAPIX(TYPEITEM)
|
|---|
| 115 | S START=$G(START,$$NOW^ORWGAPIX)
|
|---|
| 116 | D RETURN^ORWGAPIW(.TMP,.DATA)
|
|---|
| 117 | S TYPE=$P(TYPEITEM,U)
|
|---|
| 118 | S ITEM=$P(TYPEITEM,U,2)
|
|---|
| 119 | S CNT=0
|
|---|
| 120 | D DATA^ORWGAPIR(.DATA,ITEM,TYPE,START,DFN,.CNT,TMP,$G(BACKTO))
|
|---|
| 121 | Q
|
|---|
| 122 | ;
|
|---|
| 123 | ITEMS(ITEMS,DFN,TYPE) ; API - return items of a type of data on patient (lab tests)
|
|---|
| 124 | N CNT,TMP
|
|---|
| 125 | S DFN=+$G(DFN) I 'DFN Q
|
|---|
| 126 | S TYPE=$G(TYPE) I '$L(TYPE) Q
|
|---|
| 127 | D RETURN^ORWGAPIW(.TMP,.ITEMS)
|
|---|
| 128 | S CNT=0
|
|---|
| 129 | D ITEMS^ORWGAPIR(.ITEMS,DFN,TYPE,3,,,.CNT,TMP)
|
|---|
| 130 | I TYPE=63 D SETLAST^ORWGTASK(DFN)
|
|---|
| 131 | Q
|
|---|
| 132 | ;
|
|---|
| 133 | LOOKUP(VAL,FILE,FROM,DIR) ; API - get item names for long lookup
|
|---|
| 134 | N REF,SCREEN,XREF
|
|---|
| 135 | D FILE^ORWGAPIU($G(FILE),.REF,.XREF,.SCREEN)
|
|---|
| 136 | I '$L(REF) Q
|
|---|
| 137 | D GENERIC^ORWGAPIW(.VAL,.FROM,DIR,FILE,REF,XREF,SCREEN)
|
|---|
| 138 | Q
|
|---|
| 139 | ;
|
|---|
| 140 | PUBLIC(USER) ; API - $$(user) -> 1 if user can edit public settings and views
|
|---|
| 141 | Q $$PUBLIC^ORWGAPIP(USER)
|
|---|
| 142 | ;
|
|---|
| 143 | RPTPARAM(IEN) ; API - $$(ien) -> PARAM1^PARAM2 for graph report else ""
|
|---|
| 144 | Q $$RPTPARAM^ORWGAPIP(IEN)
|
|---|
| 145 | ;
|
|---|
| 146 | SETPREF(DATA,VAL,PUBLIC) ; API - set a graph setting
|
|---|
| 147 | D SETPREF^ORWGAPIP(.DATA,$G(VAL),$G(PUBLIC))
|
|---|
| 148 | Q
|
|---|
| 149 | ;
|
|---|
| 150 | SETSIZE(DATA,VAL) ; API - set graph positions and settings
|
|---|
| 151 | D SETSIZE^ORWGAPIP(.DATA,.VAL)
|
|---|
| 152 | Q
|
|---|
| 153 | ;
|
|---|
| 154 | SETVIEWS(DATA,NAME,PUBLIC,VAL) ; API - set a graph view
|
|---|
| 155 | D SETVIEWS^ORWGAPIP(.DATA,$G(NAME),$G(PUBLIC),.VAL)
|
|---|
| 156 | Q
|
|---|
| 157 | ;
|
|---|
| 158 | TAX(DATA,ALL,REMTAX) ; API - get reminder taxonomies
|
|---|
| 159 | D TAX^ORWGAPID(.DATA,+$G(ALL),.REMTAX)
|
|---|
| 160 | Q
|
|---|
| 161 | ;
|
|---|
| 162 | TESTING(DATA) ; API - return test data
|
|---|
| 163 | D TESTING^ORWGTEST(.DATA)
|
|---|
| 164 | Q
|
|---|
| 165 | ;
|
|---|
| 166 | TESTSPEC(DATA) ; API - return test/spec info on all lab tests
|
|---|
| 167 | D TESTSPEC^ORWGAPIC(.DATA)
|
|---|
| 168 | Q
|
|---|
| 169 | ;
|
|---|
| 170 | TYPES(TYPES,DFN,SUB) ; API - return all types of data on patient (if no dfn, return all)
|
|---|
| 171 | N TMP
|
|---|
| 172 | S DFN=+$G(DFN)
|
|---|
| 173 | S SUB=+$G(SUB)
|
|---|
| 174 | D RETURN^ORWGAPIW(.TMP,.TYPES)
|
|---|
| 175 | D TYPES^ORWGAPIT(.TYPES,DFN,SUB,TMP)
|
|---|
| 176 | Q
|
|---|
