Routine: DG53244R

DG53244R ;BPOIFO/KEITH - Post-init continuation for DG*5.3*244 ; 27 Jan 2002  6:45 PM

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

ITXDES ;Set input transforms and field descriptions

 D BMES^XPDUTL("Setting field descriptions and input transforms")

 S $P(^DD(2,.01,0),U,5,99)="K:$L(X)>30!($L(X)<3) X I $D(X) S DG20NAME=X,(X,DG20NAME)=$$FORMAT^DPTNAME(.DG20NAME,3,30) K:'$L(X) X,DG20NAME S:$D(X) DGNEWVAL=X"

 S ^DD(2,.01,3)="Enter name in 'LAST,FIRST MIDDLE SUFFIX' format, must be 3-30 characters in length."

 K ^DD(2,.01,21)

 S ^DD(2,.01,21,0)="^^4^4^2990208^^^^"

 S ^DD(2,.01,21,1,0)="Enter the patient's name in 'LAST,FIRST MIDDLE SUFFIX' format."

 S ^DD(2,.01,21,2,0)="This value must be 3-30 characters in length and may contain only uppercase"

 S ^DD(2,.01,21,3,0)="alpha characters, spaces, apostrophes, hyphens and one comma.  All other"

 S ^DD(2,.01,21,4,0)="characters and parenthetical text will be removed."

 S $P(^DD(2,.211,0),U,5,99)="K:$L(X)>35!($L(X)<3) X I $D(X) S DG20NAME=X,(X,DG20NAME)=$$FORMAT^DPTNAME(.DG20NAME,3,35) K:'$L(X) X,DG20NAME"

 S ^DD(2,.211,3)="Enter name in 'LAST,FIRST MIDDLE SUFFIX' format, must be 3-35 characters in length."

 K ^DD(2,.211,21)

 S ^DD(2,.211,21,0)="^^4^4^2861007^"

 S ^DD(2,.211,21,1,0)="Enter the primary next of kin's name in 'LAST,FIRST MIDDLE SUFFIX' format."

 S ^DD(2,.211,21,2,0)="This value must be 3-35 characters in length and may contain only uppercase"

 S ^DD(2,.211,21,3,0)="alpha characters, spaces, apostrophes, hyphens and one comma.  All other"

 S ^DD(2,.211,21,4,0)="characters and parenthetical text will be removed."

 S $P(^DD(2,.2191,0),U,5,99)="K:$L(X)>35!($L(X)<3) X I $D(X) S DG20NAME=X,(X,DG20NAME)=$$FORMAT^DPTNAME(.DG20NAME,3,35) K:'$L(X) X,DG20NAME I $D(X) D K1^DGLOCK2"

 S ^DD(2,.2191,3)="Enter name in 'LAST,FIRST MIDDLE SUFFIX' format, must be 3-35 characters in length."

 K ^DD(2,.2191,21)

 S ^DD(2,.2191,21,0)="^^4^4^2861007^^"

 S ^DD(2,.2191,21,1,0)="Enter the secondary next of kin's name in 'LAST,FIRST MIDDLE SUFFIX' format."

 S ^DD(2,.2191,21,2,0)="This value must be 3-35 characters in length and may contain only uppercase"

 S ^DD(2,.2191,21,3,0)="alpha characters, spaces, apostrophes, hyphens and one comma.  All other"

 S ^DD(2,.2191,21,4,0)="characters and parenthetical text will be removed."

 S $P(^DD(2,.2401,0),U,5,99)="K:$L(X)>35!($L(X)<3) X I $D(X) S DG20NAME=X,(X,DG20NAME)=$$FORMAT^DPTNAME(.DG20NAME,3,35) K:'$L(X) X,DG20NAME"

 S ^DD(2,.2401,3)="Enter name in 'LAST,FIRST MIDDLE SUFFIX' format, must be 3-35 characters in length."

 K ^DD(2,.2401,21)

 S ^DD(2,.2401,21,0)="^^4^4^2861007^"

 S ^DD(2,.2401,21,1,0)="Enter the father's name in 'LAST,FIRST MIDDLE SUFFIX' format."

 S ^DD(2,.2401,21,2,0)="This value must be 3-35 characters in length and may contain only uppercase"

 S ^DD(2,.2401,21,3,0)="alpha characters, spaces, apostrophes, hyphens and one comma.  All other"

 S ^DD(2,.2401,21,4,0)="characters and parenthetical text will be removed."

 S $P(^DD(2,.2402,0),U,5,99)="K:$L(X)>35!($L(X)<3) X I $D(X) S DG20NAME=X,(X,DG20NAME)=$$FORMAT^DPTNAME(.DG20NAME,3,35) K:'$L(X) X,DG20NAME"

 S ^DD(2,.2402,3)="Enter name in 'LAST,FIRST MIDDLE SUFFIX' format, must be 3-35 characters in length."

 K ^DD(2,.2402,21)

 S ^DD(2,.2402,21,0)="^^4^4^2861007^"

 S ^DD(2,.2402,21,1,0)="Enter the mother's name in 'LAST,FIRST MIDDLE SUFFIX' format."

 S ^DD(2,.2402,21,2,0)="This value must be 3-35 characters in length and may contain only uppercase"

 S ^DD(2,.2402,21,3,0)="alpha characters, spaces, apostrophes, hyphens and one comma.  All other"

 S ^DD(2,.2402,21,4,0)="characters and parenthetical text will be removed."

 S $P(^DD(2,.2403,0),U,5,99)="K:$L(X)>35!($L(X)<2) X I $D(X) S DG20NAME=X,(X,DG20NAME)=$$FORMAT^DPTNAME(.DG20NAME,3,35,,2,,1) K:'$L(X) X,DG20NAME"

 S ^DD(2,.2403,3)="Enter name in 'LAST,FIRST MIDDLE SUFFIX' format, must be 3-35 characters in length."

 K ^DD(2,.2403,21)

 S ^DD(2,.2403,21,0)="^^4^4^2861007^"

 S ^DD(2,.2403,21,1,0)="Enter the mother's maiden name in 'LAST,FIRST MIDDLE SUFFIX' format."

 S ^DD(2,.2403,21,2,0)="Entry of the LAST name only is permitted and the comma may be omitted."

 S ^DD(2,.2403,21,3,0)="If the response contains no comma, one will be appended to the value."

 S ^DD(2,.2403,21,4,0)="Including the comma, the value must be at least 3 characters in length."

 S $P(^DD(2,.331,0),U,5,99)="K:$L(X)>35!($L(X)<3) X I $D(X) S DG20NAME=X,(X,DG20NAME)=$$FORMAT^DPTNAME(.DG20NAME,3,35) K:'$L(X) X,DG20NAME"

 S ^DD(2,.331,3)="Enter name in 'LAST,FIRST MIDDLE SUFFIX' format, must be 3-35 characters in length."

 K ^DD(2,.331,21)

 S ^DD(2,.331,21,0)="^^4^4^2861117^^^"

 S ^DD(2,.331,21,1,0)="Enter the primary emergency contact's name in 'LAST,FIRST MIDDLE SUFFIX' format."

 S ^DD(2,.331,21,2,0)="This value must be 3-35 characters in length and may contain only uppercase"

 S ^DD(2,.331,21,3,0)="alpha characters, spaces, apostrophes, hyphens and one comma.  All other"

 S ^DD(2,.331,21,4,0)="characters and parenthetical text will be removed."

 S $P(^DD(2,.3311,0),U,5,99)="K:$L(X)>35!($L(X)<3) X I $D(X) S DG20NAME=X,(X,DG20NAME)=$$FORMAT^DPTNAME(.DG20NAME,3,35) K:'$L(X) X,DG20NAME I $D(X) D E1^DGLOCK2"

 S ^DD(2,.3311,3)="Enter name in 'LAST,FIRST MIDDLE SUFFIX' format, must be 3-35 characters in length."

 K ^DD(2,.3311,21)

 S ^DD(2,.3311,21,0)="^^4^4^2861007^"

 S ^DD(2,.3311,21,1,0)="Enter the secondary emergency contact's name in 'LAST,FIRST MIDDLE SUFFIX' format."

 S ^DD(2,.3311,21,2,0)="This value must be 3-35 characters in length and may contain only uppercase"

 S ^DD(2,.3311,21,3,0)="alpha characters, spaces, apostrophes, hyphens and one comma.  All other"

 S ^DD(2,.3311,21,4,0)="characters and parenthetical text will be removed."

 S $P(^DD(2,.341,0),U,5,99)="K:$L(X)>35!($L(X)<3) X I $D(X) S DG20NAME=X,(X,DG20NAME)=$$FORMAT^DPTNAME(.DG20NAME,3,35) K:'$L(X) X,DG20NAME"

 S ^DD(2,.341,3)="Enter name in 'LAST,FIRST MIDDLE SUFFIX' format, must be 3-35 characters in length."

 K ^DD(2,.341,21)

 S ^DD(2,.341,21,0)="^^4^4^2861007^"

 S ^DD(2,.341,21,1,0)="Enter the designee's name in 'LAST,FIRST MIDDLE SUFFIX' format."

 S ^DD(2,.341,21,2,0)="This value must be 3-35 characters in length and may contain only uppercase"

 S ^DD(2,.341,21,3,0)="alpha characters, spaces, apostrophes, hyphens and one comma.  All other"

 S ^DD(2,.341,21,4,0)="characters and parenthetical text will be removed."

 S $P(^DD(2.01,.01,0),U,5,99)="K:$L(X)>30!($L(X)<3) X I $D(X) S DG20NAME=X,(X,DG20NAME)=$$FORMAT^DPTNAME(.DG20NAME,3,30) K:'$L(X) X,DG20NAME"

 S ^DD(2.01,.01,3)="Enter name in 'LAST,FIRST MIDDLE SUFFIX' format, must be 3-30 characters in length."

 K ^DD(2.01,.01,21)

 S ^DD(2.01,.01,21,0)="^^4^4^2861007^"

 S ^DD(2.01,.01,21,1,0)="Enter the alias name in 'LAST,FIRST MIDDLE SUFFIX' format."

 S ^DD(2.01,.01,21,2,0)="This value must be 3-30 characters in length and may contain only uppercase"

 S ^DD(2.01,.01,21,3,0)="alpha characters, spaces, apostrophes, hyphens and one comma.  All other"

 S ^DD(2.01,.01,21,4,0)="characters and parenthetical text will be removed."

 S $P(^DD(2.101,30,0),U,5,99)="K:$L(X)>30!($L(X)<3) X I $D(X) S DG20NAME=X,(X,DG20NAME)=$$FORMAT^DPTNAME(.DG20NAME,3,30) K:'$L(X) X,DG20NAME"

 S ^DD(2.101,30,3)="Enter name in 'LAST,FIRST MIDDLE SUFFIX' format, must be 3-30 characters in length."

 K ^DD(2.101,30,21)

 S ^DD(2.101,30,21,0)="^^4^4^2911214^^"

 S ^DD(2.101,30,21,1,0)="Enter the attorney's name in 'LAST,FIRST MIDDLE SUFFIX' format."

 S ^DD(2.101,30,21,2,0)="This value must be 3-30 characters in length and may contain only uppercase"

 S ^DD(2.101,30,21,3,0)="alpha characters, spaces, apostrophes, hyphens and one comma.  All other"

 S ^DD(2.101,30,21,4,0)="characters and parenthetical text will be removed."

