RCFMOBR3 ;WASH-ISC@ALTOONA,PA/CLH/RWT-BILL RECONCILIATIONS LIST ;7/9/97 3:31 PM
V ;;4.5;Accounts Receivable;**73**;Mar 20, 1995
;;Per VHA Directive 10-93-142, this routine should not be modified
; - Fund mismatch
N N4,N5,N6,SP
D BLANKLN^RCFMOBR2(3)
S TB="",$P(TB," ",21)=""
S ^TMP("OBR",$J,"REPORT",N)=" FUND MISMATCH",N=N+1
D BLANKLN^RCFMOBR2(1)
S SP="",$P(SP," ",30)=""
S ^TMP("OBR",$J,"REPORT",N)=SP_" AR"_SP_"FMS",N=N+1
I '$D(^TMP("OBR",$J,SN,"FUND MISMATCH")) S N4="1^0^0"
I $D(^TMP("OBR",$J,SN,"FUND MISMATCH")) D
.S N1=^TMP("OBR",$J,SN,"FUND MISMATCH")
.F I=1:1:$P(N1,U,2) D
..S ^TMP("OBR",$J,"REPORT",N)=^TMP("OBR",$J,SN,"FUND MISMATCH",I)
..S N=N+1
; - RSC MISMATCH
D BLANKLN^RCFMOBR2(2)
S TB="",$P(TB," ",21)=""
S ^TMP("OBR",$J,"REPORT",N)=" REVENUE SOURCE CODE MISMATCH",N=N+1
D BLANKLN^RCFMOBR2(1)
I '$D(^TMP("OBR",$J,SN,"RSC MISMATCH")) S N5="1^0"
I $D(^TMP("OBR",$J,SN,"RSC MISMATCH")) D
.S N2=^TMP("OBR",$J,SN,"RSC MISMATCH")
.F I=1:1:$P(N2,U,2) D
..S ^TMP("OBR",$J,"REPORT",N)=^TMP("OBR",$J,SN,"RSC MISMATCH",I)
..S N=N+1
D BLANKLN^RCFMOBR2(2)
S TB="",$P(TB," ",21)=""
S ^TMP("OBR",$J,"REPORT",N)=" SUB REVENUE SOURCE CODE MISMATCH",N=N+1
D BLANKLN^RCFMOBR2(1)
I '$D(^TMP("OBR",$J,SN,"SUB RSC MISMATCH")) S N6="1^0"
I $D(^TMP("OBR",$J,SN,"SUB RSC MISMATCH")) D
.S N2=^TMP("OBR",$J,SN,"SUB RSC MISMATCH")
.F I=1:1:$P(N2,U,2) D
..S ^TMP("OBR",$J,"REPORT",N)=^TMP("OBR",$J,SN,"SUB RSC MISMATCH",I)
..S N=N+1
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRCFMOBR3 1541 printed Dec 13, 2024@01:46:56 Page 2
RCFMOBR3 ;WASH-ISC@ALTOONA,PA/CLH/RWT-BILL RECONCILIATIONS LIST ;7/9/97 3:31 PM
V ;;4.5;Accounts Receivable;**73**;Mar 20, 1995
+1 ;;Per VHA Directive 10-93-142, this routine should not be modified
+2 ; - Fund mismatch
+3 NEW N4,N5,N6,SP
+4 DO BLANKLN^RCFMOBR2(3)
+5 SET TB=""
SET $PIECE(TB," ",21)=""
+6 SET ^TMP("OBR",$JOB,"REPORT",N)=" FUND MISMATCH"
SET N=N+1
+7 DO BLANKLN^RCFMOBR2(1)
+8 SET SP=""
SET $PIECE(SP," ",30)=""
+9 SET ^TMP("OBR",$JOB,"REPORT",N)=SP_" AR"_SP_"FMS"
SET N=N+1
+10 IF '$DATA(^TMP("OBR",$JOB,SN,"FUND MISMATCH"))
SET N4="1^0^0"
+11 IF $DATA(^TMP("OBR",$JOB,SN,"FUND MISMATCH"))
Begin DoDot:1
+12 SET N1=^TMP("OBR",$JOB,SN,"FUND MISMATCH")
+13 FOR I=1:1:$PIECE(N1,U,2)
Begin DoDot:2
+14 SET ^TMP("OBR",$JOB,"REPORT",N)=^TMP("OBR",$JOB,SN,"FUND MISMATCH",I)
+15 SET N=N+1
End DoDot:2
End DoDot:1
+16 ; - RSC MISMATCH
+17 DO BLANKLN^RCFMOBR2(2)
+18 SET TB=""
SET $PIECE(TB," ",21)=""
+19 SET ^TMP("OBR",$JOB,"REPORT",N)=" REVENUE SOURCE CODE MISMATCH"
SET N=N+1
+20 DO BLANKLN^RCFMOBR2(1)
+21 IF '$DATA(^TMP("OBR",$JOB,SN,"RSC MISMATCH"))
SET N5="1^0"
+22 IF $DATA(^TMP("OBR",$JOB,SN,"RSC MISMATCH"))
Begin DoDot:1
+23 SET N2=^TMP("OBR",$JOB,SN,"RSC MISMATCH")
+24 FOR I=1:1:$PIECE(N2,U,2)
Begin DoDot:2
+25 SET ^TMP("OBR",$JOB,"REPORT",N)=^TMP("OBR",$JOB,SN,"RSC MISMATCH",I)
+26 SET N=N+1
End DoDot:2
End DoDot:1
+27 DO BLANKLN^RCFMOBR2(2)
+28 SET TB=""
SET $PIECE(TB," ",21)=""
+29 SET ^TMP("OBR",$JOB,"REPORT",N)=" SUB REVENUE SOURCE CODE MISMATCH"
SET N=N+1
+30 DO BLANKLN^RCFMOBR2(1)
+31 IF '$DATA(^TMP("OBR",$JOB,SN,"SUB RSC MISMATCH"))
SET N6="1^0"
+32 IF $DATA(^TMP("OBR",$JOB,SN,"SUB RSC MISMATCH"))
Begin DoDot:1
+33 SET N2=^TMP("OBR",$JOB,SN,"SUB RSC MISMATCH")
+34 FOR I=1:1:$PIECE(N2,U,2)
Begin DoDot:2
+35 SET ^TMP("OBR",$JOB,"REPORT",N)=^TMP("OBR",$JOB,SN,"SUB RSC MISMATCH",I)
+36 SET N=N+1
End DoDot:2
End DoDot:1
+37 QUIT
