ABMDRPOL.m

ABMDRPOL ; IHS/ASDST/DMJ - REPORT OF PI POLICY HOLDERS ; 

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

 ;Original;TMD;

 ;

 W ! K DIR S DIR(0)="Y",DIR("A")="Limit Report to a Specfic INSURER",DIR("B")="Y" D ^DIR K DIR G XIT:$D(DTOUT)!$D(DUOUT) I Y'=1 S ABM(1)="A",ABM(2)="ZZ" G ZIS

 ;

SEL K DIC W ! S DIC="^AUTNINS(",DIC(0)="QEAM" D ^DIC K DIC

 G XIT:X=""!$D(DTOUT)!$D(DUOUT),SEL:+Y<1

 S (ABM(1),ABM(2))=$P(^AUTNINS(+Y,0),U)

 ;

ZIS W !!!,"NOTE: This Report Requires 132 Character Width."

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

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

 ;

PRQUE ;ENTER FROM TASK MANABMER

 S L=0,DIC="^AUPNPRVT(",FLDS="[ABMD TM PI ELIGIBLE]",BY="[ABMD TM PI ELIGIBLE]",FR=ABM(1)_",?,?",TO=ABM(2)_",?,?"

 S IOP=ABM("ION")_";"_IOST_";132"_";"_IOSL,PG=1

 D EN1^DIP

XIT D ^%ZISC

 D:$D(ZTQUEUED) KILL^%ZTLOAD

 K ABM,TO,BY,FROM,ZTSK,POP,FLDS,DIC,PG,IOP,%ZIS,DIR

 Q

QUE S ZTRTN="PRQUE^ABMDRPOL",ZTDESC="REPORT OF PI POLICY HOLDERS"

 D QUE^ABMDRUTL

 G XIT

ABMDRPOL  ; IHS/ASDST/DMJ - REPORT OF PI POLICY HOLDERS ; 

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

 +2       ;Original;TMD;

 +3       ;

 +4        WRITE !

           KILL DIR

           SET DIR(0)="Y"

           SET DIR("A")="Limit Report to a Specfic INSURER"

           SET DIR("B")="Y"

           DO ^DIR

           KILL DIR

           IF $DATA(DTOUT)!$DATA(DUOUT)

               GOTO XIT

           IF Y'=1

               SET ABM(1)="A"

               SET ABM(2)="ZZ"

               GOTO ZIS

 +5       ;

SEL        KILL DIC

           WRITE !

           SET DIC="^AUTNINS("

           SET DIC(0)="QEAM"

           DO ^DIC

           KILL DIC

 +1        IF X=""!$DATA(DTOUT)!$DATA(DUOUT)

               GOTO XIT

           IF +Y<1

               GOTO SEL

 +2        SET (ABM(1),ABM(2))=$PIECE(^AUTNINS(+Y,0),U)

 +3       ;

ZIS        WRITE !!!,"NOTE: This Report Requires 132 Character Width."

 +1        WRITE !

           SET %ZIS="NQ"

           SET %ZIS("B")=""

           DO ^%ZIS

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

               GOTO XIT

 +2        SET ABM("ION")=ION

           IF $DATA(IO("Q"))

               GOTO QUE

 +3       ;

PRQUE     ;ENTER FROM TASK MANABMER

 +1        SET L=0

           SET DIC="^AUPNPRVT("

           SET FLDS="[ABMD TM PI ELIGIBLE]"

           SET BY="[ABMD TM PI ELIGIBLE]"

           SET FR=ABM(1)_",?,?"

           SET TO=ABM(2)_",?,?"

 +2        SET IOP=ABM("ION")_";"_IOST_";132"_";"_IOSL

           SET PG=1

 +3        DO EN1^DIP

XIT        DO ^%ZISC

 +1        IF $DATA(ZTQUEUED)

               DO KILL^%ZTLOAD

 +2        KILL ABM,TO,BY,FROM,ZTSK,POP,FLDS,DIC,PG,IOP,%ZIS,DIR

 +3        QUIT 

QUE        SET ZTRTN="PRQUE^ABMDRPOL"

           SET ZTDESC="REPORT OF PI POLICY HOLDERS"

 +1        DO QUE^ABMDRUTL

 +2        GOTO XIT