PRCA419P ;MNTVBB/RS - PRCA patch 419 post install ; MAR 21, 2023
;;4.5;Accounts Receivable;**419**;Mar 20, 1995;Build 5
;
Q
;
POST ;
; Update the (#259)field of Active ChampVA bills in (#430) file
N IBA
D BMSG("PRCA*4.5*419 Post-Install starts.....")
D UPDATE
D BMSG("PRCA*4.5*419 Post-Install is complete.")
Q
;
UPDATE ;UPDATE THE #259 FIELD OF THE #430 FILE
N PRCACAT,PRCASTA,PRCAREF
S DA=0 F S DA=$O(^PRCA(430,DA)) Q:'DA D
.S PRCACAT=$P(^PRCA(430,DA,0),"^",2),PRCASTA=$P(^PRCA(430,DA,0),"^",8)
.I "^27^28^"[("^"_PRCACAT_"^"),PRCASTA=16 D
..S PRCAREF=$P(^PRCA(430,DA,11),"^",10)
..I PRCAREF=9 S DR="259///02",DIE="^PRCA(430," D ^DIE
..Q
.Q
K DA,DR,DIE
Q
;
BMSG(IBA) ;
D BMES^XPDUTL(IBA)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRCA419P 746 printed Nov 22, 2024@16:49:01 Page 2
PRCA419P ;MNTVBB/RS - PRCA patch 419 post install ; MAR 21, 2023
+1 ;;4.5;Accounts Receivable;**419**;Mar 20, 1995;Build 5
+2 ;
+3 QUIT
+4 ;
POST ;
+1 ; Update the (#259)field of Active ChampVA bills in (#430) file
+2 NEW IBA
+3 DO BMSG("PRCA*4.5*419 Post-Install starts.....")
+4 DO UPDATE
+5 DO BMSG("PRCA*4.5*419 Post-Install is complete.")
+6 QUIT
+7 ;
UPDATE ;UPDATE THE #259 FIELD OF THE #430 FILE
+1 NEW PRCACAT,PRCASTA,PRCAREF
+2 SET DA=0
FOR
SET DA=$ORDER(^PRCA(430,DA))
if 'DA
QUIT
Begin DoDot:1
+3 SET PRCACAT=$PIECE(^PRCA(430,DA,0),"^",2)
SET PRCASTA=$PIECE(^PRCA(430,DA,0),"^",8)
+4 IF "^27^28^"[("^"_PRCACAT_"^")
IF PRCASTA=16
Begin DoDot:2
+5 SET PRCAREF=$PIECE(^PRCA(430,DA,11),"^",10)
+6 IF PRCAREF=9
SET DR="259///02"
SET DIE="^PRCA(430,"
DO ^DIE
+7 QUIT
End DoDot:2
+8 QUIT
End DoDot:1
+9 KILL DA,DR,DIE
+10 QUIT
+11 ;
BMSG(IBA) ;
+1 DO BMES^XPDUTL(IBA)
+2 QUIT
