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

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

initial load of FOIAVistA 6/30/08 version

File size: 715 bytes
Line 
1IBCOC1 ;ALB/NLR - NEW, NOT VERIFIED INS. ENTRIES ; 24-NOV-93
2 ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
3 ;
4% ;
5 ; -- fileman print of new, not verified insurance entries
6 ;
7 W !!,"Print List of New, Not Verified Insurance Entries"
8 W !!,"You will need a 132 column printer for this report!",!!
9 ;
10 S DIC="^DPT(",FLDS="[IBNOTVER]",BY="[IBNOTVER1]"
11 D ASK G:$G(IBQ)=1 END
12 S DHD="REPORT OF NEW, NOT VERIFIED INSURANCE ENTRIES FROM: "_FR(1)_" TO: "_TO(1)
13 D EN1^DIP
14 ;
15 I $D(ZTQUEUED) S ZTREQ="@" Q
16 D ^%ZISC
17END K DIC,FLDS,BY,FR,TO,IBQ,DHD
18 Q
19ASK ;
20 N IBBDT,IBEDT
21 D DATE^IBOUTL
22 I (IBBDT<1)!(IBEDT<1) S IBQ=1
23 S FR=",,"_IBBDT_",?",TO=",,"_IBEDT_",?"
24 S FR(1)=$$DAT1^IBOUTL(IBBDT),TO(1)=$$DAT1^IBOUTL(IBEDT)
25 Q
Note: See TracBrowser for help on using the repository browser.