BEHOENIN ;MSC/IND/DKM - Installation Support ;06-Sep-2011 14:33;PLS
;;1.1;BEH COMPONENTS;**005001,005004,005005,005008**;Mar 20, 2007
;=================================================================
PREINIT ;EP - Preinitialization
Q
POSTINIT ;EP - Postinitialization
Q
; Add a report to the ORRPW ADT VISITS report header.
ADDCHILD(RPT) ;
N X,Y
S X=$$FIND1^DIC(101.24,,"X","ORRPW ADT VISITS")
S Y=$$FIND1^DIC(101.24,,"X",RPT)
I X,Y D:'$O(^ORD(101.24,X,10,"B",Y,0))
.N FDA
.S FDA(101.241,"+1,"_X_",",.01)="`"_Y
.D UPDATE^DIE("E","FDA")
Q
GETUNLK ;
N DATA,DAYS
S GBL=$NA(^TMP("BEHOENCX"))
S DAYS=$$GET^XPAR("SYS","BEHOENCX VISIT LOCKED")
D:'DAYS ADD^XPAR("SYS","BEHOENCX VISIT LOCKED",,3)
D ENVAL^XPAR(GBL,"BEHOENCX VISIT LOCK OVERRIDE",,,1)
D REMUNLK
Q
;
REMUNLK ;
N ENT
S ENT=""
F S ENT=$O(^TMP("BEHOENCX",ENT)) Q:ENT="" D
.D NDEL^XPAR(ENT,"BEHOENCX VISIT LOCK OVERRIDE")
Q
SETUNLK ;
N ENT,INT,VAL
S ENT=""
F S ENT=$O(^TMP("BEHOENCX",ENT)) Q:ENT="" D
.S INT=0 F S INT=$O(^TMP("BEHOENCX",ENT,INT)) Q:'INT D
..S VAL=$$GET^XPAR("SYS","BEHOENCX VISIT LOCKED")
..S VAL=$S(VAL:VAL,1:2)
..S VAL=$$FMADD^XLFDT($$DT^XLFDT(),VAL)
..D ADD^XPAR(ENT,"BEHOENCX VISIT LOCK OVERRIDE","`"_INT,VAL)
K ^TMP("BEHOENCX")
Q
VPOV ;Repoint any text provider narratives
;First,find the date this patch was first installed
N P6
S P6="" S P6=$O(^XPD(9.7,"B","EHR*1.1*6",P6)) Q:P6="" D
.S IDATE=$P(^XPD(9.7,P6,0),U,3)
.Q:IDATE=""
.D FIXNAR
Q
FIXNAR ;Loop through and find all POVs since patch 6 was installed
;check for text in the .o4 field and fix
N DAT,CNT,VIEN,VPOV,NAR,NIEN
S DAT=IDATE,CNT=0
F S DAT=$O(^AUPNVSIT("B",DAT)) Q:'DAT D
.F VIEN=0:0 S VIEN=$O(^AUPNVSIT("B",DAT,VIEN)) Q:'VIEN D
..F VPOV=0:0 S VPOV=$O(^AUPNVPOV("AD",VIEN,VPOV)) Q:'VPOV D
...N X
...S X=$G(^AUPNVPOV(VPOV,0))
...S NAR=$P(X,U,4)
...I +NAR=0 D
....S NIEN=$$FNDNARR(NAR,1)
....S $P(^AUPNVPOV(VPOV,0),U,4)=NIEN,CNT=CNT+1
....D MES("Repaired VPOV record #"_VPOV)
D MES("Bad entries detected and repaired: "_CNT)
Q
; Display message in MSG and optionally set quit flag to QUIT
MES(MSG,QUIT) ; EP
D BMES^XPDUTL(" "_$G(MSG))
S:$G(QUIT) XPDQUIT=QUIT
Q
; Find/create narrative text in narrative file, returning IEN
FNDNARR(NARR,CREATE) ;EP
N IEN,FDA,TRC,RET
Q:'$L(NARR) ""
S NARR=$$STRPNAR^BEHOENPC(NARR) ;P7
S IEN=0,TRC=$E(NARR,1,30),NARR=$E(NARR,1,160),CREATE=$G(CREATE,1)
F S IEN=$O(^AUTNPOV("B",TRC,IEN)) Q:'IEN Q:$P($G(^AUTNPOV(IEN,0)),U)=NARR
Q:IEN!'CREATE IEN
S FDA(9999999.27,"+1,",.01)=NARR
D UPDATE^DIE("E","FDA","IEN")
Q +$G(IEN(1))
BEHOENIN ;MSC/IND/DKM - Installation Support ;06-Sep-2011 14:33;PLS
+1 ;;1.1;BEH COMPONENTS;**005001,005004,005005,005008**;Mar 20, 2007
+2 ;=================================================================
PREINIT ;EP - Preinitialization
+1 QUIT
POSTINIT ;EP - Postinitialization
+1 QUIT
+2 ; Add a report to the ORRPW ADT VISITS report header.
ADDCHILD(RPT) ;
+1 NEW X,Y
+2 SET X=$$FIND1^DIC(101.24,,"X","ORRPW ADT VISITS")
+3 SET Y=$$FIND1^DIC(101.24,,"X",RPT)
+4 IF X
IF Y
IF '$ORDER(^ORD(101.24,X,10,"B",Y,0))
Begin DoDot:1
+5 NEW FDA
+6 SET FDA(101.241,"+1,"_X_",",.01)="`"_Y
+7 DO UPDATE^DIE("E","FDA")
End DoDot:1
+8 QUIT
GETUNLK ;
+1 NEW DATA,DAYS
+2 SET GBL=$NAME(^TMP("BEHOENCX"))
+3 SET DAYS=$$GET^XPAR("SYS","BEHOENCX VISIT LOCKED")
+4 IF 'DAYS
DO ADD^XPAR("SYS","BEHOENCX VISIT LOCKED",,3)
+5 DO ENVAL^XPAR(GBL,"BEHOENCX VISIT LOCK OVERRIDE",,,1)
+6 DO REMUNLK
+7 QUIT
+8 ;
REMUNLK ;
+1 NEW ENT
+2 SET ENT=""
+3 FOR
SET ENT=$ORDER(^TMP("BEHOENCX",ENT))
IF ENT=""
QUIT
Begin DoDot:1
+4 DO NDEL^XPAR(ENT,"BEHOENCX VISIT LOCK OVERRIDE")
End DoDot:1
+5 QUIT
SETUNLK ;
+1 NEW ENT,INT,VAL
+2 SET ENT=""
+3 FOR
SET ENT=$ORDER(^TMP("BEHOENCX",ENT))
IF ENT=""
QUIT
Begin DoDot:1
+4 SET INT=0
FOR
SET INT=$ORDER(^TMP("BEHOENCX",ENT,INT))
IF 'INT
QUIT
Begin DoDot:2
+5 SET VAL=$$GET^XPAR("SYS","BEHOENCX VISIT LOCKED")
+6 SET VAL=$SELECT(VAL:VAL,1:2)
+7 SET VAL=$$FMADD^XLFDT($$DT^XLFDT(),VAL)
+8 DO ADD^XPAR(ENT,"BEHOENCX VISIT LOCK OVERRIDE","`"_INT,VAL)
End DoDot:2
End DoDot:1
+9 KILL ^TMP("BEHOENCX")
+10 QUIT
VPOV ;Repoint any text provider narratives
+1 ;First,find the date this patch was first installed
+2 NEW P6
+3 SET P6=""
SET P6=$ORDER(^XPD(9.7,"B","EHR*1.1*6",P6))
IF P6=""
QUIT
Begin DoDot:1
+4 SET IDATE=$PIECE(^XPD(9.7,P6,0),U,3)
+5 IF IDATE=""
QUIT
+6 DO FIXNAR
End DoDot:1
+7 QUIT
FIXNAR ;Loop through and find all POVs since patch 6 was installed
+1 ;check for text in the .o4 field and fix
+2 NEW DAT,CNT,VIEN,VPOV,NAR,NIEN
+3 SET DAT=IDATE
SET CNT=0
+4 FOR
SET DAT=$ORDER(^AUPNVSIT("B",DAT))
IF 'DAT
QUIT
Begin DoDot:1
+5 FOR VIEN=0:0
SET VIEN=$ORDER(^AUPNVSIT("B",DAT,VIEN))
IF 'VIEN
QUIT
Begin DoDot:2
+6 FOR VPOV=0:0
SET VPOV=$ORDER(^AUPNVPOV("AD",VIEN,VPOV))
IF 'VPOV
QUIT
Begin DoDot:3
+7 NEW X
+8 SET X=$GET(^AUPNVPOV(VPOV,0))
+9 SET NAR=$PIECE(X,U,4)
+10 IF +NAR=0
Begin DoDot:4
+11 SET NIEN=$$FNDNARR(NAR,1)
+12 SET $PIECE(^AUPNVPOV(VPOV,0),U,4)=NIEN
SET CNT=CNT+1
+13 DO MES("Repaired VPOV record #"_VPOV)
End DoDot:4
End DoDot:3
End DoDot:2
End DoDot:1
+14 DO MES("Bad entries detected and repaired: "_CNT)
+15 QUIT
+16 ; Display message in MSG and optionally set quit flag to QUIT
MES(MSG,QUIT) ; EP
+1 DO BMES^XPDUTL(" "_$GET(MSG))
+2 IF $GET(QUIT)
SET XPDQUIT=QUIT
+3 QUIT
+4 ; Find/create narrative text in narrative file, returning IEN
FNDNARR(NARR,CREATE) ;EP
+1 NEW IEN,FDA,TRC,RET
+2 IF '$LENGTH(NARR)
QUIT ""
+3 ;P7
SET NARR=$$STRPNAR^BEHOENPC(NARR)
+4 SET IEN=0
SET TRC=$EXTRACT(NARR,1,30)
SET NARR=$EXTRACT(NARR,1,160)
SET CREATE=$GET(CREATE,1)
+5 FOR
SET IEN=$ORDER(^AUTNPOV("B",TRC,IEN))
IF 'IEN
QUIT
IF $PIECE($GET(^AUTNPOV(IEN,0)),U)=NARR
QUIT
+6 IF IEN!'CREATE
QUIT IEN
+7 SET FDA(9999999.27,"+1,",.01)=NARR
+8 DO UPDATE^DIE("E","FDA","IEN")
+9 QUIT +$GET(IEN(1))
