DG53489P ;ALB/EW;BPFO/MM -PRE/POST INIT FOR DG*5.3*489 ;3/10/2003
;;5.3;Registration;**489**;Aug 13, 1993
;
;The post initialization routine for DG*5.3*489 adds a new
;inconsistent data element to the Inconsistent Data Element
;(#38.6) file with internal entry number 63.
;
POST ;Post-Install
N MSGROOT,FDAWP,FDAROOT,IENROOT,IEN,X
D BMES^XPDUTL("Creating definition for Conf. Address Data Incomplete - entry #63")
D MES^XPDUTL("in INCONSISTENT DATA ELEMENT (#38.6) file.")
I $D(^DGIN(38.6,63,0)) D Q
. D BMES^XPDUTL("Internal entry number 63 already exist in file 38.6.")
. D MES^XPDUTL("Cannot add Conf. Address Data Incomplete element.")
S IEN="+1,"
S FDAROOT(38.6,IEN,.01)="CONF. ADDRESS DATA INCOMPLETE"
S FDAROOT(38.6,IEN,2)="'CONFIDENTIAL ADDRESS' INFORMATION INCOMPLETE"
S FDAROOT(38.6,IEN,50)="FDAWP"
S FDAWP(1,0)="Inconsistency results if a record with an active confidential"
S FDAWP(2,0)="address does not contain the first line of the street address,"
S FDAWP(3,0)="city, state, and zip code for the confidential address."
S FDAROOT(38.6,IEN,3)="NO KEY REQUIRED"
S FDAROOT(38.6,IEN,4)="NO"
S FDAROOT(38.6,IEN,5)="CHECK"
S IENROOT(1)=63
D UPDATE^DIE("E","FDAROOT","IENROOT","MSGROOT")
I $D(MSGROOT("DIERR")) D
.N ERR,LN,LN2
.S (ERR,LN2)=0
.F S ERR=+$O(MSGROOT("DIERR",ERR)) Q:'ERR D
..S LN=0
..F S LN=+$O(MSGROOT("DIERR",ERR,"TEXT",LN)) Q:'LN D
...S LN2=LN2+1
...S X(LN2)=MSGROOT("DIERR",ERR,"TEXT",LN)
..D BMES^XPDUTL(.X)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDG53489P 1514 printed Dec 13, 2024@02:37:38 Page 2
DG53489P ;ALB/EW;BPFO/MM -PRE/POST INIT FOR DG*5.3*489 ;3/10/2003
+1 ;;5.3;Registration;**489**;Aug 13, 1993
+2 ;
+3 ;The post initialization routine for DG*5.3*489 adds a new
+4 ;inconsistent data element to the Inconsistent Data Element
+5 ;(#38.6) file with internal entry number 63.
+6 ;
POST ;Post-Install
+1 NEW MSGROOT,FDAWP,FDAROOT,IENROOT,IEN,X
+2 DO BMES^XPDUTL("Creating definition for Conf. Address Data Incomplete - entry #63")
+3 DO MES^XPDUTL("in INCONSISTENT DATA ELEMENT (#38.6) file.")
+4 IF $DATA(^DGIN(38.6,63,0))
Begin DoDot:1
+5 DO BMES^XPDUTL("Internal entry number 63 already exist in file 38.6.")
+6 DO MES^XPDUTL("Cannot add Conf. Address Data Incomplete element.")
End DoDot:1
QUIT
+7 SET IEN="+1,"
+8 SET FDAROOT(38.6,IEN,.01)="CONF. ADDRESS DATA INCOMPLETE"
+9 SET FDAROOT(38.6,IEN,2)="'CONFIDENTIAL ADDRESS' INFORMATION INCOMPLETE"
+10 SET FDAROOT(38.6,IEN,50)="FDAWP"
+11 SET FDAWP(1,0)="Inconsistency results if a record with an active confidential"
+12 SET FDAWP(2,0)="address does not contain the first line of the street address,"
+13 SET FDAWP(3,0)="city, state, and zip code for the confidential address."
+14 SET FDAROOT(38.6,IEN,3)="NO KEY REQUIRED"
+15 SET FDAROOT(38.6,IEN,4)="NO"
+16 SET FDAROOT(38.6,IEN,5)="CHECK"
+17 SET IENROOT(1)=63
+18 DO UPDATE^DIE("E","FDAROOT","IENROOT","MSGROOT")
+19 IF $DATA(MSGROOT("DIERR"))
Begin DoDot:1
+20 NEW ERR,LN,LN2
+21 SET (ERR,LN2)=0
+22 FOR
SET ERR=+$ORDER(MSGROOT("DIERR",ERR))
if 'ERR
QUIT
Begin DoDot:2
+23 SET LN=0
+24 FOR
SET LN=+$ORDER(MSGROOT("DIERR",ERR,"TEXT",LN))
if 'LN
QUIT
Begin DoDot:3
+25 SET LN2=LN2+1
+26 SET X(LN2)=MSGROOT("DIERR",ERR,"TEXT",LN)
End DoDot:3
+27 DO BMES^XPDUTL(.X)
End DoDot:2
End DoDot:1
+28 QUIT
