source: FOIAVistA/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBTRPR2.m@ 1458

Last change on this file since 1458 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.2 KB
Line 
1IBTRPR2 ;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 ;
7PW(IBTRN) ; -- Print worksheet
8 W !!,"worksheet not available",!
9 D PAUSE^VALM1
10 Q
11 ;
12DIAG ; -- 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 ;
22PU ; -- 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 ;
32PRV ; -- 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
Note: See TracBrowser for help on using the repository browser.