PSNRPT2.m

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 ---PSNRPT2   994     printed  Apr 09, 2024@21:26:36                                                                                                                                                                                                      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