|
Last change
on this file since 699 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.
