PSNRPT3.m

PSNRPT3 ;BIR/CCH&WRT-FILEMAN PRINT TEMPLATE USED IN PSNRPT ;10/02/98 14:34

 ;;4.0; NATIONAL DRUG FILE;; 30 Oct 98

 I '$D(^PSDRUG(D0,"ND")) Q

 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

 W !!! S D0=HLD K HLD,FNM,IN Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PSNRPT3   318     printed  Apr 09, 2024@21:18:50                                                                                                                                                                                                      Page 2

PSNRPT3   ;BIR/CCH&WRT-FILEMAN PRINT TEMPLATE USED IN PSNRPT ;10/02/98 14:34

 +1       ;;4.0; NATIONAL DRUG FILE;; 30 Oct 98

 +2        IF '$DATA(^PSDRUG(D0,"ND"))

               QUIT 

 +3        SET HLD=D0

           SET D0=$PIECE(^PSDRUG(HLD,"ND"),"^")

           SET FNM=$PIECE(^PSDRUG(HLD,"ND"),"^",3)

           SET Y=$PIECE(^PSNDF(50.68,FNM,0),"^",1)

           WRITE ?42,"INGREDIENTS:"

           DO INGRED1^PSNOUT

 +4        WRITE !!!

           SET D0=HLD

           KILL HLD,FNM,IN

           QUIT