Last change
on this file since 724 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
715 bytes
|
Line | |
---|
1 | IBCOC1 ;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
|
---|
17 | END K DIC,FLDS,BY,FR,TO,IBQ,DHD
|
---|
18 | Q
|
---|
19 | ASK ;
|
---|
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.