source: FOIAVistA/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBCNRXI2.m@ 1757

Last change on this file since 1757 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.7 KB
Line 
1IBCNRXI2 ;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
25EN ;
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
Note: See TracBrowser for help on using the repository browser.