PRCASVC1 ;SF-ISC/YJK-ACCEPT, AMMEND AND CANCEL AR BILL ;5/1/95 3:05 PM
;;4.5;Accounts Receivable;**1,68,48,84,157,295,315,357,425**;Mar 20, 1995;Build 8
;;Per VA Directive 6402, this routine should not be modified.
Q
;
;
AMEND ; amend the bill in AR
D CANCEL
Q
;
;
CANCEL ; cancel the bill in AR
N X
S X=$$CANCEL^RCBEIB($G(PRCASV("ARREC")),$G(PRCASV("DATE")),$G(PRCASV("BY")),$G(PRCASV("AMT")),$G(PRCASV("COMMENT")))
Q
;
;
STATUS ;Change the current status of a bill
S DIE="^PRCA(430,",DA=PRCASV("ARREC"),DR="[PRCASV STATUS]" D ^DIE K DR,DIE
;Allow categories to transmit to FMS automatically - PRCA*4.5*295
;Add 47 INELIGIBLE HOSP. REIMB. - PRCA*4.5*315
;Add 80 TRICARE PHARMACY - PRCA*4.5*357
;Add 28 CHAMPVA THIRD PARTY - PRCA*4.5*425
I $D(^PRCA(430,+DA,0)),("^27^28^30^31^32^47^80^"[("^"_$P(^(0),"^",2)_"^")) D EN^PRCACPV(+DA)
K DA
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRCASVC1 893 printed Dec 13, 2024@01:41:22 Page 2
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
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 QUIT
+4 ;
+5 ;
AMEND ; amend the bill in AR
+1 DO CANCEL
+2 QUIT
+3 ;
+4 ;
CANCEL ; cancel the bill in AR
+1 NEW X
+2 SET X=$$CANCEL^RCBEIB($GET(PRCASV("ARREC")),$GET(PRCASV("DATE")),$GET(PRCASV("BY")),$GET(PRCASV("AMT")),$GET(PRCASV("COMMENT")))
+3 QUIT
+4 ;
+5 ;
STATUS ;Change the current status of a bill
+1 SET DIE="^PRCA(430,"
SET DA=PRCASV("ARREC")
SET DR="[PRCASV STATUS]"
DO ^DIE
KILL DR,DIE
+2 ;Allow categories to transmit to FMS automatically - PRCA*4.5*295
+3 ;Add 47 INELIGIBLE HOSP. REIMB. - PRCA*4.5*315
+4 ;Add 80 TRICARE PHARMACY - PRCA*4.5*357
+5 ;Add 28 CHAMPVA THIRD PARTY - PRCA*4.5*425
+6 IF $DATA(^PRCA(430,+DA,0))
IF ("^27^28^30^31^32^47^80^"[("^"_$PIECE(^(0),"^",2)_"^"))
DO EN^PRCACPV(+DA)
+7 KILL DA
+8 QUIT
