PSSDVEN.m

PSSDVEN ;BIR/TTH-DELETE VENDOR SUB-FILE FROM DRUG FILE ; 4-FEB-2000 10:16

 ;;1.0;PHARMACY DATA MANAGEMENT;**30**;09/30/97

 ;Delete Vendor sub file from DRUG file (#50)

 I $$VFILE^DILFD(50.535001) D

 .S DIU=50.535001,DIU(0)="DS" D EN^DIU2

 .K DIU,X,Y

 Q

PSSDVEN   ;BIR/TTH-DELETE VENDOR SUB-FILE FROM DRUG FILE ; 4-FEB-2000 10:16

 +1       ;;1.0;PHARMACY DATA MANAGEMENT;**30**;09/30/97

 +2       ;Delete Vendor sub file from DRUG file (#50)

 +3        IF $$VFILE^DILFD(50.535001)

               Begin DoDot:1

 +4                SET DIU=50.535001

                   SET DIU(0)="DS"

                   DO EN^DIU2

 +5                KILL DIU,X,Y

               End DoDot:1

 +6        QUIT