PSNDATAE.m

PSNDATAE ;BIR/DMA-environment check for data updates ;31 Aug 99 / 11:32 AM

 ;;4.0; NATIONAL DRUG FILE;**1,6,8,9,10,12,14,15,17,18,21,23,24,25,28,31,34**; 30 Oct 98

 I $D(DUZ)#2 N DIC,X,Y S DIC=200,DIC(0)="N",X="`"_DUZ D ^DIC I Y>0,$D(DUZ(0))#2,DUZ(0)="@"

 E  D BMES^XPDUTL("You must be a valid user with DUZ(0)=""@""") S XPDQUIT=2

 N X S X=$P($T(+2),"**",2),X=$P(X,",",$L(X,",")) I X I $$PATCH^XPDUTL("PSN*4.0*"_X) D BMES^XPDUTL("This patch has already been installed") S XPDQUIT=1 Q

 Q

PSNDATAE  ;BIR/DMA-environment check for data updates ;31 Aug 99 / 11:32 AM

 +1       ;;4.0; NATIONAL DRUG FILE;**1,6,8,9,10,12,14,15,17,18,21,23,24,25,28,31,34**; 30 Oct 98

 +2        IF $DATA(DUZ)#2

               NEW DIC,X,Y

               SET DIC=200

               SET DIC(0)="N"

               SET X="`"_DUZ

               DO ^DIC

               IF Y>0

                   IF $DATA(DUZ(0))#2

                       IF DUZ(0)="@"

 +3       IF '$TEST

               DO BMES^XPDUTL("You must be a valid user with DUZ(0)=""@""")

               SET XPDQUIT=2

 +4        NEW X

           SET X=$PIECE($TEXT(+2),"**",2)

           SET X=$PIECE(X,",",$LENGTH(X,","))

           IF X

               IF $$PATCH^XPDUTL("PSN*4.0*"_X)

                   DO BMES^XPDUTL("This patch has already been installed")

                   SET XPDQUIT=1

                   QUIT 

 +5        QUIT