IBCNRXI2 ;BHAM ISC/DMB - Post-Installation procedure ;30-SEP-2005
;;2.0;INTEGRATED BILLING;**276**;21-MAR-94
;;Per VHA Directive 10-93-142, this routine should not be modified.
;
; Description:
; This is a part of the IB*2.0*276 post-installation procedure.
; Its purpose is to review all PLAN file entries.
; If PLAN APPLICATION sub-file, LOCAL ACTIVE? = 1 (active)
; ,USER EDITED LOCAL = 61230, and DATE/TIME LOCAL EDITTED is before
; 5/28/2004, then change the USER EDITED LOCAL to 'INTERFACE,IB IIV'.
;
; The reason for this is that the Plans were sent out as part of the
; dormant build with the USER EDITED LOCAL = 62130, which was the
; IEN for 'INTERFACE,IB IIV' from the source environment, but this
; IEN was updated by the build to be the IEN for this user at the
; destination sites.
;
; Applicable files, sub-files, and fields:
; 366.033 = PLAN APPLICATION sub-file
; .03 = LOCAL ACTIVE? (piece 3)
; .04 = USER EDITED LOCAL (piece 4)
; .05 = DATE/TIME LOCAL EDITED (piece 5)
;
Q
EN ;
; Initialize local variables
N HL7DUZ,IEN1,IEN2,X
I '$D(U) S U="^"
S HL7DUZ=$$FIND1^DIC(200,"","X","INTERFACE,IB IIV")
I HL7DUZ="" Q
;
; Get PLAN file (#366.03) IEN
S IEN1=0 F S IEN1=$O(^IBCNR(366.03,IEN1)) Q:+IEN1=0 D
. ;
. ; Get PLAN APPLICATION sub-file (# 366.033) IEN
. S IEN2=0 F S IEN2=$O(^IBCNR(366.03,IEN1,3,IEN2)) Q:+IEN2=0 D
.. ;
.. ; Check PLAN APPLICATION sub-file fields
.. ; Local Active flag needs to be Active (1)
.. ; User needs to be set to 61230
.. ; Date needs to be before 6/28/2004 (dormant release date)
.. S X=$G(^IBCNR(366.03,IEN1,3,IEN2,0))
.. I $P(X,U,3)'=1 Q
.. I $P(X,U,4)'=62130 Q
.. I $P(X,U,5)>3040628 Q
.. S $P(^IBCNR(366.03,IEN1,3,IEN2,0),"^",4)=HL7DUZ
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBCNRXI2 1816 printed Dec 13, 2024@02:16:36 Page 2
IBCNRXI2 ;BHAM ISC/DMB - Post-Installation procedure ;30-SEP-2005
+1 ;;2.0;INTEGRATED BILLING;**276**;21-MAR-94
+2 ;;Per VHA Directive 10-93-142, this routine should not be modified.
+3 ;
+4 ; Description:
+5 ; This is a part of the IB*2.0*276 post-installation procedure.
+6 ; Its purpose is to review all PLAN file entries.
+7 ; If PLAN APPLICATION sub-file, LOCAL ACTIVE? = 1 (active)
+8 ; ,USER EDITED LOCAL = 61230, and DATE/TIME LOCAL EDITTED is before
+9 ; 5/28/2004, then change the USER EDITED LOCAL to 'INTERFACE,IB IIV'.
+10 ;
+11 ; The reason for this is that the Plans were sent out as part of the
+12 ; dormant build with the USER EDITED LOCAL = 62130, which was the
+13 ; IEN for 'INTERFACE,IB IIV' from the source environment, but this
+14 ; IEN was updated by the build to be the IEN for this user at the
+15 ; destination sites.
+16 ;
+17 ; Applicable files, sub-files, and fields:
+18 ; 366.033 = PLAN APPLICATION sub-file
+19 ; .03 = LOCAL ACTIVE? (piece 3)
+20 ; .04 = USER EDITED LOCAL (piece 4)
+21 ; .05 = DATE/TIME LOCAL EDITED (piece 5)
+22 ;
+23 QUIT
EN ;
+1 ; Initialize local variables
+2 NEW HL7DUZ,IEN1,IEN2,X
+3 IF '$DATA(U)
SET U="^"
+4 SET HL7DUZ=$$FIND1^DIC(200,"","X","INTERFACE,IB IIV")
+5 IF HL7DUZ=""
QUIT
+6 ;
+7 ; Get PLAN file (#366.03) IEN
+8 SET IEN1=0
FOR
SET IEN1=$ORDER(^IBCNR(366.03,IEN1))
if +IEN1=0
QUIT
Begin DoDot:1
+9 ;
+10 ; Get PLAN APPLICATION sub-file (# 366.033) IEN
+11 SET IEN2=0
FOR
SET IEN2=$ORDER(^IBCNR(366.03,IEN1,3,IEN2))
if +IEN2=0
QUIT
Begin DoDot:2
+12 ;
+13 ; Check PLAN APPLICATION sub-file fields
+14 ; Local Active flag needs to be Active (1)
+15 ; User needs to be set to 61230
+16 ; Date needs to be before 6/28/2004 (dormant release date)
+17 SET X=$GET(^IBCNR(366.03,IEN1,3,IEN2,0))
+18 IF $PIECE(X,U,3)'=1
QUIT
+19 IF $PIECE(X,U,4)'=62130
QUIT
+20 IF $PIECE(X,U,5)>3040628
QUIT
+21 SET $PIECE(^IBCNR(366.03,IEN1,3,IEN2,0),"^",4)=HL7DUZ
End DoDot:2
End DoDot:1
+22 QUIT
