PSBOPI.m

PSBOPI ;BIRMINGHAM/EFC-BCMA UNIT DOSE VIRTUAL DUE LIST FUNCTIONS ;Mar 2004

 ;;3.0;BAR CODE MED ADMIN;;Mar 2004

 ;

 ; Reference/IA

 ; EN^DGRPD/2041

 ;

EN ;

 N DFN,PSBGBL

 S PSBGBL="^TMP(""PSBO"",$J,""B"")"

 F  S PSBGBL=$Q(@PSBGBL) Q:PSBGBL=""  Q:$QS(PSBGBL,2)'=$J  Q:$QS(PSBGBL,1)'["PSBO"  D

 .S DFN=$QS(PSBGBL,5)

 .D EN^DGRPD

 K ^TMP("PSBO",$J)

 Q

PSBOPI    ;BIRMINGHAM/EFC-BCMA UNIT DOSE VIRTUAL DUE LIST FUNCTIONS ;Mar 2004

 +1       ;;3.0;BAR CODE MED ADMIN;;Mar 2004

 +2       ;

 +3       ; Reference/IA

 +4       ; EN^DGRPD/2041

 +5       ;

EN        ;

 +1        NEW DFN,PSBGBL

 +2        SET PSBGBL="^TMP(""PSBO"",$J,""B"")"

 +3        FOR 

               SET PSBGBL=$QUERY(@PSBGBL)

               IF PSBGBL=""

                   QUIT 

               IF $QSUBSCRIPT(PSBGBL,2)'=$JOB

                   QUIT 

               IF $QSUBSCRIPT(PSBGBL,1)'["PSBO"

                   QUIT 

               Begin DoDot:1

 +4                SET DFN=$QSUBSCRIPT(PSBGBL,5)

 +5                DO EN^DGRPD

               End DoDot:1

 +6        KILL ^TMP("PSBO",$JOB)

 +7        QUIT