|
Last change
on this file since 628 was 628, checked in by George Lilly, 14 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
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.
