BQIMUPER ;GDIT/HS/ALA-MU MONTHLY PERIODS ; 12 Oct 2011 3:07 PM
;;2.3;ICARE MANAGEMENT SYSTEM;**1,3,4**;Apr 18, 2012;Build 66
;
;
GET(DATA,FAKE) ;EP -- BQI MU GET MU PERIODS
;
; Get specific MU PERIODS
NEW UID,II,IEN,BQIN,BQILST,DATE
S UID=$S($G(ZTSK):"Z"_ZTSK,1:$J)
S DATA=$NA(^TMP("BQIMUPER",UID))
K @DATA
;
S II=0
NEW $ESTACK,$ETRAP S $ETRAP="D ERR^BQIMUSIT D UNWIND^%ZTER" ; SAC 2006 2.2.3.3.2
;
S @DATA@(II)="T00030PERIOD^T00010TIMEFRAME^T00001ACTIVE"_$C(30)
;
S BQIN=$$SPM^BQIGPUTL()
;
S IEN=0
F S IEN=$O(^BQI(90508,BQIN,19,IEN)) Q:'IEN D
. NEW DA,IENS,ACT
. S DA(1)=BQIN,DA=IEN,IENS=$$IENS^DILF(.DA)
. S ACT=$S(+$P(^BQI(90508,BQIN,19,IEN,0),U,5)=1:"Y",1:"N")
. S DATE=$$DATE^BQIUL1($P(^BQI(90508,BQIN,19,IEN,0),U,1))
. S BQILST(DATE)=$$GET1^DIQ(90508.019,IENS,.01,"E")_U_$$GET1^DIQ(90508.019,IENS,.04,"I")_U_ACT
;
S DATE=""
F S DATE=$O(BQILST(DATE)) Q:DATE="" D
. S II=II+1,@DATA@(II)=BQILST(DATE)_$C(30)
;
S II=II+1,@DATA@(II)=$C(31)
Q
;
PPER(DATA,REPORT) ;EP -- BQI MU GET PERF PERIODS
NEW UID,II,IEN,BQIN,BQILST,DATE
S UID=$S($G(ZTSK):"Z"_ZTSK,1:$J)
S DATA=$NA(^TMP("BQIMUPER",UID))
K @DATA
;
S II=0
NEW $ESTACK,$ETRAP S $ETRAP="D ERR^BQIMUSIT D UNWIND^%ZTER" ; SAC 2006 2.2.3.3.2
;
S @DATA@(II)="T00030PERIOD^T00010TIMEFRAME^T00001ACTIVE"_$C(30)
;
S REPORT=$G(REPORT,"") I REPORT="" S REPORT=$$CURREP^BQIMUTAB()
S DATE=""
F S DATE=$O(^BQIPROV("AC",REPORT,DATE)) Q:DATE="" D
. S BQIN=$$SPM^BQIGPUTL()
. S BQDATE=$$FMTE^BQIUL1(DATE)
. S IEN=$O(^BQI(90508,BQIN,19,"B",BQDATE,""))
. NEW DA,IENS,ACT
. S DA(1)=BQIN,DA=IEN,IENS=$$IENS^DILF(.DA)
. S ACT=$S(+$P(^BQI(90508,BQIN,19,IEN,0),U,5)=1:"Y",1:"N")
. S DATE=$$DATE^BQIUL1($P(^BQI(90508,BQIN,19,IEN,0),U,1))
. S BQILST(DATE)=$$GET1^DIQ(90508.019,IENS,.01,"E")_U_$$GET1^DIQ(90508.019,IENS,.04,"I")_U_ACT
;
S DATE=""
F S DATE=$O(BQILST(DATE)) Q:DATE="" D
. S II=II+1,@DATA@(II)=BQILST(DATE)_$C(30)
;
S II=II+1,@DATA@(II)=$C(31)
Q
BQIMUPER ;GDIT/HS/ALA-MU MONTHLY PERIODS ; 12 Oct 2011 3:07 PM
+1 ;;2.3;ICARE MANAGEMENT SYSTEM;**1,3,4**;Apr 18, 2012;Build 66
+2 ;
+3 ;
GET(DATA,FAKE) ;EP -- BQI MU GET MU PERIODS
+1 ;
+2 ; Get specific MU PERIODS
+3 NEW UID,II,IEN,BQIN,BQILST,DATE
+4 SET UID=$SELECT($GET(ZTSK):"Z"_ZTSK,1:$JOB)
+5 SET DATA=$NAME(^TMP("BQIMUPER",UID))
+6 KILL @DATA
+7 ;
+8 SET II=0
+9 ; SAC 2006 2.2.3.3.2
NEW $ESTACK,$ETRAP
SET $ETRAP="D ERR^BQIMUSIT D UNWIND^%ZTER"
+10 ;
+11 SET @DATA@(II)="T00030PERIOD^T00010TIMEFRAME^T00001ACTIVE"_$CHAR(30)
+12 ;
+13 SET BQIN=$$SPM^BQIGPUTL()
+14 ;
+15 SET IEN=0
+16 FOR
SET IEN=$ORDER(^BQI(90508,BQIN,19,IEN))
IF 'IEN
QUIT
Begin DoDot:1
+17 NEW DA,IENS,ACT
+18 SET DA(1)=BQIN
SET DA=IEN
SET IENS=$$IENS^DILF(.DA)
+19 SET ACT=$SELECT(+$PIECE(^BQI(90508,BQIN,19,IEN,0),U,5)=1:"Y",1:"N")
+20 SET DATE=$$DATE^BQIUL1($PIECE(^BQI(90508,BQIN,19,IEN,0),U,1))
+21 SET BQILST(DATE)=$$GET1^DIQ(90508.019,IENS,.01,"E")_U_$$GET1^DIQ(90508.019,IENS,.04,"I")_U_ACT
End DoDot:1
+22 ;
+23 SET DATE=""
+24 FOR
SET DATE=$ORDER(BQILST(DATE))
IF DATE=""
QUIT
Begin DoDot:1
+25 SET II=II+1
SET @DATA@(II)=BQILST(DATE)_$CHAR(30)
End DoDot:1
+26 ;
+27 SET II=II+1
SET @DATA@(II)=$CHAR(31)
+28 QUIT
+29 ;
PPER(DATA,REPORT) ;EP -- BQI MU GET PERF PERIODS
+1 NEW UID,II,IEN,BQIN,BQILST,DATE
+2 SET UID=$SELECT($GET(ZTSK):"Z"_ZTSK,1:$JOB)
+3 SET DATA=$NAME(^TMP("BQIMUPER",UID))
+4 KILL @DATA
+5 ;
+6 SET II=0
+7 ; SAC 2006 2.2.3.3.2
NEW $ESTACK,$ETRAP
SET $ETRAP="D ERR^BQIMUSIT D UNWIND^%ZTER"
+8 ;
+9 SET @DATA@(II)="T00030PERIOD^T00010TIMEFRAME^T00001ACTIVE"_$CHAR(30)
+10 ;
+11 SET REPORT=$GET(REPORT,"")
IF REPORT=""
SET REPORT=$$CURREP^BQIMUTAB()
+12 SET DATE=""
+13 FOR
SET DATE=$ORDER(^BQIPROV("AC",REPORT,DATE))
IF DATE=""
QUIT
Begin DoDot:1
+14 SET BQIN=$$SPM^BQIGPUTL()
+15 SET BQDATE=$$FMTE^BQIUL1(DATE)
+16 SET IEN=$ORDER(^BQI(90508,BQIN,19,"B",BQDATE,""))
+17 NEW DA,IENS,ACT
+18 SET DA(1)=BQIN
SET DA=IEN
SET IENS=$$IENS^DILF(.DA)
+19 SET ACT=$SELECT(+$PIECE(^BQI(90508,BQIN,19,IEN,0),U,5)=1:"Y",1:"N")
+20 SET DATE=$$DATE^BQIUL1($PIECE(^BQI(90508,BQIN,19,IEN,0),U,1))
+21 SET BQILST(DATE)=$$GET1^DIQ(90508.019,IENS,.01,"E")_U_$$GET1^DIQ(90508.019,IENS,.04,"I")_U_ACT
End DoDot:1
+22 ;
+23 SET DATE=""
+24 FOR
SET DATE=$ORDER(BQILST(DATE))
IF DATE=""
QUIT
Begin DoDot:1
+25 SET II=II+1
SET @DATA@(II)=BQILST(DATE)_$CHAR(30)
End DoDot:1
+26 ;
+27 SET II=II+1
SET @DATA@(II)=$CHAR(31)
+28 QUIT
