BGOVUPD ; IHS/MSC/MGH - Manage V UPDATE/REVIEWED file ;09-Apr-2012 14:25;DU
;;1.1;BGO COMPONENTS;**8,10,11**;Mar 20, 2007;Build 3
; Get entries for a patient and either a VIEN Or a date
; INP = Patient IEN [1]^ VIEN [2] ^Start DT [3] ^End dt [4]
; .RET returned as a list of records in the format:
; IEN[1] ^ ACTION [2] ^ Action Type [3] ^Visit Date [4] ^Date/time entered [5] ^ entered by [6] ^Event dt/time [7] ^ encounter provider [8]
GET(RET,INP) ;EP
N DFN,END,LRN,VFIEN,TYPE,CNT,VDT,VIEN,IEN,VDATE,UDATE,START
S RET=$$TMPGBL^BGOUTL
S DFN=+INP
S VIEN=$P(INP,U,2)
S START=$P(INP,U,3),END=$P(INP,U,4)
S (TYPE,CNT)=0
I +VIEN D
.S IEN="" F S IEN=$O(^AUPNVRUP("AD",VIEN,IEN)) Q:IEN="" D CNT(IEN)
E D
.S:'START START=DT+1
.S:START<END X=START,START=END,END=X
.S START=9999999-$S(START#1:START,1:START+.9),END=9999999-END
.F S START=$O(^AUPNVRUP("AE",DFN,START)) Q:'START!(START>END) D
..S TYPE="" F S TYPE=$O(^AUPNVRUP("AE",DFN,START,TYPE)) Q:TYPE="" D
...S IEN="" F S IEN=$O(^AUPNVRUP("AE",DFN,START,TYPE,IEN)) Q:IEN="" D CNT(IEN)
Q
CNT(IEN) ;Put the data in to array for return
N TYPE,VDATE,DENT,VISIT,ETYPE,ATYPE,ENTBY,EVDT,ENCPRV,ZERO,ONE,TWELVE,X
Q:$D(^AUPNVRUP(IEN,2)) ;Skip entries that are in error
S TYPE=$P($G(^AUPNVRUP(IEN,0)),U,1)
S ETYPE=$$GET1^DIQ(9000010.54,IEN,.01)
S ATYP=$S(ETYPE["ALLERG":"A",ETYPE["PROBLEM":"P",ETYPE["MEDICATION":"M",1:"")
S VDATE=$$GET1^DIQ(9000010.54,IEN,.03)
S DENT=$$GET1^DIQ(9000010.54,IEN,1.01)
S ENTBY=$$GET1^DIQ(9000010.54,IEN,1.02)
S EVDT=$$GET1^DIQ(9000010.54,IEN,1201)
S ENCPRV=$$GET1^DIQ(9000010.54,IEN,1204)
S CNT=CNT+1
S @RET@(CNT)=IEN_U_TYPE_"~"_ETYPE_U_ATYP_U_VDATE_U_DENT_U_ENTBY_U_EVDT_U_ENCPRV
Q
; Add/edit entry in update/reviewed file
; INP = Update Type IEN [1] ^ V file IEN [2] ^ DFN [3] ^ Visit String [4] ^ Evnt day/time[5] ^ Provider IEN [6] ^ Delete [7] ^ Delete Reason~free text reason [8]
; RET= IEN or error message [1] ^ VISIT IEN [2] ^ IEN OF REVIEW MESSAGE IF ADDED AUTOMATICALLY [3]
SET(RET,INP) ;EP
N VIEN,TYPE,VSTR,PRV,VFIEN,VFNEW,EVDT,FNUM,FDA,ATYP,ETYP,DFN,ACTION,UPDATE,REV
S FNUM=$$FNUM
S TYPE=+INP
I 'TYPE S RET=$$ERR^BGOUTL(1008) Q
;S VFIEN=$P(INP,U,2)
;For now, all SETS are new entries
S VFIEN=0
S DFN=$P(INP,U,3)
I $P(INP,U,7)="D" D EIE(INP) Q
S VFNEW='VFIEN
S VSTR=$P(INP,U,4)
S EVDT=$P(INP,U,5)
S PRV=$P(INP,U,6)
I VSTR="" S RET="-1^You must first create a visit context to store data" Q
;If a visit has not yet been created, create the visit
S VIEN=$$VSTR2VIS^BEHOENCX(DFN,VSTR,1,PRV)
I VIEN=0 S RET="-1^No visit created" Q
I 'VFIEN D Q:'VFIEN
.D VFNEW^BGOUTL2(.RET,FNUM,TYPE,VIEN)
.S:RET>0 VFIEN=RET,RET=""
S UPDATE=$$FILEDATA(VFIEN)
D:'UPDATE VFEVT^BGOUTL2(FNUM,VFIEN,'VFNEW)
S:'UPDATE RET=VFIEN_U_VIEN
;If this is an update, auto file the review data
S ETYP=$P($G(^AUTTCRA(TYPE,0)),U,1)
S ACTION=$S(ETYP["UPDATED":1,1:0)
S ATYP=$S(ETYP["ALLERG":"A",ETYP["PROBLEM":"P",ETYP["MEDICATION":"M",1:"")
I +ACTION D
.I ATYP="A" S TYPE=$O(^AUTTCRA("B","ALLERGY LIST REVIEWED",""))
.I ATYP="P" S TYPE=$O(^AUTTCRA("B","PROBLEM LIST REVIEWED",""))
.I ATYP="M" S TYPE=$O(^AUTTCRA("B","MEDICATION LIST REVIEWED",""))
.S VFIEN=0
.D VFNEW^BGOUTL2(.REV,FNUM,TYPE,VIEN)
.S:REV>0 VFIEN=REV,REV=""
.Q:'VFIEN
.S UPDATE=$$FILEDATA(VFIEN)
.S:'UPDATE RET=RET_U_VFIEN
;If this is an allergy update, check for inaccessible entries
S DFN=$P($G(^AUPNVRUP(VFIEN,0)),U,2)
I ATYP="A" D
.D CKIN^BEHOARMU(DFN)
.D FIREEVT^BEHOART(DFN,2,"")
Q
FILEDATA(TYPE) ;Store the data
N RET
S FDA=$NA(FDA(FNUM,VFIEN_","))
S @FDA@(1.01)="N"
S @FDA@(1.02)="`"_DUZ
I EVDT="" S EVDT="N"
S @FDA@(1201)=EVDT
;patch 10 set duz to encounter provider
;I PRV="" S PRV=DUZ
S @FDA@(1204)="`"_DUZ
;IHS/MSC/MGH patch 11 added new fields
S @FDA@(1216)="N"
S @FDA@(1217)="`"_DUZ
S @FDA@(1218)="N"
S @FDA@(1219)="`"_DUZ
S RET=$$UPDATE^BGOUTL(.FDA,"E")
I RET,VFNEW,$$DELETE^BGOUTL(FNUM,VFIEN)
Q RET
EIE(INP) ;Mark this entry as entered in error
N REASON,VFIEN,FNUM,TYPE,VFIEN
S FNUM=$$FNUM
S TYPE=+INP
S VFIEN=$P(INP,U,2)
I 'VFIEN D ERR^BGOUTL(1059) Q
S REASON=$P($P(INP,U,7),"~",1)
S FDA=$NA(FDA(FNUM,VFIEN_","))
S @FDA@(2.01)=1
S @FDA@(2.02)="`"_DUZ
S REASON=$S(REASON="DUPLICATE":"D",REASON="D":"D",REASON="ENTERED IN ERROR":"E",REASON="E":"E",REASON="OTHER":"O",1:"O")
S @FDA@(2.03)=REASON
I REASON="O" S @FDA@(2.04)=$P($P(INP,U,7),"~",2)
S RET=$$UPDATE^BGOUTL(.FDA,"E")
D:'RET VFEVT^BGOUTL2(FNUM,VFIEN,2)
S:'RET RET=VFIEN
Q
; Return V File #
FNUM() Q 9000010.54
BGOVUPD ; IHS/MSC/MGH - Manage V UPDATE/REVIEWED file ;09-Apr-2012 14:25;DU
+1 ;;1.1;BGO COMPONENTS;**8,10,11**;Mar 20, 2007;Build 3
+2 ; Get entries for a patient and either a VIEN Or a date
+3 ; INP = Patient IEN [1]^ VIEN [2] ^Start DT [3] ^End dt [4]
+4 ; .RET returned as a list of records in the format:
+5 ; IEN[1] ^ ACTION [2] ^ Action Type [3] ^Visit Date [4] ^Date/time entered [5] ^ entered by [6] ^Event dt/time [7] ^ encounter provider [8]
GET(RET,INP) ;EP
+1 NEW DFN,END,LRN,VFIEN,TYPE,CNT,VDT,VIEN,IEN,VDATE,UDATE,START
+2 SET RET=$$TMPGBL^BGOUTL
+3 SET DFN=+INP
+4 SET VIEN=$PIECE(INP,U,2)
+5 SET START=$PIECE(INP,U,3)
SET END=$PIECE(INP,U,4)
+6 SET (TYPE,CNT)=0
+7 IF +VIEN
Begin DoDot:1
+8 SET IEN=""
FOR
SET IEN=$ORDER(^AUPNVRUP("AD",VIEN,IEN))
IF IEN=""
QUIT
DO CNT(IEN)
End DoDot:1
+9 IF '$TEST
Begin DoDot:1
+10 IF 'START
SET START=DT+1
+11 IF START<END
SET X=START
SET START=END
SET END=X
+12 SET START=9999999-$SELECT(START#1:START,1:START+.9)
SET END=9999999-END
+13 FOR
SET START=$ORDER(^AUPNVRUP("AE",DFN,START))
IF 'START!(START>END)
QUIT
Begin DoDot:2
+14 SET TYPE=""
FOR
SET TYPE=$ORDER(^AUPNVRUP("AE",DFN,START,TYPE))
IF TYPE=""
QUIT
Begin DoDot:3
+15 SET IEN=""
FOR
SET IEN=$ORDER(^AUPNVRUP("AE",DFN,START,TYPE,IEN))
IF IEN=""
QUIT
DO CNT(IEN)
End DoDot:3
End DoDot:2
End DoDot:1
+16 QUIT
CNT(IEN) ;Put the data in to array for return
+1 NEW TYPE,VDATE,DENT,VISIT,ETYPE,ATYPE,ENTBY,EVDT,ENCPRV,ZERO,ONE,TWELVE,X
+2 ;Skip entries that are in error
IF $DATA(^AUPNVRUP(IEN,2))
QUIT
+3 SET TYPE=$PIECE($GET(^AUPNVRUP(IEN,0)),U,1)
+4 SET ETYPE=$$GET1^DIQ(9000010.54,IEN,.01)
+5 SET ATYP=$SELECT(ETYPE["ALLERG":"A",ETYPE["PROBLEM":"P",ETYPE["MEDICATION":"M",1:"")
+6 SET VDATE=$$GET1^DIQ(9000010.54,IEN,.03)
+7 SET DENT=$$GET1^DIQ(9000010.54,IEN,1.01)
+8 SET ENTBY=$$GET1^DIQ(9000010.54,IEN,1.02)
+9 SET EVDT=$$GET1^DIQ(9000010.54,IEN,1201)
+10 SET ENCPRV=$$GET1^DIQ(9000010.54,IEN,1204)
+11 SET CNT=CNT+1
+12 SET @RET@(CNT)=IEN_U_TYPE_"~"_ETYPE_U_ATYP_U_VDATE_U_DENT_U_ENTBY_U_EVDT_U_ENCPRV
+13 QUIT
+14 ; Add/edit entry in update/reviewed file
+15 ; INP = Update Type IEN [1] ^ V file IEN [2] ^ DFN [3] ^ Visit String [4] ^ Evnt day/time[5] ^ Provider IEN [6] ^ Delete [7] ^ Delete Reason~free text reason [8]
+16 ; RET= IEN or error message [1] ^ VISIT IEN [2] ^ IEN OF REVIEW MESSAGE IF ADDED AUTOMATICALLY [3]
SET(RET,INP) ;EP
+1 NEW VIEN,TYPE,VSTR,PRV,VFIEN,VFNEW,EVDT,FNUM,FDA,ATYP,ETYP,DFN,ACTION,UPDATE,REV
+2 SET FNUM=$$FNUM
+3 SET TYPE=+INP
+4 IF 'TYPE
SET RET=$$ERR^BGOUTL(1008)
QUIT
+5 ;S VFIEN=$P(INP,U,2)
+6 ;For now, all SETS are new entries
+7 SET VFIEN=0
+8 SET DFN=$PIECE(INP,U,3)
+9 IF $PIECE(INP,U,7)="D"
DO EIE(INP)
QUIT
+10 SET VFNEW='VFIEN
+11 SET VSTR=$PIECE(INP,U,4)
+12 SET EVDT=$PIECE(INP,U,5)
+13 SET PRV=$PIECE(INP,U,6)
+14 IF VSTR=""
SET RET="-1^You must first create a visit context to store data"
QUIT
+15 ;If a visit has not yet been created, create the visit
+16 SET VIEN=$$VSTR2VIS^BEHOENCX(DFN,VSTR,1,PRV)
+17 IF VIEN=0
SET RET="-1^No visit created"
QUIT
+18 IF 'VFIEN
Begin DoDot:1
+19 DO VFNEW^BGOUTL2(.RET,FNUM,TYPE,VIEN)
+20 IF RET>0
SET VFIEN=RET
SET RET=""
End DoDot:1
IF 'VFIEN
QUIT
+21 SET UPDATE=$$FILEDATA(VFIEN)
+22 IF 'UPDATE
DO VFEVT^BGOUTL2(FNUM,VFIEN,'VFNEW)
+23 IF 'UPDATE
SET RET=VFIEN_U_VIEN
+24 ;If this is an update, auto file the review data
+25 SET ETYP=$PIECE($GET(^AUTTCRA(TYPE,0)),U,1)
+26 SET ACTION=$SELECT(ETYP["UPDATED":1,1:0)
+27 SET ATYP=$SELECT(ETYP["ALLERG":"A",ETYP["PROBLEM":"P",ETYP["MEDICATION":"M",1:"")
+28 IF +ACTION
Begin DoDot:1
+29 IF ATYP="A"
SET TYPE=$ORDER(^AUTTCRA("B","ALLERGY LIST REVIEWED",""))
+30 IF ATYP="P"
SET TYPE=$ORDER(^AUTTCRA("B","PROBLEM LIST REVIEWED",""))
+31 IF ATYP="M"
SET TYPE=$ORDER(^AUTTCRA("B","MEDICATION LIST REVIEWED",""))
+32 SET VFIEN=0
+33 DO VFNEW^BGOUTL2(.REV,FNUM,TYPE,VIEN)
+34 IF REV>0
SET VFIEN=REV
SET REV=""
+35 IF 'VFIEN
QUIT
+36 SET UPDATE=$$FILEDATA(VFIEN)
+37 IF 'UPDATE
SET RET=RET_U_VFIEN
End DoDot:1
+38 ;If this is an allergy update, check for inaccessible entries
+39 SET DFN=$PIECE($GET(^AUPNVRUP(VFIEN,0)),U,2)
+40 IF ATYP="A"
Begin DoDot:1
+41 DO CKIN^BEHOARMU(DFN)
+42 DO FIREEVT^BEHOART(DFN,2,"")
End DoDot:1
+43 QUIT
FILEDATA(TYPE) ;Store the data
+1 NEW RET
+2 SET FDA=$NAME(FDA(FNUM,VFIEN_","))
+3 SET @FDA@(1.01)="N"
+4 SET @FDA@(1.02)="`"_DUZ
+5 IF EVDT=""
SET EVDT="N"
+6 SET @FDA@(1201)=EVDT
+7 ;patch 10 set duz to encounter provider
+8 ;I PRV="" S PRV=DUZ
+9 SET @FDA@(1204)="`"_DUZ
+10 ;IHS/MSC/MGH patch 11 added new fields
+11 SET @FDA@(1216)="N"
+12 SET @FDA@(1217)="`"_DUZ
+13 SET @FDA@(1218)="N"
+14 SET @FDA@(1219)="`"_DUZ
+15 SET RET=$$UPDATE^BGOUTL(.FDA,"E")
+16 IF RET
IF VFNEW
IF $$DELETE^BGOUTL(FNUM,VFIEN)
+17 QUIT RET
EIE(INP) ;Mark this entry as entered in error
+1 NEW REASON,VFIEN,FNUM,TYPE,VFIEN
+2 SET FNUM=$$FNUM
+3 SET TYPE=+INP
+4 SET VFIEN=$PIECE(INP,U,2)
+5 IF 'VFIEN
DO ERR^BGOUTL(1059)
QUIT
+6 SET REASON=$PIECE($PIECE(INP,U,7),"~",1)
+7 SET FDA=$NAME(FDA(FNUM,VFIEN_","))
+8 SET @FDA@(2.01)=1
+9 SET @FDA@(2.02)="`"_DUZ
+10 SET REASON=$SELECT(REASON="DUPLICATE":"D",REASON="D":"D",REASON="ENTERED IN ERROR":"E",REASON="E":"E",REASON="OTHER":"O",1:"O")
+11 SET @FDA@(2.03)=REASON
+12 IF REASON="O"
SET @FDA@(2.04)=$PIECE($PIECE(INP,U,7),"~",2)
+13 SET RET=$$UPDATE^BGOUTL(.FDA,"E")
+14 IF 'RET
DO VFEVT^BGOUTL2(FNUM,VFIEN,2)
+15 IF 'RET
SET RET=VFIEN
+16 QUIT
+17 ; Return V File #
FNUM() QUIT 9000010.54
