Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: RCFMOBR3

RCFMOBR3.m

Go to the documentation of this file.
  1. RCFMOBR3 ;WASH-ISC@ALTOONA,PA/CLH/RWT-BILL RECONCILIATIONS LIST ;7/9/97 3:31 PM
  1. V ;;4.5;Accounts Receivable;**73**;Mar 20, 1995
  1. ;;Per VHA Directive 10-93-142, this routine should not be modified
  1. ; - Fund mismatch
  1. N N4,N5,N6,SP
  1. D BLANKLN^RCFMOBR2(3)
  1. S TB="",$P(TB," ",21)=""
  1. S ^TMP("OBR",$J,"REPORT",N)=" FUND MISMATCH",N=N+1
  1. D BLANKLN^RCFMOBR2(1)
  1. S SP="",$P(SP," ",30)=""
  1. S ^TMP("OBR",$J,"REPORT",N)=SP_" AR"_SP_"FMS",N=N+1
  1. I '$D(^TMP("OBR",$J,SN,"FUND MISMATCH")) S N4="1^0^0"
  1. I $D(^TMP("OBR",$J,SN,"FUND MISMATCH")) D
  1. .S N1=^TMP("OBR",$J,SN,"FUND MISMATCH")
  1. .F I=1:1:$P(N1,U,2) D
  1. ..S ^TMP("OBR",$J,"REPORT",N)=^TMP("OBR",$J,SN,"FUND MISMATCH",I)
  1. ..S N=N+1
  1. ; - RSC MISMATCH
  1. D BLANKLN^RCFMOBR2(2)
  1. S TB="",$P(TB," ",21)=""
  1. S ^TMP("OBR",$J,"REPORT",N)=" REVENUE SOURCE CODE MISMATCH",N=N+1
  1. D BLANKLN^RCFMOBR2(1)
  1. I '$D(^TMP("OBR",$J,SN,"RSC MISMATCH")) S N5="1^0"
  1. I $D(^TMP("OBR",$J,SN,"RSC MISMATCH")) D
  1. .S N2=^TMP("OBR",$J,SN,"RSC MISMATCH")
  1. .F I=1:1:$P(N2,U,2) D
  1. ..S ^TMP("OBR",$J,"REPORT",N)=^TMP("OBR",$J,SN,"RSC MISMATCH",I)
  1. ..S N=N+1
  1. D BLANKLN^RCFMOBR2(2)
  1. S TB="",$P(TB," ",21)=""
  1. S ^TMP("OBR",$J,"REPORT",N)=" SUB REVENUE SOURCE CODE MISMATCH",N=N+1
  1. D BLANKLN^RCFMOBR2(1)
  1. I '$D(^TMP("OBR",$J,SN,"SUB RSC MISMATCH")) S N6="1^0"
  1. I $D(^TMP("OBR",$J,SN,"SUB RSC MISMATCH")) D
  1. .S N2=^TMP("OBR",$J,SN,"SUB RSC MISMATCH")
  1. .F I=1:1:$P(N2,U,2) D
  1. ..S ^TMP("OBR",$J,"REPORT",N)=^TMP("OBR",$J,SN,"SUB RSC MISMATCH",I)
  1. ..S N=N+1
  1. Q