A5A4.m

A5A4 ;[ 03/07/90  10:51 AM ]

 D ^%AUKVAR S DUZ=1,DUZ(0)="@"

 D ^%ZIS

 S A5AIO=IO

 S L=0,DIC="^DIC(3,",FR=1,TO="",BY=".001",IOP=A5AIO

 S FLDS=".001,.01;"_""""_"USER FILE NAME"_""""_",NAME:PERSON:NAME;"_""""_"PERSON FILE NAME"_""""_""""

 S DHD="USER NAME AND PERSON NAME COMPARISON"

 D EN1^DIP

 S L=0,DIC="^DIC(3,",FR=1,TO="",FLDS=".001,.01",BY=".001",IOP=A5AIO

 S DHD="USER NAMES NOT IN PROPER PERSON NAME FORMAT"

 S DIS(0)="I $P(^DIC(3,D0,0),U)'?1U.UP1"_""""_","_""""_"."_""""_" "_""""_"1U.UP"

 D EN1^DIP

 S L=0,DIC="^DIC(16,",FR="",TO="",FLDS=".01",BY=".01",IOP=A5AIO

 S DHD="PERSON NAMES NOT IN PROPER PERSON NAME FORMAT"

 S DIS(0)="I $P(^DIC(16,D0,0),U)'?1U.UP1"_""""_","_""""_"."_""""_" "_""""_"1U.UP"

 D EN1^DIP

 Q