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

PRCASVC1.m

Go to the documentation of this file.
  1. PRCASVC1 ;SF-ISC/YJK-ACCEPT, AMMEND AND CANCEL AR BILL ;5/1/95 3:05 PM
  1. ;;4.5;Accounts Receivable;**1,68,48,84,157,295,315,357,425**;Mar 20, 1995;Build 8
  1. ;;Per VA Directive 6402, this routine should not be modified.
  1. Q
  1. ;
  1. ;
  1. AMEND ; amend the bill in AR
  1. D CANCEL
  1. Q
  1. ;
  1. ;
  1. CANCEL ; cancel the bill in AR
  1. N X
  1. S X=$$CANCEL^RCBEIB($G(PRCASV("ARREC")),$G(PRCASV("DATE")),$G(PRCASV("BY")),$G(PRCASV("AMT")),$G(PRCASV("COMMENT")))
  1. Q
  1. ;
  1. ;
  1. STATUS ;Change the current status of a bill
  1. S DIE="^PRCA(430,",DA=PRCASV("ARREC"),DR="[PRCASV STATUS]" D ^DIE K DR,DIE
  1. ;Allow categories to transmit to FMS automatically - PRCA*4.5*295
  1. ;Add 47 INELIGIBLE HOSP. REIMB. - PRCA*4.5*315
  1. ;Add 80 TRICARE PHARMACY - PRCA*4.5*357
  1. ;Add 28 CHAMPVA THIRD PARTY - PRCA*4.5*425
  1. I $D(^PRCA(430,+DA,0)),("^27^28^30^31^32^47^80^"[("^"_$P(^(0),"^",2)_"^")) D EN^PRCACPV(+DA)
  1. K DA
  1. Q