| 1 | IBCNRXI2 ;BHAM ISC/DMB - Post-Installation procedure ;30-SEP-2005
|
|---|
| 2 | ;;2.0;INTEGRATED BILLING;**276**;21-MAR-94
|
|---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | ;
|
|---|
| 5 | ; Description:
|
|---|
| 6 | ; This is a part of the IB*2.0*276 post-installation procedure.
|
|---|
| 7 | ; Its purpose is to review all PLAN file entries.
|
|---|
| 8 | ; If PLAN APPLICATION sub-file, LOCAL ACTIVE? = 1 (active)
|
|---|
| 9 | ; ,USER EDITED LOCAL = 61230, and DATE/TIME LOCAL EDITTED is before
|
|---|
| 10 | ; 5/28/2004, then change the USER EDITED LOCAL to 'INTERFACE,IB IIV'.
|
|---|
| 11 | ;
|
|---|
| 12 | ; The reason for this is that the Plans were sent out as part of the
|
|---|
| 13 | ; dormant build with the USER EDITED LOCAL = 62130, which was the
|
|---|
| 14 | ; IEN for 'INTERFACE,IB IIV' from the source environment, but this
|
|---|
| 15 | ; IEN was updated by the build to be the IEN for this user at the
|
|---|
| 16 | ; destination sites.
|
|---|
| 17 | ;
|
|---|
| 18 | ; Applicable files, sub-files, and fields:
|
|---|
| 19 | ; 366.033 = PLAN APPLICATION sub-file
|
|---|
| 20 | ; .03 = LOCAL ACTIVE? (piece 3)
|
|---|
| 21 | ; .04 = USER EDITED LOCAL (piece 4)
|
|---|
| 22 | ; .05 = DATE/TIME LOCAL EDITED (piece 5)
|
|---|
| 23 | ;
|
|---|
| 24 | Q
|
|---|
| 25 | EN ;
|
|---|
| 26 | ; Initialize local variables
|
|---|
| 27 | N HL7DUZ,IEN1,IEN2,X
|
|---|
| 28 | I '$D(U) S U="^"
|
|---|
| 29 | S HL7DUZ=$$FIND1^DIC(200,"","X","INTERFACE,IB IIV")
|
|---|
| 30 | I HL7DUZ="" Q
|
|---|
| 31 | ;
|
|---|
| 32 | ; Get PLAN file (#366.03) IEN
|
|---|
| 33 | S IEN1=0 F S IEN1=$O(^IBCNR(366.03,IEN1)) Q:+IEN1=0 D
|
|---|
| 34 | . ;
|
|---|
| 35 | . ; Get PLAN APPLICATION sub-file (# 366.033) IEN
|
|---|
| 36 | . S IEN2=0 F S IEN2=$O(^IBCNR(366.03,IEN1,3,IEN2)) Q:+IEN2=0 D
|
|---|
| 37 | .. ;
|
|---|
| 38 | .. ; Check PLAN APPLICATION sub-file fields
|
|---|
| 39 | .. ; Local Active flag needs to be Active (1)
|
|---|
| 40 | .. ; User needs to be set to 61230
|
|---|
| 41 | .. ; Date needs to be before 6/28/2004 (dormant release date)
|
|---|
| 42 | .. S X=$G(^IBCNR(366.03,IEN1,3,IEN2,0))
|
|---|
| 43 | .. I $P(X,U,3)'=1 Q
|
|---|
| 44 | .. I $P(X,U,4)'=62130 Q
|
|---|
| 45 | .. I $P(X,U,5)>3040628 Q
|
|---|
| 46 | .. S $P(^IBCNR(366.03,IEN1,3,IEN2,0),"^",4)=HL7DUZ
|
|---|
| 47 | Q
|
|---|
