PSN4P4 ;BIR/DMA-delete remote members from mail group NDF DATA ;20 Jan 99 / 12:30 PM
;;4.0; NATIONAL DRUG FILE;**4**; 30 Oct 98
;
;Reference to ^XMB(3.8 supported by DBIA #2061
;
N DA,DIC,DIE,DR,PSN,PSN1,X,Y
S DIC="^XMB(3.8,",X="NDF DATA" D ^DIC Q:Y<0 S PSN1=+Y
F PSN="MONTALI,M","BARRON,LUANNE","TATUM,W" S X=PSN_"@DOMAIN.NAME",DIC="^XMB(3.8,"_PSN1_",6,",DA(1)=PSN1 D ^DIC I Y S DA=+Y,DIE=DIC,DR=".01///@" D ^DIE
Q
PSN4P4 ;BIR/DMA-delete remote members from mail group NDF DATA ;20 Jan 99 / 12:30 PM
+1 ;;4.0; NATIONAL DRUG FILE;**4**; 30 Oct 98
+2 ;
+3 ;Reference to ^XMB(3.8 supported by DBIA #2061
+4 ;
+5 NEW DA,DIC,DIE,DR,PSN,PSN1,X,Y
+6 SET DIC="^XMB(3.8,"
SET X="NDF DATA"
DO ^DIC
IF Y<0
QUIT
SET PSN1=+Y
+7 FOR PSN="MONTALI,M","BARRON,LUANNE","TATUM,W"
SET X=PSN_"@DOMAIN.NAME"
SET DIC="^XMB(3.8,"_PSN1_",6,"
SET DA(1)=PSN1
DO ^DIC
IF Y
SET DA=+Y
SET DIE=DIC
SET DR=".01///@"
DO ^DIE
+8 QUIT