- 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 Jan 18, 2025@02:42:36 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