Last change
on this file since 1074 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
668 bytes
|
Rev | Line | |
---|
[628] | 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.