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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBTRPR2 1235 printed Nov 22, 2024@17:38:54 Page 2
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
