OCXCACHE ;SLC/RJS,CLA - ORDER CHECK CACHE CONTROLLER ;4/16/02 16:28
;;3.0;ORDER ENTRY/RESULTS REPORTING;**143**;Dec 17,1997
;; ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
;
GETDATA(OCXRES,OCXCALL,OCXDFN,OCXTIME) ;
;
;
N OCXDATA K OCXRES S OCXRES=""
;
Q:'$L($G(OCXCALL)) 1
Q:'$L($G(OCXDFN)) 2
S ^XTMP("OCXCACHE",0)=$$FMADD^XLFDT($$NOW^XLFDT,1,"","","")_"^"_$$NOW^XLFDT
S:'$G(OCXTIME) OCXTIME=300
;
K:($G(^XTMP("OCXCACHE",OCXDFN,OCXCALL,"TIME"))<$$NOW) ^XTMP("OCXCACHE",OCXDFN,OCXCALL)
;
I '$D(^XTMP("OCXCACHE",OCXDFN,OCXCALL)) D
.I OCXCALL["$$" X "S OCXDATA="_OCXCALL
.E S OCXDATA="" D @OCXCALL
.M ^XTMP("OCXCACHE",OCXDFN,OCXCALL,"DATA")=OCXDATA
.S ^XTMP("OCXCACHE",OCXDFN,OCXCALL,"TIME")=$$NOW+OCXTIME
;
M:$D(^XTMP("OCXCACHE",OCXDFN,OCXCALL,"DATA")) OCXRES=^XTMP("OCXCACHE",OCXDFN,OCXCALL,"DATA")
Q:'$D(^XTMP("OCXCACHE",OCXDFN,OCXCALL,"DATA")) 3
;
Q 0
;
NOW() Q $P($H,",",2)+($H*86400)
;
PURGE ; Purge OCX namespaced entries in ^XTMP (Cache) that have expired.
;
N OCXE0,OCXE1,OCXS
;
;S OCXS="OCX" F S OCXS=$O(^XTMP(OCXS)) Q:'$L(OCXS) Q:'($E(OCXS,1,3)="OCX") D
S OCXS="OCXCACHE" D
.S OCXE0=0 F S OCXE0=$O(^XTMP(OCXS,OCXE0)) Q:'$L(OCXE0) D
..S OCXE1="" F S OCXE1=$O(^XTMP(OCXS,OCXE0,OCXE1)) Q:'$L(OCXE1) D
...K:($G(^XTMP(OCXS,OCXE0,OCXE1,"TIME"))<$$NOW) ^XTMP(OCXS,OCXE0,OCXE1)
;
Q
;
;Sample External Call
;
; S ORZ=$$LOCL^ORQQLR1(ORDFN,TEST,SPECIMEN)
;
; Changes to:
;
;S TEMP=$$GETDATA^OCXCACHE(.ORZ,"$$LOCL^ORQQLR1("_ORDFN_","_TEST_","_SPECIMEN_")",ORDFN,300)
;
;$$GETDATA^OCXCACHE(RESULTS,EXTERNAL CALL,PATIENT ID,TIMEOUT) ----> returns either a 1, 2, 3, or 0
; 0 -> No Errors
; 1 -> Missing External Call.
; 2 -> Missing Patient ID.
; 3 -> Cache Data Missing.
;***Results = Data Value Returned,
; Either Scalar or Array.
;
;***External Call = Routine call in a 'resolved parameter' format to
; reduce the chances of cache returning the wrong values.
;
; If ORDFN=1234 and TEST=110 and SPECIMEN=119
;
; Then If this parameter is: "$$LOCL^ORQQLR1("_ORDFN_","_TEST_","_SPECIMEN_")"
; then the value will be stored in subscript: "$$LOCL^ORQQLR1(1234,110,119)"
;
; If this parameter is: "$$LOCL^ORQQLR1(ORDFN,TEST,SPECIMEN)"
; then the value will be stored in subscript: "$$LOCL^ORQQLR1(ORDFN,TEST,SPECIMEN)"
;
;***Object ID = If this is patient data then this will be the patient's DFN.
; If this is user data then this will be the user's DUZ.
; etc...
;
;***Timeout = (Optional Default = 300 (5 Minutes)) How long, in seconds, the data has to live in the cache.
;
;^XTMP("OCXCACHE",DFN,"$$LOCL^ORQQLR1(1234,110,119)","DATA")= Data
;
;^XTMP("OCXCACHE",DFN,"$$LOCL^ORQQLR1(1234,110,119)","TIME")= When the data will be deleted from the cache.
;
; $$NOW^OCXCACHE = The number of seconds since the "beginning of time". Used to determine if the data
; node in the cache is past its expiration date or not.
;
; It is very important that ORMTIME is running if this routine is being used.
; ORMTIME calls OCXOPURG which calls PURGE^OCXCACHE that cleans out expired data
; in the cache. This will keep the cache from using up all the available diskspace
; in the Volume Set or directory that ^XTMP resides in. PURGE^OCXCACHE can be run
; manually from a programmer's prompt if needed.
;
OCXCACHE ;SLC/RJS,CLA - ORDER CHECK CACHE CONTROLLER ;4/16/02 16:28
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**143**;Dec 17,1997
+2 ;; ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
+3 ;
GETDATA(OCXRES,OCXCALL,OCXDFN,OCXTIME) ;
+1 ;
+2 ;
+3 NEW OCXDATA
KILL OCXRES
SET OCXRES=""
+4 ;
+5 IF '$LENGTH($GET(OCXCALL))
QUIT 1
+6 IF '$LENGTH($GET(OCXDFN))
QUIT 2
+7 SET ^XTMP("OCXCACHE",0)=$$FMADD^XLFDT($$NOW^XLFDT,1,"","","")_"^"_$$NOW^XLFDT
+8 IF '$GET(OCXTIME)
SET OCXTIME=300
+9 ;
+10 IF ($GET(^XTMP("OCXCACHE",OCXDFN,OCXCALL,"TIME"))<$$NOW)
KILL ^XTMP("OCXCACHE",OCXDFN,OCXCALL)
+11 ;
+12 IF '$DATA(^XTMP("OCXCACHE",OCXDFN,OCXCALL))
Begin DoDot:1
+13 IF OCXCALL["$$"
XECUTE "S OCXDATA="_OCXCALL
+14 IF '$TEST
SET OCXDATA=""
DO @OCXCALL
+15 MERGE ^XTMP("OCXCACHE",OCXDFN,OCXCALL,"DATA")=OCXDATA
+16 SET ^XTMP("OCXCACHE",OCXDFN,OCXCALL,"TIME")=$$NOW+OCXTIME
End DoDot:1
+17 ;
+18 IF $DATA(^XTMP("OCXCACHE",OCXDFN,OCXCALL,"DATA"))
MERGE OCXRES=^XTMP("OCXCACHE",OCXDFN,OCXCALL,"DATA")
+19 IF '$DATA(^XTMP("OCXCACHE",OCXDFN,OCXCALL,"DATA"))
QUIT 3
+20 ;
+21 QUIT 0
+22 ;
NOW() QUIT $PIECE($HOROLOG,",",2)+($HOROLOG*86400)
+1 ;
PURGE ; Purge OCX namespaced entries in ^XTMP (Cache) that have expired.
+1 ;
+2 NEW OCXE0,OCXE1,OCXS
+3 ;
+4 ;S OCXS="OCX" F S OCXS=$O(^XTMP(OCXS)) Q:'$L(OCXS) Q:'($E(OCXS,1,3)="OCX") D
+5 SET OCXS="OCXCACHE"
Begin DoDot:1
+6 SET OCXE0=0
FOR
SET OCXE0=$ORDER(^XTMP(OCXS,OCXE0))
IF '$LENGTH(OCXE0)
QUIT
Begin DoDot:2
+7 SET OCXE1=""
FOR
SET OCXE1=$ORDER(^XTMP(OCXS,OCXE0,OCXE1))
IF '$LENGTH(OCXE1)
QUIT
Begin DoDot:3
+8 IF ($GET(^XTMP(OCXS,OCXE0,OCXE1,"TIME"))<$$NOW)
KILL ^XTMP(OCXS,OCXE0,OCXE1)
End DoDot:3
End DoDot:2
End DoDot:1
+9 ;
+10 QUIT
+11 ;
+12 ;Sample External Call
+13 ;
+14 ; S ORZ=$$LOCL^ORQQLR1(ORDFN,TEST,SPECIMEN)
+15 ;
+16 ; Changes to:
+17 ;
+18 ;S TEMP=$$GETDATA^OCXCACHE(.ORZ,"$$LOCL^ORQQLR1("_ORDFN_","_TEST_","_SPECIMEN_")",ORDFN,300)
+19 ;
+20 ;$$GETDATA^OCXCACHE(RESULTS,EXTERNAL CALL,PATIENT ID,TIMEOUT) ----> returns either a 1, 2, 3, or 0
+21 ; 0 -> No Errors
+22 ; 1 -> Missing External Call.
+23 ; 2 -> Missing Patient ID.
+24 ; 3 -> Cache Data Missing.
+25 ;***Results = Data Value Returned,
+26 ; Either Scalar or Array.
+27 ;
+28 ;***External Call = Routine call in a 'resolved parameter' format to
+29 ; reduce the chances of cache returning the wrong values.
+30 ;
+31 ; If ORDFN=1234 and TEST=110 and SPECIMEN=119
+32 ;
+33 ; Then If this parameter is: "$$LOCL^ORQQLR1("_ORDFN_","_TEST_","_SPECIMEN_")"
+34 ; then the value will be stored in subscript: "$$LOCL^ORQQLR1(1234,110,119)"
+35 ;
+36 ; If this parameter is: "$$LOCL^ORQQLR1(ORDFN,TEST,SPECIMEN)"
+37 ; then the value will be stored in subscript: "$$LOCL^ORQQLR1(ORDFN,TEST,SPECIMEN)"
+38 ;
+39 ;***Object ID = If this is patient data then this will be the patient's DFN.
+40 ; If this is user data then this will be the user's DUZ.
+41 ; etc...
+42 ;
+43 ;***Timeout = (Optional Default = 300 (5 Minutes)) How long, in seconds, the data has to live in the cache.
+44 ;
+45 ;^XTMP("OCXCACHE",DFN,"$$LOCL^ORQQLR1(1234,110,119)","DATA")= Data
+46 ;
+47 ;^XTMP("OCXCACHE",DFN,"$$LOCL^ORQQLR1(1234,110,119)","TIME")= When the data will be deleted from the cache.
+48 ;
+49 ; $$NOW^OCXCACHE = The number of seconds since the "beginning of time". Used to determine if the data
+50 ; node in the cache is past its expiration date or not.
+51 ;
+52 ; It is very important that ORMTIME is running if this routine is being used.
+53 ; ORMTIME calls OCXOPURG which calls PURGE^OCXCACHE that cleans out expired data
+54 ; in the cache. This will keep the cache from using up all the available diskspace
+55 ; in the Volume Set or directory that ^XTMP resides in. PURGE^OCXCACHE can be run
+56 ; manually from a programmer's prompt if needed.
+57 ;
