source: WorldVistAEHR/trunk/r/ACCOUNTS_RECEIVABLE-PRCA-PRY-RC/RCFMOBR3.m@ 1006

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

initial load of WorldVistAEHR

File size: 1.5 KB
Line 
1RCFMOBR3 ;WASH-ISC@ALTOONA,PA/CLH/RWT-BILL RECONCILIATIONS LIST ;7/9/97 3:31 PM
2V ;;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
Note: See TracBrowser for help on using the repository browser.