- PSNRPT2 ;BIR/WRT-FILEMAN PRINT TEMPLATE USED IN PSNRPT ;[ 01/12/98 5:18 PM ]
- ;;4.0; NATIONAL DRUG FILE;**65**; 30 Oct 98
- ;Reference to ^PSDRUG supported by DBIA #221
- ;Reference to ^DIC(51.5 supported by DBIA #1931
- ;
- I '$D(^PSDRUG(D0,"ND")) Q
- S WRT=D0 I $D(^PSDRUG(WRT,660)) S PSNODE=^PSDRUG(WRT,660) I $P(PSNODE,"^",2) S PSNOU=$P(PSNODE,"^",2) I $D(^DIC(51.5)),$D(^DIC(51.5,PSNOU)) S PSNOUN=$P(^DIC(51.5,PSNOU,0),"^",1)
- D WRTIT,^PSNRPT3
- Q
- WRTIT W !,"ORDER UNIT: ",$S($D(PSNOUN):PSNOUN,1:""),?42,"VA CLASS: ",$P(^PS(50.605,$P(^PSDRUG(WRT,"ND"),"^",6),0),"^",1)_" "_$P(^PS(50.605,$P(^PSDRUG(WRT,"ND"),"^",6),0),"^",2)
- I $P(^PSDRUG(WRT,"ND"),"^",3) D
- .W !,"CS FEDERAL SCHEDULE: "_$S($P($G(^PSNDF(50.68,$P(^PSDRUG(WRT,"ND"),"^",3),7)),"^")]"":$P(^PSNDF(50.68,$P(^PSDRUG(WRT,"ND"),"^",3),7),"^"),1:"")
- W !,"DISPENSE UNITS/ORDER UNITS: ",$S('$D(PSNODE):"",1:$P(PSNODE,"^",5)),!,"DISPENSE UNIT: ",$S('$D(PSNODE):"",1:$P(PSNODE,"^",8)) S D0=WRT K WRT,PSNODE,PSNOUN,PSNOU Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSNRPT2 994 printed Feb 18, 2025@23:51:16 Page 2
- PSNRPT2 ;BIR/WRT-FILEMAN PRINT TEMPLATE USED IN PSNRPT ;[ 01/12/98 5:18 PM ]
- +1 ;;4.0; NATIONAL DRUG FILE;**65**; 30 Oct 98
- +2 ;Reference to ^PSDRUG supported by DBIA #221
- +3 ;Reference to ^DIC(51.5 supported by DBIA #1931
- +4 ;
- +5 IF '$DATA(^PSDRUG(D0,"ND"))
- QUIT
- +6 SET WRT=D0
- IF $DATA(^PSDRUG(WRT,660))
- SET PSNODE=^PSDRUG(WRT,660)
- IF $PIECE(PSNODE,"^",2)
- SET PSNOU=$PIECE(PSNODE,"^",2)
- IF $DATA(^DIC(51.5))
- IF $DATA(^DIC(51.5,PSNOU))
- SET PSNOUN=$PIECE(^DIC(51.5,PSNOU,0),"^",1)
- +7 DO WRTIT
- DO ^PSNRPT3
- +8 QUIT
- WRTIT WRITE !,"ORDER UNIT: ",$SELECT($DATA(PSNOUN):PSNOUN,1:""),?42,"VA CLASS: ",$PIECE(^PS(50.605,$PIECE(^PSDRUG(WRT,"ND"),"^",6),0),"^",1)_" "_$PIECE(^PS(50.605,$PIECE(^PSDRUG(WRT,"ND"),"^",6),0),"^",2)
- +1 IF $PIECE(^PSDRUG(WRT,"ND"),"^",3)
- Begin DoDot:1
- +2 WRITE !,"CS FEDERAL SCHEDULE: "_$SELECT($PIECE($GET(^PSNDF(50.68,$PIECE(^PSDRUG(WRT,"ND"),"^",3),7)),"^")]"":$PIECE(^PSNDF(50.68,$PIECE(^PSDRUG(WRT,"ND"),"^",3),7),"^"),1:"")
- End DoDot:1
- +3 WRITE !,"DISPENSE UNITS/ORDER UNITS: ",$SELECT('$DATA(PSNODE):"",1:$PIECE(PSNODE,"^",5)),!,"DISPENSE UNIT: ",$SELECT('$DATA(PSNODE):"",1:$PIECE(PSNODE,"^",8))
- SET D0=WRT
- KILL WRT,PSNODE,PSNOUN,PSNOU
- QUIT