| [613] | 1 | IBTRPR2 ;ALB/AAS - CLAIMS TRACKING - PENDING WORK ACTIONS ; 9-AUG-93
|
|---|
| 2 | ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
|
|---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | ;
|
|---|
| 5 | % G EN^IBTRPR
|
|---|
| 6 | ;
|
|---|
| 7 | PW(IBTRN) ; -- Print worksheet
|
|---|
| 8 | W !!,"worksheet not available",!
|
|---|
| 9 | D PAUSE^VALM1
|
|---|
| 10 | Q
|
|---|
| 11 | ;
|
|---|
| 12 | DIAG ; -- diagnosis editing
|
|---|
| 13 | N VALMY,I,J,IBXXT
|
|---|
| 14 | D EN^VALM2($G(XQORNOD(0)))
|
|---|
| 15 | I $D(VALMY) S IBXXT=0 F S IBXXT=$O(VALMY(IBXXT)) Q:'IBXXT D
|
|---|
| 16 | .S IBT=$G(^TMP("IBTRPRDX",$J,+$O(^TMP("IBTRPR",$J,"IDX",IBXXT,0))))
|
|---|
| 17 | .S IBTRN=$P(IBT,"^",4),DFN=$P(^IBT(356,+IBTRN,0),"^",2)
|
|---|
| 18 | .I IBTRN D EN^IBTRE3(IBTRN)
|
|---|
| 19 | .Q
|
|---|
| 20 | Q
|
|---|
| 21 | ;
|
|---|
| 22 | PU ; -- procedure editing
|
|---|
| 23 | N VALMY,I,J,IBXXT
|
|---|
| 24 | D EN^VALM2($G(XQORNOD(0)))
|
|---|
| 25 | I $D(VALMY) S IBXXT=0 F S IBXXT=$O(VALMY(IBXXT)) Q:'IBXXT D
|
|---|
| 26 | .S IBT=$G(^TMP("IBTRPRDX",$J,+$O(^TMP("IBTRPR",$J,"IDX",IBXXT,0))))
|
|---|
| 27 | .S IBTRN=$P(IBT,"^",4),DFN=$P(^IBT(356,+IBTRN,0),"^",2)
|
|---|
| 28 | .I IBTRN D EN^IBTRE4(IBTRN)
|
|---|
| 29 | .Q
|
|---|
| 30 | Q
|
|---|
| 31 | ;
|
|---|
| 32 | PRV ; -- provider editing
|
|---|
| 33 | N VALMY,I,J,IBXXT
|
|---|
| 34 | D EN^VALM2($G(XQORNOD(0)))
|
|---|
| 35 | I $D(VALMY) S IBXXT=0 F S IBXXT=$O(VALMY(IBXXT)) Q:'IBXXT D
|
|---|
| 36 | .S IBT=$G(^TMP("IBTRPRDX",$J,+$O(^TMP("IBTRPR",$J,"IDX",IBXXT,0))))
|
|---|
| 37 | .S IBTRN=$P(IBT,"^",4),DFN=$P(^IBT(356,+IBTRN,0),"^",2)
|
|---|
| 38 | .I IBTRN D EN^IBTRE5(IBTRN)
|
|---|
| 39 | .Q
|
|---|
| 40 | Q
|
|---|
