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

FBAARD3.m

Go to the documentation of this file.
  1. FBAARD3 ;AISC/GRR-VOUCHER AUDIT DELETE REJECTS ENTERED IN ERROR ;3/27/2012
  1. ;;3.5;FEE BASIS;**132**;JAN 30, 1995;Build 17
  1. ;;Per VHA Directive 2004-038, this routine should not be modified.
  1. Q
  1. ;
  1. POST ;entry point to put dollars back into an authorization on the 1358
  1. ;if rejected in error
  1. ;first will locate interface ID from PRC(424,"E",IEN of 161.7)
  1. ;if interface not exist use old call to POST^FBAASCB
  1. ;I '$$VER^FBAAUTL1() D POST^FBAASCB Q
  1. I '$O(^PRC(424,"E",+$G(FBN),0)) D POST^FBAASCB Q
  1. D ADD^FBAAUTL1 Q
  1. ;
  1. INPOST ;call to put money back into 1358 for inpatient invoices
  1. ;call will handle both v4 and v3.6 of ifcap
  1. ;I $G(FBCNH),'$$VER^FBAAUTL1() D POST^FBAASCB Q
  1. I FBII78["FB583(" D POST Q
  1. ;find 7078 entry and build variables needed for call
  1. I '$D(^FB7078(+FBII78,0)) W !,"No 7078 on file for invoice ",J,". Could not determine 1358.",! S FBERR=1 Q
  1. S FBI78=$P(^FB7078(+FBII78,0),"^"),DFN=+$P(^(0),"^",3),FBI78=$P(FZ,"^",8)_"-"_$P(FBI78,".")_"-"_$P(FBI78,".",2) D
  1. .I $D(FBCNH),'$D(^PRC(424,"E",DFN_";"_+FBII78_";"_FBAAON_";"_FBMM)) D POST Q
  1. .D INPOST^FBAASCB0:$$INTER^FBAASCB0()
  1. Q