Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PSN113P

PSN113P.m

Go to the documentation of this file.
PSN113P ;BIR/DMA-DELETE INATIVATION DATES AS NEEDED ; 02 Mar 2006  2:27 PM
 ;;4.0; NATIONAL DRUG FILE;**113**; 30 Oct 98
 ;
 N DA,J,LIST
 S LIST=$P($T(LIST+1),";",3,300)
 F J=1:1 S DA=$P(LIST,"^",J) Q:DA=""  S $P(^PSNDF(50.68,DA,7),"^",3)="" D
 .N DA2 S DA2=0 F  S DA2=$O(^PSNDF(50.68,"ANDC",DA,DA2)) Q:'DA2  S $P(^PSNDF(50.67,DA,0),"^",7)=""
 K DA,DA2,J,LIST Q
 ;
LIST ;OF PRODUCT IENS
 ;;2633^2634^2635^15524^16452^16649^16819^16909^16910
 ;