- 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 Jan 18, 2025@02:48:10 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