ABMDTDCD.m

ABMDTDCD ; IHS/ASDST/DMJ - REPORT OF UB92 BILLING CODES ; 

 ;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009

 ;

W1 W !!! S %ZIS="NQ",%ZIS("B")="" D ^%ZIS G:'$D(IO)!$G(POP) QUIT

 S ABM("ION")=ION G:$D(IO("Q")) QUE

 I IO'=IO(0),$E(IOST)'="C",'$D(IO("S")),$P($G(^ABMDPARM(DUZ(2),1,0)),U,13)="Y" W !!,"As specified in the 3P Site Parameters File FORCED QUEUEING is in effect!",! G QUE

PRQUE ;EP - Entry Point for Taskman

S2 S L=0,DIC="^ABMDCODE(",FLDS="[ABMD TM CODES]",BY="[ABMD TM CODES]",FR="A,?",TO="ZZ,?"

 S IOP=ABM("ION")_";80",PG=1

 D EN1^DIP

QUIT D ^%ZISC K ABM

 Q

QUE K IO("Q") S ZTRTN="PRQUE^ABMDTDCD",ZTDESC="REPORT OF 3P BILLING CODES" F ABM="ABM(""ION"")" S ZTSAVE(ABM)=""

 D ^%ZTLOAD W:$D(ZTSK) !,"REQUEST QUEUED!",! G QUIT

ABMDTDCD  ; IHS/ASDST/DMJ - REPORT OF UB92 BILLING CODES ; 

 +1       ;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009

 +2       ;

W1         WRITE !!!

           SET %ZIS="NQ"

           SET %ZIS("B")=""

           DO ^%ZIS

           IF '$DATA(IO)!$GET(POP)

               GOTO QUIT

 +1        SET ABM("ION")=ION

           IF $DATA(IO("Q"))

               GOTO QUE

 +2        IF IO'=IO(0)

               IF $EXTRACT(IOST)'="C"

                   IF '$DATA(IO("S"))

                       IF $PIECE($GET(^ABMDPARM(DUZ(2),1,0)),U,13)="Y"

                           WRITE !!,"As specified in the 3P Site Parameters File FORCED QUEUEING is in effect!",!

                           GOTO QUE

PRQUE     ;EP - Entry Point for Taskman

S2         SET L=0

           SET DIC="^ABMDCODE("

           SET FLDS="[ABMD TM CODES]"

           SET BY="[ABMD TM CODES]"

           SET FR="A,?"

           SET TO="ZZ,?"

 +1        SET IOP=ABM("ION")_";80"

           SET PG=1

 +2        DO EN1^DIP

QUIT       DO ^%ZISC

           KILL ABM

 +1        QUIT 

QUE        KILL IO("Q")

           SET ZTRTN="PRQUE^ABMDTDCD"

           SET ZTDESC="REPORT OF 3P BILLING CODES"

           FOR ABM="ABM(""ION"")"

               SET ZTSAVE(ABM)=""

 +1        DO ^%ZTLOAD

           IF $DATA(ZTSK)

               WRITE !,"REQUEST QUEUED!",!

           GOTO QUIT