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

PSNRPT3.m

Go to the documentation of this file.
  1. PSNRPT3 ;BIR/CCH&WRT-FILEMAN PRINT TEMPLATE USED IN PSNRPT ;10/02/98 14:34
  1. ;;4.0; NATIONAL DRUG FILE;; 30 Oct 98
  1. I '$D(^PSDRUG(D0,"ND")) Q
  1. S HLD=D0,D0=$P(^PSDRUG(HLD,"ND"),"^"),FNM=$P(^PSDRUG(HLD,"ND"),"^",3),Y=$P(^PSNDF(50.68,FNM,0),"^",1) W ?42,"INGREDIENTS:" D INGRED1^PSNOUT
  1. W !!! S D0=HLD K HLD,FNM,IN Q