source: WorldVistAEHR/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBCOPP3.m@ 1464

Last change on this file since 1464 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 2.5 KB
Line 
1IBCOPP3 ;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 ;
26COMP ; 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 ;
42PLAN ; 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 ;
50SUBS ; 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 ;
56PAUSE ; 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
Note: See TracBrowser for help on using the repository browser.