IBTRPR2.m

IBTRPR2	;ALB/AAS - CLAIMS TRACKING - PENDING WORK ACTIONS ; 9-AUG-93

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

	;;Per VHA Directive 10-93-142, this routine should not be modified.

	;

%	G EN^IBTRPR

	;

PW(IBTRN)	; -- Print worksheet

	W !!,"worksheet not available",!

	D PAUSE^VALM1

	Q

	;

DIAG	; -- diagnosis editing

	N VALMY,I,J,IBXXT

	D EN^VALM2($G(XQORNOD(0)))

	I $D(VALMY) S IBXXT=0 F  S IBXXT=$O(VALMY(IBXXT)) Q:'IBXXT  D

	.S IBT=$G(^TMP("IBTRPRDX",$J,+$O(^TMP("IBTRPR",$J,"IDX",IBXXT,0))))

	.S IBTRN=$P(IBT,"^",4),DFN=$P(^IBT(356,+IBTRN,0),"^",2)

	.I IBTRN D EN^IBTRE3(IBTRN)

	.Q

	Q

	;

PU	; -- procedure editing

	N VALMY,I,J,IBXXT

	D EN^VALM2($G(XQORNOD(0)))

	I $D(VALMY) S IBXXT=0 F  S IBXXT=$O(VALMY(IBXXT)) Q:'IBXXT  D

	.S IBT=$G(^TMP("IBTRPRDX",$J,+$O(^TMP("IBTRPR",$J,"IDX",IBXXT,0))))

	.S IBTRN=$P(IBT,"^",4),DFN=$P(^IBT(356,+IBTRN,0),"^",2)

	.I IBTRN D EN^IBTRE4(IBTRN)

	.Q

	Q

	;

PRV	; -- provider editing

	N VALMY,I,J,IBXXT

	D EN^VALM2($G(XQORNOD(0)))

	I $D(VALMY) S IBXXT=0 F  S IBXXT=$O(VALMY(IBXXT)) Q:'IBXXT  D

	.S IBT=$G(^TMP("IBTRPRDX",$J,+$O(^TMP("IBTRPR",$J,"IDX",IBXXT,0))))

	.S IBTRN=$P(IBT,"^",4),DFN=$P(^IBT(356,+IBTRN,0),"^",2)

	.I IBTRN D EN^IBTRE5(IBTRN)

	.Q

	Q

IBTRPR2   ;ALB/AAS - CLAIMS TRACKING - PENDING WORK ACTIONS ; 9-AUG-93

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

 +2       ;;Per VHA Directive 10-93-142, this routine should not be modified.

 +3       ;

%          GOTO EN^IBTRPR

 +1       ;

PW(IBTRN) ; -- Print worksheet

 +1        WRITE !!,"worksheet not available",!

 +2        DO PAUSE^VALM1

 +3        QUIT 

 +4       ;

DIAG      ; -- diagnosis editing

 +1        NEW VALMY,I,J,IBXXT

 +2        DO EN^VALM2($GET(XQORNOD(0)))

 +3        IF $DATA(VALMY)

               SET IBXXT=0

               FOR 

                   SET IBXXT=$ORDER(VALMY(IBXXT))

                   IF 'IBXXT

                       QUIT 

                   Begin DoDot:1

 +4                    SET IBT=$GET(^TMP("IBTRPRDX",$JOB,+$ORDER(^TMP("IBTRPR",$JOB,"IDX",IBXXT,0))))

 +5                    SET IBTRN=$PIECE(IBT,"^",4)

                       SET DFN=$PIECE(^IBT(356,+IBTRN,0),"^",2)

 +6                    IF IBTRN

                           DO EN^IBTRE3(IBTRN)

 +7                    QUIT 

                   End DoDot:1

 +8        QUIT 

 +9       ;

PU        ; -- procedure editing

 +1        NEW VALMY,I,J,IBXXT

 +2        DO EN^VALM2($GET(XQORNOD(0)))

 +3        IF $DATA(VALMY)

               SET IBXXT=0

               FOR 

                   SET IBXXT=$ORDER(VALMY(IBXXT))

                   IF 'IBXXT

                       QUIT 

                   Begin DoDot:1

 +4                    SET IBT=$GET(^TMP("IBTRPRDX",$JOB,+$ORDER(^TMP("IBTRPR",$JOB,"IDX",IBXXT,0))))

 +5                    SET IBTRN=$PIECE(IBT,"^",4)

                       SET DFN=$PIECE(^IBT(356,+IBTRN,0),"^",2)

 +6                    IF IBTRN

                           DO EN^IBTRE4(IBTRN)

 +7                    QUIT 

                   End DoDot:1

 +8        QUIT 

 +9       ;

PRV       ; -- provider editing

 +1        NEW VALMY,I,J,IBXXT

 +2        DO EN^VALM2($GET(XQORNOD(0)))

 +3        IF $DATA(VALMY)

               SET IBXXT=0

               FOR 

                   SET IBXXT=$ORDER(VALMY(IBXXT))

                   IF 'IBXXT

                       QUIT 

                   Begin DoDot:1

 +4                    SET IBT=$GET(^TMP("IBTRPRDX",$JOB,+$ORDER(^TMP("IBTRPR",$JOB,"IDX",IBXXT,0))))

 +5                    SET IBTRN=$PIECE(IBT,"^",4)

                       SET DFN=$PIECE(^IBT(356,+IBTRN,0),"^",2)

 +6                    IF IBTRN

                           DO EN^IBTRE5(IBTRN)

 +7                    QUIT 

                   End DoDot:1

 +8        QUIT