Last change
on this file since 1726 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
715 bytes
|
Rev | Line | |
---|
[613] | 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.