BQIPLLOG ;PRXM/HC/ALA-Login Date/Time ; 04 May 2006 2:37 PM
;;2.1;ICARE MANAGEMENT SYSTEM;;Feb 07, 2011
;
Q
;
EN(DATA,FAKE) ; EP -- BQI GET LAST LOGIN
;Description
; Get date/time of last login
;Input
; FAKE - extra 'blank' parameter required by BMXNET async 'feature'
;Output
; DATA - name of global (passed by reference) in which the data
; is stored
;Expects
; DUZ - the internal entry number of the person signed on
;
NEW UID,II,LOGDTM,X
S UID=$S($G(ZTSK):"Z"_ZTSK,1:$J)
S DATA=$NA(^TMP("BQIPLLOG",UID))
K @DATA
;
S II=0
S @DATA@(II)="D00030LAST_LOG_DATETIME"_$C(30)
NEW $ESTACK,$ETRAP S $ETRAP="D ERR^BQIPLLOG D UNWIND^%ZTER" ; SAC 2006 2.2.3.3.2
;
S LOGDTM=$$GET1^DIQ(90505,DUZ_",",.06,"I")
S II=II+1,@DATA@(II)=$$FMTE^BQIUL1(LOGDTM)_$C(30)
;
DONE ;
S II=II+1,@DATA@(II)=$C(31)
Q
;
ERR ;
D ^%ZTER
NEW Y,ERRDTM
S Y=$$NOW^XLFDT() X ^DD("DD") S ERRDTM=Y
S BMXSEC="Recording that an error occurred at "_ERRDTM
I $D(II),$D(DATA) S II=II+1,@DATA@(II)=$C(31)
Q
;
UPD(DATA,VALUE) ; EP -- BQI SET LAST LOGIN
;
; Input
; VALUE - the value
;Output
; DATA - name of global (passed by reference) in which the data
; is stored
;Assumes DUZ the user signed onto iCare
NEW UID,II,ERROR,X
S UID=$S($G(ZTSK):"Z"_ZTSK,1:$J)
S DATA=$NA(^TMP("BQIPLLOG",UID))
K @DATA
S II=0
;
NEW $ESTACK,$ETRAP S $ETRAP="D ERR^BQIPLLOG D UNWIND^%ZTER" ; SAC 2006 2.2.3.3.2
;
S @DATA@(II)="I00010RESULT"_$C(30)
S VALUE=$G(VALUE,"")
I VALUE="" S VALUE=$$NOW^XLFDT()
;
S BQIUPD(90505,DUZ_",",.06)=VALUE
D FILE^DIE("","BQIUPD","ERROR")
K BQIUPD
S II=II+1
I '$D(ERROR) S @DATA@(II)="1"_$C(30)
I $D(ERROR) S @DATA@(II)="-1"_$C(30)
S II=II+1,@DATA@(II)=$C(31)
;
CHK ; Check for the first log in of the day
NEW DA,LOGDTM,CDTM,CFLG
S DA=$O(^BQI(90508,0)) Q:DA=""
S LOGDTM=$$GET1^DIQ(90508,DA_",",9,"I")
S CDTM=$$NOW^XLFDT(),CFLG=0
I LOGDTM="" S BQIUPD(90508,DA_",",9)=CDTM,CFLG=1
I LOGDTM'="" D
. I $P(CDTM,".",1)=$P(LOGDTM,".",1) Q
. S BQIUPD(90508,DA_",",9)=CDTM,CFLG=1
D FILE^DIE("","BQIUPD","ERROR")
;
; Check tasks
I CFLG D ^BQISCHED
Q
BQIPLLOG ;PRXM/HC/ALA-Login Date/Time ; 04 May 2006 2:37 PM
+1 ;;2.1;ICARE MANAGEMENT SYSTEM;;Feb 07, 2011
+2 ;
+3 QUIT
+4 ;
EN(DATA,FAKE) ; EP -- BQI GET LAST LOGIN
+1 ;Description
+2 ; Get date/time of last login
+3 ;Input
+4 ; FAKE - extra 'blank' parameter required by BMXNET async 'feature'
+5 ;Output
+6 ; DATA - name of global (passed by reference) in which the data
+7 ; is stored
+8 ;Expects
+9 ; DUZ - the internal entry number of the person signed on
+10 ;
+11 NEW UID,II,LOGDTM,X
+12 SET UID=$SELECT($GET(ZTSK):"Z"_ZTSK,1:$JOB)
+13 SET DATA=$NAME(^TMP("BQIPLLOG",UID))
+14 KILL @DATA
+15 ;
+16 SET II=0
+17 SET @DATA@(II)="D00030LAST_LOG_DATETIME"_$CHAR(30)
+18 ; SAC 2006 2.2.3.3.2
NEW $ESTACK,$ETRAP
SET $ETRAP="D ERR^BQIPLLOG D UNWIND^%ZTER"
+19 ;
+20 SET LOGDTM=$$GET1^DIQ(90505,DUZ_",",.06,"I")
+21 SET II=II+1
SET @DATA@(II)=$$FMTE^BQIUL1(LOGDTM)_$CHAR(30)
+22 ;
DONE ;
+1 SET II=II+1
SET @DATA@(II)=$CHAR(31)
+2 QUIT
+3 ;
ERR ;
+1 DO ^%ZTER
+2 NEW Y,ERRDTM
+3 SET Y=$$NOW^XLFDT()
XECUTE ^DD("DD")
SET ERRDTM=Y
+4 SET BMXSEC="Recording that an error occurred at "_ERRDTM
+5 IF $DATA(II)
IF $DATA(DATA)
SET II=II+1
SET @DATA@(II)=$CHAR(31)
+6 QUIT
+7 ;
UPD(DATA,VALUE) ; EP -- BQI SET LAST LOGIN
+1 ;
+2 ; Input
+3 ; VALUE - the value
+4 ;Output
+5 ; DATA - name of global (passed by reference) in which the data
+6 ; is stored
+7 ;Assumes DUZ the user signed onto iCare
+8 NEW UID,II,ERROR,X
+9 SET UID=$SELECT($GET(ZTSK):"Z"_ZTSK,1:$JOB)
+10 SET DATA=$NAME(^TMP("BQIPLLOG",UID))
+11 KILL @DATA
+12 SET II=0
+13 ;
+14 ; SAC 2006 2.2.3.3.2
NEW $ESTACK,$ETRAP
SET $ETRAP="D ERR^BQIPLLOG D UNWIND^%ZTER"
+15 ;
+16 SET @DATA@(II)="I00010RESULT"_$CHAR(30)
+17 SET VALUE=$GET(VALUE,"")
+18 IF VALUE=""
SET VALUE=$$NOW^XLFDT()
+19 ;
+20 SET BQIUPD(90505,DUZ_",",.06)=VALUE
+21 DO FILE^DIE("","BQIUPD","ERROR")
+22 KILL BQIUPD
+23 SET II=II+1
+24 IF '$DATA(ERROR)
SET @DATA@(II)="1"_$CHAR(30)
+25 IF $DATA(ERROR)
SET @DATA@(II)="-1"_$CHAR(30)
+26 SET II=II+1
SET @DATA@(II)=$CHAR(31)
+27 ;
CHK ; Check for the first log in of the day
+1 NEW DA,LOGDTM,CDTM,CFLG
+2 SET DA=$ORDER(^BQI(90508,0))
IF DA=""
QUIT
+3 SET LOGDTM=$$GET1^DIQ(90508,DA_",",9,"I")
+4 SET CDTM=$$NOW^XLFDT()
SET CFLG=0
+5 IF LOGDTM=""
SET BQIUPD(90508,DA_",",9)=CDTM
SET CFLG=1
+6 IF LOGDTM'=""
Begin DoDot:1
+7 IF $PIECE(CDTM,".",1)=$PIECE(LOGDTM,".",1)
QUIT
+8 SET BQIUPD(90508,DA_",",9)=CDTM
SET CFLG=1
End DoDot:1
+9 DO FILE^DIE("","BQIUPD","ERROR")
+10 ;
+11 ; Check tasks
+12 IF CFLG
DO ^BQISCHED
+13 QUIT
