DG53489P.m

DG53489P ;ALB/EW;BPFO/MM -PRE/POST INIT FOR DG*5.3*489 ;3/10/2003

 ;;5.3;Registration;**489,1015**;Aug 13, 1993;Build 21

 ;

 ;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

DG53489P  ;ALB/EW;BPFO/MM -PRE/POST INIT FOR DG*5.3*489 ;3/10/2003

 +1       ;;5.3;Registration;**489,1015**;Aug 13, 1993;Build 21

 +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