source: FOIAVistA/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBCOC.m@ 811

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

initial load of FOIAVistA 6/30/08 version

File size: 668 bytes
Line 
1IBCOC ;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 ;
17CNT(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
21CNTQ Q X
Note: See TracBrowser for help on using the repository browser.