- 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
