Name | Value |
---|---|
NUMBER | 6864 |
IA # | 6864 |
FILE NUMBER | 200 |
GLOBAL ROOT | DD(200 |
DATE CREATED | 2018/01/17 |
CUSTODIAL PACKAGE | VA FILEMAN |
USAGE | Private |
TYPE | File |
DBIC APPROVAL STATUS | APPROVED |
NAME | READ ACCESS TO DD(200 |
GENERAL DESCRIPTION | This is a one-time agreement via patch XU*8.0*687 to clean up a cross reference on two fields, MAIL CODE (#28) and SERVICE/SECTION (#29) of the NEW PERSON File (#200). This agreement will cover the removal of the E cross reference on Field 28. The code to remove the cross reference is: N XUHIT,XUOUT,XUERR,XUXREF S (XUHIT,XUXREF)=0 F S XUXREF=$O(^DD(200,28,1,XUXREF)) Q:('+XUXREF)!(XUHIT) D . I $P($G(^DD(200,28,1,XUXREF,0)),U,2)="E" D .. S XUHIT=1 .. D DELIX^DDMOD(200,28,XUXREF,"K","XUOUT","XUERR") .. ; .. ; No error, xRef deleted .. I '$D(XUERR) D MES^XPDUTL("The E cross reference was deleted.") Q .. ; .. ; Error encountered, xRef not deleted. .. D MES^XPDUTL("ERROR encountered deleting the E cross reference.") ; D:'XUHIT MES^XPDUTL("The E cross reference was not found.") ; Q |
STATUS | Active |
DURATION | Till Otherwise Agreed |
ID | DD(200 |
SUBSCRIBING PACKAGE | KERNEL |
DATE ACTIVATED | 2018/02/16 |