DES(DGI,DGA,DGF) ;Set up long description array

 ;Input: DGI=index number

 ;       DGA=array (pass by reference)

 ;       DGF=field number

 K DGA

 I DGI=72 D  Q

 .S DGA(1)="This cross reference facilitates PATIENT file lookups by a standardized name"

 .S DGA(2)="value.  In addition to the standardization applied by Kernel name utilities,"

 .S DGA(3)="hyphens and apostrophies are also removed from the name value.  This cross"

 .S DGA(4)="reference is only set if the standardized name is different than the patient"

 .S DGA(5)="name value stored in the NAME (#.01) field."

 S DGA(1)="This cross reference uses Kernel name standardization APIs to keep the NAME"

 S DGA(2)="COMPONENTS (#20) file record associated with the #"_DGF_" field synchronized"

 S DGA(3)="with the data value stored in that field."

DG53244R  ;BPOIFO/KEITH - Post-init continuation for DG*5.3*244 ; 27 Jan 2002  6:45 PM

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

 +2       ;

ITXDES    ;Set input transforms and field descriptions

 +1        DO BMES^XPDUTL("Setting field descriptions and input transforms")

 +2        SET $PIECE(^DD(2,.01,0),U,5,99)="K:$L(X)>30!($L(X)<3) X I $D(X) S DG20NAME=X,(X,DG20NAME)=$$FORMAT^DPTNAME(.DG20NAME,3,30) K:'$L(X) X,DG20NAME S:$D(X) DGNEWVAL=X"

 +3        SET ^DD(2,.01,3)="Enter name in 'LAST,FIRST MIDDLE SUFFIX' format, must be 3-30 characters in length."

 +4        KILL ^DD(2,.01,21)

 +5        SET ^DD(2,.01,21,0)="^^4^4^2990208^^^^"

 +6        SET ^DD(2,.01,21,1,0)="Enter the patient's name in 'LAST,FIRST MIDDLE SUFFIX' format."

 +7        SET ^DD(2,.01,21,2,0)="This value must be 3-30 characters in length and may contain only uppercase"

 +8        SET ^DD(2,.01,21,3,0)="alpha characters, spaces, apostrophes, hyphens and one comma.  All other"

 +9        SET ^DD(2,.01,21,4,0)="characters and parenthetical text will be removed."

 +10       SET $PIECE(^DD(2,.211,0),U,5,99)="K:$L(X)>35!($L(X)<3) X I $D(X) S DG20NAME=X,(X,DG20NAME)=$$FORMAT^DPTNAME(.DG20NAME,3,35) K:'$L(X) X,DG20NAME"

 +11       SET ^DD(2,.211,3)="Enter name in 'LAST,FIRST MIDDLE SUFFIX' format, must be 3-35 characters in length."

 +12       KILL ^DD(2,.211,21)

 +13       SET ^DD(2,.211,21,0)="^^4^4^2861007^"

 +14       SET ^DD(2,.211,21,1,0)="Enter the primary next of kin's name in 'LAST,FIRST MIDDLE SUFFIX' format."

 +15       SET ^DD(2,.211,21,2,0)="This value must be 3-35 characters in length and may contain only uppercase"

 +16       SET ^DD(2,.211,21,3,0)="alpha characters, spaces, apostrophes, hyphens and one comma.  All other"

 +17       SET ^DD(2,.211,21,4,0)="characters and parenthetical text will be removed."

 +18       SET $PIECE(^DD(2,.2191,0),U,5,99)="K:$L(X)>35!($L(X)<3) X I $D(X) S DG20NAME=X,(X,DG20NAME)=$$FORMAT^DPTNAME(.DG20NAME,3,35) K:'$L(X) X,DG20NAME I $D(X) D K1^DGLOCK2"

 +19       SET ^DD(2,.2191,3)="Enter name in 'LAST,FIRST MIDDLE SUFFIX' format, must be 3-35 characters in length."

 +20       KILL ^DD(2,.2191,21)

 +21       SET ^DD(2,.2191,21,0)="^^4^4^2861007^^"

 +22       SET ^DD(2,.2191,21,1,0)="Enter the secondary next of kin's name in 'LAST,FIRST MIDDLE SUFFIX' format."

 +23       SET ^DD(2,.2191,21,2,0)="This value must be 3-35 characters in length and may contain only uppercase"

 +24       SET ^DD(2,.2191,21,3,0)="alpha characters, spaces, apostrophes, hyphens and one comma.  All other"

 +25       SET ^DD(2,.2191,21,4,0)="characters and parenthetical text will be removed."

 +26       SET $PIECE(^DD(2,.2401,0),U,5,99)="K:$L(X)>35!($L(X)<3) X I $D(X) S DG20NAME=X,(X,DG20NAME)=$$FORMAT^DPTNAME(.DG20NAME,3,35) K:'$L(X) X,DG20NAME"

 +27       SET ^DD(2,.2401,3)="Enter name in 'LAST,FIRST MIDDLE SUFFIX' format, must be 3-35 characters in length."

 +28       KILL ^DD(2,.2401,21)

 +29       SET ^DD(2,.2401,21,0)="^^4^4^2861007^"

 +30       SET ^DD(2,.2401,21,1,0)="Enter the father's name in 'LAST,FIRST MIDDLE SUFFIX' format."

 +31       SET ^DD(2,.2401,21,2,0)="This value must be 3-35 characters in length and may contain only uppercase"

 +32       SET ^DD(2,.2401,21,3,0)="alpha characters, spaces, apostrophes, hyphens and one comma.  All other"

 +33       SET ^DD(2,.2401,21,4,0)="characters and parenthetical text will be removed."

 +34       SET $PIECE(^DD(2,.2402,0),U,5,99)="K:$L(X)>35!($L(X)<3) X I $D(X) S DG20NAME=X,(X,DG20NAME)=$$FORMAT^DPTNAME(.DG20NAME,3,35) K:'$L(X) X,DG20NAME"

 +35       SET ^DD(2,.2402,3)="Enter name in 'LAST,FIRST MIDDLE SUFFIX' format, must be 3-35 characters in length."

 +36       KILL ^DD(2,.2402,21)

 +37       SET ^DD(2,.2402,21,0)="^^4^4^2861007^"

 +38       SET ^DD(2,.2402,21,1,0)="Enter the mother's name in 'LAST,FIRST MIDDLE SUFFIX' format."

 +39       SET ^DD(2,.2402,21,2,0)="This value must be 3-35 characters in length and may contain only uppercase"

 +40       SET ^DD(2,.2402,21,3,0)="alpha characters, spaces, apostrophes, hyphens and one comma.  All other"

 +41       SET ^DD(2,.2402,21,4,0)="characters and parenthetical text will be removed."

 +42       SET $PIECE(^DD(2,.2403,0),U,5,99)="K:$L(X)>35!($L(X)<2) X I $D(X) S DG20NAME=X,(X,DG20NAME)=$$FORMAT^DPTNAME(.DG20NAME,3,35,,2,,1) K:'$L(X) X,DG20NAME"

 +43       SET ^DD(2,.2403,3)="Enter name in 'LAST,FIRST MIDDLE SUFFIX' format, must be 3-35 characters in length."

 +44       KILL ^DD(2,.2403,21)

 +45       SET ^DD(2,.2403,21,0)="^^4^4^2861007^"

 +46       SET ^DD(2,.2403,21,1,0)="Enter the mother's maiden name in 'LAST,FIRST MIDDLE SUFFIX' format."

 +47       SET ^DD(2,.2403,21,2,0)="Entry of the LAST name only is permitted and the comma may be omitted."

 +48       SET ^DD(2,.2403,21,3,0)="If the response contains no comma, one will be appended to the value."

 +49       SET ^DD(2,.2403,21,4,0)="Including the comma, the value must be at least 3 characters in length."

 +50       SET $PIECE(^DD(2,.331,0),U,5,99)="K:$L(X)>35!($L(X)<3) X I $D(X) S DG20NAME=X,(X,DG20NAME)=$$FORMAT^DPTNAME(.DG20NAME,3,35) K:'$L(X) X,DG20NAME"

 +51       SET ^DD(2,.331,3)="Enter name in 'LAST,FIRST MIDDLE SUFFIX' format, must be 3-35 characters in length."

 +52       KILL ^DD(2,.331,21)

 +53       SET ^DD(2,.331,21,0)="^^4^4^2861117^^^"

 +54       SET ^DD(2,.331,21,1,0)="Enter the primary emergency contact's name in 'LAST,FIRST MIDDLE SUFFIX' format."

 +55       SET ^DD(2,.331,21,2,0)="This value must be 3-35 characters in length and may contain only uppercase"

 +56       SET ^DD(2,.331,21,3,0)="alpha characters, spaces, apostrophes, hyphens and one comma.  All other"

 +57       SET ^DD(2,.331,21,4,0)="characters and parenthetical text will be removed."

 +58       SET $PIECE(^DD(2,.3311,0),U,5,99)="K:$L(X)>35!($L(X)<3) X I $D(X) S DG20NAME=X,(X,DG20NAME)=$$FORMAT^DPTNAME(.DG20NAME,3,35) K:'$L(X) X,DG20NAME I $D(X) D E1^DGLOCK2"

 +59       SET ^DD(2,.3311,3)="Enter name in 'LAST,FIRST MIDDLE SUFFIX' format, must be 3-35 characters in length."

 +60       KILL ^DD(2,.3311,21)

 +61       SET ^DD(2,.3311,21,0)="^^4^4^2861007^"

 +62       SET ^DD(2,.3311,21,1,0)="Enter the secondary emergency contact's name in 'LAST,FIRST MIDDLE SUFFIX' format."

 +63       SET ^DD(2,.3311,21,2,0)="This value must be 3-35 characters in length and may contain only uppercase"

 +64       SET ^DD(2,.3311,21,3,0)="alpha characters, spaces, apostrophes, hyphens and one comma.  All other"

 +65       SET ^DD(2,.3311,21,4,0)="characters and parenthetical text will be removed."

 +66       SET $PIECE(^DD(2,.341,0),U,5,99)="K:$L(X)>35!($L(X)<3) X I $D(X) S DG20NAME=X,(X,DG20NAME)=$$FORMAT^DPTNAME(.DG20NAME,3,35) K:'$L(X) X,DG20NAME"

 +67       SET ^DD(2,.341,3)="Enter name in 'LAST,FIRST MIDDLE SUFFIX' format, must be 3-35 characters in length."

 +68       KILL ^DD(2,.341,21)

 +69       SET ^DD(2,.341,21,0)="^^4^4^2861007^"

 +70       SET ^DD(2,.341,21,1,0)="Enter the designee's name in 'LAST,FIRST MIDDLE SUFFIX' format."

 +71       SET ^DD(2,.341,21,2,0)="This value must be 3-35 characters in length and may contain only uppercase"

 +72       SET ^DD(2,.341,21,3,0)="alpha characters, spaces, apostrophes, hyphens and one comma.  All other"

 +73       SET ^DD(2,.341,21,4,0)="characters and parenthetical text will be removed."

 +74       SET $PIECE(^DD(2.01,.01,0),U,5,99)="K:$L(X)>30!($L(X)<3) X I $D(X) S DG20NAME=X,(X,DG20NAME)=$$FORMAT^DPTNAME(.DG20NAME,3,30) K:'$L(X) X,DG20NAME"

 +75       SET ^DD(2.01,.01,3)="Enter name in 'LAST,FIRST MIDDLE SUFFIX' format, must be 3-30 characters in length."

 +76       KILL ^DD(2.01,.01,21)

 +77       SET ^DD(2.01,.01,21,0)="^^4^4^2861007^"

 +78       SET ^DD(2.01,.01,21,1,0)="Enter the alias name in 'LAST,FIRST MIDDLE SUFFIX' format."

 +79       SET ^DD(2.01,.01,21,2,0)="This value must be 3-30 characters in length and may contain only uppercase"

 +80       SET ^DD(2.01,.01,21,3,0)="alpha characters, spaces, apostrophes, hyphens and one comma.  All other"

 +81       SET ^DD(2.01,.01,21,4,0)="characters and parenthetical text will be removed."

 +82       SET $PIECE(^DD(2.101,30,0),U,5,99)="K:$L(X)>30!($L(X)<3) X I $D(X) S DG20NAME=X,(X,DG20NAME)=$$FORMAT^DPTNAME(.DG20NAME,3,30) K:'$L(X) X,DG20NAME"

 +83       SET ^DD(2.101,30,3)="Enter name in 'LAST,FIRST MIDDLE SUFFIX' format, must be 3-30 characters in length."

 +84       KILL ^DD(2.101,30,21)

 +85       SET ^DD(2.101,30,21,0)="^^4^4^2911214^^"

 +86       SET ^DD(2.101,30,21,1,0)="Enter the attorney's name in 'LAST,FIRST MIDDLE SUFFIX' format."

 +87       SET ^DD(2.101,30,21,2,0)="This value must be 3-30 characters in length and may contain only uppercase"

 +88       SET ^DD(2.101,30,21,3,0)="alpha characters, spaces, apostrophes, hyphens and one comma.  All other"

 +89       SET ^DD(2.101,30,21,4,0)="characters and parenthetical text will be removed."

 +90       QUIT

 +91      ;

DES(DGI,DGA,DGF) ;Set up long description array

 +1       ;Input: DGI=index number

 +2       ;       DGA=array (pass by reference)

 +3       ;       DGF=field number

 +4        KILL DGA

 +5        IF DGI=72

               Begin DoDot:1

 +6                SET DGA(1)="This cross reference facilitates PATIENT file lookups by a standardized name"

 +7                SET DGA(2)="value.  In addition to the standardization applied by Kernel name utilities,"

 +8                SET DGA(3)="hyphens and apostrophies are also removed from the name value.  This cross"

 +9                SET DGA(4)="reference is only set if the standardized name is different than the patient"

 +10               SET DGA(5)="name value stored in the NAME (#.01) field."

               End DoDot:1

               QUIT

 +11       SET DGA(1)="This cross reference uses Kernel name standardization APIs to keep the NAME"

 +12       SET DGA(2)="COMPONENTS (#20) file record associated with the #"_DGF_" field synchronized"

 +13       SET DGA(3)="with the data value stored in that field."

 +14       QUIT

DG53244R.m