ABSPOSRA.m

ABSPOSRA ; IHS/OIT/SCR - POS TRANSACTION POSTING SUMMARY REPORT ;

 ;;1.0;PHARMACY POINT OF SALE;**38**;JUN 21, 2001;Build 38

 ;;POS ADAPTATION OF BARBLSUM - DISPLAY A BILL SUMMARY ;

 ;;

SEL ;EP

 S DIC=$$DIC^XBDIQ1(90050.01)

 S DIC(0)="AEQM"

 D ^DIC

 Q:Y'>0

 S BARBLDA=+Y

 ; -------------------------------

 ;

XBLM ;

 K DA

 S XBNS="BAR"

 S XBRP="DSP^BARBLSUM"

 S XBRX="EXIT^BARBLSUM"

 D ^XBDBQUE

 G SEL

 ; *********************************************************************

 ;

DSP ;EP

 D EN^BARPST5(BARBLDA)

 I $E(IOST)="C",IOT["TRM",'$D(ZTQUEUED),$Y+20>IOSL W $$EN^BARVDF("IOF")

 W !,?15,">> SUMMARY <<",!

 K BARBL

 D SUM^BARROLL(BARBLDA)

 I $E(IOST)="C",IOT["TRM",'$D(ZTQUEUED) W $$EN^BARVDF("IOF")

 Q

 ; *********************************************************************

 ;

EXIT ;EP

 D ^%ZISC

 Q

ABSPOSRA  ; IHS/OIT/SCR - POS TRANSACTION POSTING SUMMARY REPORT ;

 +1       ;;1.0;PHARMACY POINT OF SALE;**38**;JUN 21, 2001;Build 38

 +2       ;;POS ADAPTATION OF BARBLSUM - DISPLAY A BILL SUMMARY ;

 +3       ;;

SEL       ;EP

 +1        SET DIC=$$DIC^XBDIQ1(90050.01)

 +2        SET DIC(0)="AEQM"

 +3        DO ^DIC

 +4        IF Y'>0

               QUIT 

 +5        SET BARBLDA=+Y

 +6       ; -------------------------------

 +7       ;

XBLM      ;

 +1        KILL DA

 +2        SET XBNS="BAR"

 +3        SET XBRP="DSP^BARBLSUM"

 +4        SET XBRX="EXIT^BARBLSUM"

 +5        DO ^XBDBQUE

 +6        GOTO SEL

 +7       ; *********************************************************************

 +8       ;

DSP       ;EP

 +1        DO EN^BARPST5(BARBLDA)

 +2        IF $EXTRACT(IOST)="C"

               IF IOT["TRM"

                   IF '$DATA(ZTQUEUED)

                       IF $Y+20>IOSL

                           WRITE $$EN^BARVDF("IOF")

 +3        WRITE !,?15,">> SUMMARY <<",!

 +4        KILL BARBL

 +5        DO SUM^BARROLL(BARBLDA)

 +6        IF $EXTRACT(IOST)="C"

               IF IOT["TRM"

                   IF '$DATA(ZTQUEUED)

                       WRITE $$EN^BARVDF("IOF")

 +7        QUIT 

 +8       ; *********************************************************************

 +9       ;

EXIT      ;EP

 +1        DO ^%ZISC

 +2        QUIT