Routine: PRCA419P

PRCA419P ;MNTVBB/RS - PRCA patch 419 post install ; MAR 21, 2023

 ;;4.5;Accounts Receivable;**419**;Mar 20, 1995;Build 5

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.")

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

BMSG(IBA) ;

 D BMES^XPDUTL(IBA)

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRCA419P   746     printed  Apr 09, 2024@20:48:02                                                                                                                                                                                                     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

PRCA419P.m