| [613] | 1 | IBCOPP3 ;ALB/NLR - LIST INS. PLANS BY CO. (PRINT) ; 04-OCT-94
|
|---|
| 2 | ;;Version 2.0 ; INTEGRATED BILLING ;**28**; 21-MAR-94
|
|---|
| 3 | ;
|
|---|
| 4 | ; Print the report.
|
|---|
| 5 | ; Required Input: Global print array ^TMP($J,"PR"
|
|---|
| 6 | ; local variable IBAPA
|
|---|
| 7 | ;
|
|---|
| 8 | S (IBI,IBQUIT,IBPAG)=0
|
|---|
| 9 | D NOW^%DTC S IBHDT=$$DAT2^IBOUTL($E(%,1,12))
|
|---|
| 10 | F S IBI=$O(^TMP($J,"PR",IBI)) Q:'IBI S IBC=$G(^(IBI)) D COMP D Q:IBQUIT
|
|---|
| 11 | .S IBP=0 F S IBP=$O(^TMP($J,"PR",IBI,IBP)) Q:'IBP S IBPD=$G(^(IBP)) D Q:IBQUIT
|
|---|
| 12 | ..I $Y>(IOSL-$S(IBAPA:9,1:5)) D PAUSE Q:IBQUIT D COMP
|
|---|
| 13 | ..D PLAN
|
|---|
| 14 | ..I IBAPA S IBS="" F S IBS=$O(^TMP($J,"PR",IBI,IBP,IBS)) Q:IBS="" S IBSD=$G(^(IBS)) D SUBS Q:IBQUIT
|
|---|
| 15 | .Q:IBQUIT
|
|---|
| 16 | .;
|
|---|
| 17 | .; - print company totals
|
|---|
| 18 | .I $Y>(IOSL-4) D PAUSE Q:IBQUIT D COMP,PLAN
|
|---|
| 19 | .W !!?90,"Number of Plans Selected = ",$P(IBC,"^",9),!?76,"Total Subscribers Under Selected Plans = ",$P(IBC,"^",10)
|
|---|
| 20 | .D PAUSE
|
|---|
| 21 | ;
|
|---|
| 22 | K IBJJ,IBI,IBQUIT,IBPAG,IBHDT,IBC,IBP,IBPD,IBS,IBSD
|
|---|
| 23 | Q
|
|---|
| 24 | ;
|
|---|
| 25 | ;
|
|---|
| 26 | COMP ; Print Company header
|
|---|
| 27 | I $E(IOST,1,2)="C-"!(IBPAG) W @IOF
|
|---|
| 28 | S IBPAG=IBPAG+1
|
|---|
| 29 | W !,"LIST OF PLANS BY INSURANCE COMPANY"
|
|---|
| 30 | W:IBAPA " WITH SUBSCRIBER INFORMATION"
|
|---|
| 31 | W ?IOM-34,IBHDT,?IOM-10,"Page: ",IBPAG
|
|---|
| 32 | W !,$TR($J(" ",IOM)," ","-")
|
|---|
| 33 | ;
|
|---|
| 34 | ; - sub-header
|
|---|
| 35 | W !?1,$P(IBC,"^"),?45,$P(IBC,"^",4),?105,$P(IBC,"^",6)
|
|---|
| 36 | W !?11,$P(IBC,"^",2),?45,$P(IBC,"^",5),?105,"PLAN TOTAL= ",$P(IBC,"^",7)
|
|---|
| 37 | W !?11,$P(IBC,"^",3),?99,"SUBSCRIBER TOTAL= ",$P(IBC,"^",8)
|
|---|
| 38 | W:IBAPA !!?95,"WHOSE",?127,"BEN.",!?3,"SUBSCRIBER NAME/ID",?40,"DOB",?54,"EMPLOYER",?76,"SUBSCR ID",?95,"INS",?105,"EFF DATE",?117,"EXP DATE",?127,"USED?"
|
|---|
| 39 | W:'IBAPA !!?5,"GROUP NUMBER",?32,"GROUP NAME",?62,"GROUP OR IND",?77,"ACTIVE/INACTIVE",?96,"SUBSCRIBERS",?110,"ANN. BEN? BEN. USED?"
|
|---|
| 40 | Q
|
|---|
| 41 | ;
|
|---|
| 42 | PLAN ; Print plan information.
|
|---|
| 43 | I IBAPA D
|
|---|
| 44 | .W !!?3,"GROUP #: ",$P(IBPD,U),?40,"ANNUAL BENEFITS ON FILE: ",$P(IBPD,U,5)
|
|---|
| 45 | .W !?5,"GROUP NAME: ",$P(IBPD,U,2),?42,"BENEFITS USED ON FILE: ",$P(IBPD,U,6)
|
|---|
| 46 | .W !?7,"GROUP OR IND: ",$P(IBPD,U,3),!?9,"ACTIVE?: ",$P(IBPD,U,4),!?11,"NO. SUBSCRIBERS: ",$P(IBPD,U,7)
|
|---|
| 47 | I 'IBAPA W !!?5,$P(IBPD,U),?32,$P(IBPD,U,2),?62,$P(IBPD,U,3),?77,$P(IBPD,U,4),?100,$P(IBPD,U,7),?113,$P(IBPD,U,5),?124,$P(IBPD,U,6)
|
|---|
| 48 | Q
|
|---|
| 49 | ;
|
|---|
| 50 | SUBS ; Print subscriber information.
|
|---|
| 51 | I $Y>(IOSL-4) D PAUSE Q:IBQUIT D COMP,PLAN
|
|---|
| 52 | W !?3,$P(IBSD,"^"),?40,$P(IBSD,"^",2),?54,$P(IBSD,"^",3),?76,$P(IBSD,"^",4),?95,$P(IBSD,"^",5)
|
|---|
| 53 | W ?105,$P(IBSD,"^",6),?117,$P(IBSD,"^",7),?128,$S($P(IBSD,"^",8):"YES",1:"NO")
|
|---|
| 54 | Q
|
|---|
| 55 | ;
|
|---|
| 56 | PAUSE ; Pause for screen output.
|
|---|
| 57 | Q:$E(IOST,1,2)'["C-"
|
|---|
| 58 | F IBJJ=$Y:1:(IOSL-7) W !
|
|---|
| 59 | S DIR(0)="E" D ^DIR K DIR I $D(DIRUT)!($D(DUOUT)) S IBQUIT=1 K DIRUT,DTOUT,DUOUT
|
|---|
| 60 | Q
|
|---|
