| 1 | RCFMOBR3 ;WASH-ISC@ALTOONA,PA/CLH/RWT-BILL RECONCILIATIONS LIST ;7/9/97 3:31 PM
|
|---|
| 2 | V ;;4.5;Accounts Receivable;**73**;Mar 20, 1995
|
|---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified
|
|---|
| 4 | ; - Fund mismatch
|
|---|
| 5 | N N4,N5,N6,SP
|
|---|
| 6 | D BLANKLN^RCFMOBR2(3)
|
|---|
| 7 | S TB="",$P(TB," ",21)=""
|
|---|
| 8 | S ^TMP("OBR",$J,"REPORT",N)=" FUND MISMATCH",N=N+1
|
|---|
| 9 | D BLANKLN^RCFMOBR2(1)
|
|---|
| 10 | S SP="",$P(SP," ",30)=""
|
|---|
| 11 | S ^TMP("OBR",$J,"REPORT",N)=SP_" AR"_SP_"FMS",N=N+1
|
|---|
| 12 | I '$D(^TMP("OBR",$J,SN,"FUND MISMATCH")) S N4="1^0^0"
|
|---|
| 13 | I $D(^TMP("OBR",$J,SN,"FUND MISMATCH")) D
|
|---|
| 14 | .S N1=^TMP("OBR",$J,SN,"FUND MISMATCH")
|
|---|
| 15 | .F I=1:1:$P(N1,U,2) D
|
|---|
| 16 | ..S ^TMP("OBR",$J,"REPORT",N)=^TMP("OBR",$J,SN,"FUND MISMATCH",I)
|
|---|
| 17 | ..S N=N+1
|
|---|
| 18 | ; - RSC MISMATCH
|
|---|
| 19 | D BLANKLN^RCFMOBR2(2)
|
|---|
| 20 | S TB="",$P(TB," ",21)=""
|
|---|
| 21 | S ^TMP("OBR",$J,"REPORT",N)=" REVENUE SOURCE CODE MISMATCH",N=N+1
|
|---|
| 22 | D BLANKLN^RCFMOBR2(1)
|
|---|
| 23 | I '$D(^TMP("OBR",$J,SN,"RSC MISMATCH")) S N5="1^0"
|
|---|
| 24 | I $D(^TMP("OBR",$J,SN,"RSC MISMATCH")) D
|
|---|
| 25 | .S N2=^TMP("OBR",$J,SN,"RSC MISMATCH")
|
|---|
| 26 | .F I=1:1:$P(N2,U,2) D
|
|---|
| 27 | ..S ^TMP("OBR",$J,"REPORT",N)=^TMP("OBR",$J,SN,"RSC MISMATCH",I)
|
|---|
| 28 | ..S N=N+1
|
|---|
| 29 | D BLANKLN^RCFMOBR2(2)
|
|---|
| 30 | S TB="",$P(TB," ",21)=""
|
|---|
| 31 | S ^TMP("OBR",$J,"REPORT",N)=" SUB REVENUE SOURCE CODE MISMATCH",N=N+1
|
|---|
| 32 | D BLANKLN^RCFMOBR2(1)
|
|---|
| 33 | I '$D(^TMP("OBR",$J,SN,"SUB RSC MISMATCH")) S N6="1^0"
|
|---|
| 34 | I $D(^TMP("OBR",$J,SN,"SUB RSC MISMATCH")) D
|
|---|
| 35 | .S N2=^TMP("OBR",$J,SN,"SUB RSC MISMATCH")
|
|---|
| 36 | .F I=1:1:$P(N2,U,2) D
|
|---|
| 37 | ..S ^TMP("OBR",$J,"REPORT",N)=^TMP("OBR",$J,SN,"SUB RSC MISMATCH",I)
|
|---|
| 38 | ..S N=N+1
|
|---|
| 39 | Q
|
|---|
