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.

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 ---[H[J[2J[HPSNRPT3   318     printed  Dec 13, 2024@02:25                                                                                                                                                                                                         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