IBCOC1.m

IBCOC1	;ALB/NLR - NEW, NOT VERIFIED INS. ENTRIES ; 24-NOV-93

	;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94

	;

%	;

	; -- fileman print of new, not verified insurance entries

	;

	W !!,"Print List of New, Not Verified Insurance Entries"

	W !!,"You will need a 132 column printer for this report!",!!

	;

	S DIC="^DPT(",FLDS="[IBNOTVER]",BY="[IBNOTVER1]"

	D ASK G:$G(IBQ)=1 END

	S DHD="REPORT OF NEW, NOT VERIFIED INSURANCE ENTRIES FROM: "_FR(1)_" TO: "_TO(1)

	D EN1^DIP

	;

	I $D(ZTQUEUED) S ZTREQ="@" Q

	D ^%ZISC

END	K DIC,FLDS,BY,FR,TO,IBQ,DHD

	Q

ASK	;

	N IBBDT,IBEDT

	D DATE^IBOUTL

	I (IBBDT<1)!(IBEDT<1) S IBQ=1

	S FR=",,"_IBBDT_",?",TO=",,"_IBEDT_",?"

	S FR(1)=$$DAT1^IBOUTL(IBBDT),TO(1)=$$DAT1^IBOUTL(IBEDT)

	Q

IBCOC1    ;ALB/NLR - NEW, NOT VERIFIED INS. ENTRIES ; 24-NOV-93

 +1       ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94

 +2       ;

%         ;

 +1       ; -- fileman print of new, not verified insurance entries

 +2       ;

 +3        WRITE !!,"Print List of New, Not Verified Insurance Entries"

 +4        WRITE !!,"You will need a 132 column printer for this report!",!!

 +5       ;

 +6        SET DIC="^DPT("

           SET FLDS="[IBNOTVER]"

           SET BY="[IBNOTVER1]"

 +7        DO ASK

           IF $GET(IBQ)=1

               GOTO END

 +8        SET DHD="REPORT OF NEW, NOT VERIFIED INSURANCE ENTRIES FROM: "_FR(1)_" TO: "_TO(1)

 +9        DO EN1^DIP

 +10      ;

 +11       IF $DATA(ZTQUEUED)

               SET ZTREQ="@"

               QUIT 

 +12       DO ^%ZISC

END        KILL DIC,FLDS,BY,FR,TO,IBQ,DHD

 +1        QUIT 

ASK       ;

 +1        NEW IBBDT,IBEDT

 +2        DO DATE^IBOUTL

 +3        IF (IBBDT<1)!(IBEDT<1)

               SET IBQ=1

 +4        SET FR=",,"_IBBDT_",?"

           SET TO=",,"_IBEDT_",?"

 +5        SET FR(1)=$$DAT1^IBOUTL(IBBDT)

           SET TO(1)=$$DAT1^IBOUTL(IBEDT)

 +6        QUIT