Last change
on this file since 724 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
668 bytes
|
Line | |
---|
1 | IBCOC ;ALB/AAS - INACTIVE INS. COMPANIES WITH PATIENTS ; 04-NOV-93
|
---|
2 | ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
|
---|
3 | ;
|
---|
4 | % ;
|
---|
5 | ; -- fileman print in inactive ins. companies
|
---|
6 | W !!,"Print List of Inactive Insurance Companies still listed as Insuring Patients"
|
---|
7 | W !!,"You will need a 132 column printer for this report!",!!
|
---|
8 | S DIC="^DIC(36,",FLDS="[IB INACTIVE INS CO]",BY="[IB INACTIVE INS CO]",FR="?,?",TO="?,?"
|
---|
9 | S DIS(0)="I $D(^DPT(""AB"",D0))"
|
---|
10 | D EN1^DIP
|
---|
11 | W !
|
---|
12 | I $D(ZTQUEUED) S ZTREQ="@" Q
|
---|
13 | D ^%ZISC
|
---|
14 | K D,I,J,X,Y,IBCNT,DIC,FLDS,BY,TO,FR,DIS
|
---|
15 | Q
|
---|
16 | ;
|
---|
17 | CNT(D0) ; -- count number of entries
|
---|
18 | N X,Y S X=0
|
---|
19 | G:'$G(D0) CNTQ
|
---|
20 | S Y=0 F S Y=$O(^DPT("AB",D0,Y)) Q:'Y S X=X+1
|
---|
21 | CNTQ Q X
|
---|
Note:
See
TracBrowser
for help on using the repository browser.