- 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 Feb 18, 2025@23:51:17 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