- PRCAP404 ;EDE/SAB - PRCA*4.5*378 POST INSTALL;02/11/21
- ;;4.5;Accounts Receivable;**404**;Mar 20, 1995;Build 7
- ;Per VA Directive 6402, this routine should not be modified.
- Q
- ;
- EN ; entry point
- D BMES^XPDUTL(" >> Start of the Post-Installation routine for PRCA*4.5*404")
- D UPDAUTO
- D BMES^XPDUTL(" >> End of the Post-Installation routine for PRCA*4.5*404")
- Q
- ;
- UPDAUTO ;Update the Auto Add Field to set all active plans to Yes
- ;
- N RCI,RCDATA,RCSTAT ; RPP variables
- N X,Y,DIE,DA,DR,DTOUT ; ^DIE variables
- D MES^XPDUTL("Activating New Bill AUTO ADD functionality for all active Repayment Plans ... ")
- S RCI=0
- F S RCI=$O(^RCRP(340.5,RCI)) Q:'RCI D
- . S RCDATA=$G(^RCRP(340.5,RCI,0))
- . S RCSTAT=$P(RCDATA,U,7)
- . Q:RCSTAT>5 ;status is not Terminated, Closed, or PAID IN FULL
- . ; Update the Auto-Add flag
- . S DIE="^RCRP(340.5,",DA=RCI,DR=".12///1"
- . D ^DIE
- . K DR,DA,DIE
- ;
- Q
- ;
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRCAP404 940 printed Feb 18, 2025@23:07:19 Page 2
- PRCAP404 ;EDE/SAB - PRCA*4.5*378 POST INSTALL;02/11/21
- +1 ;;4.5;Accounts Receivable;**404**;Mar 20, 1995;Build 7
- +2 ;Per VA Directive 6402, this routine should not be modified.
- +3 QUIT
- +4 ;
- EN ; entry point
- +1 DO BMES^XPDUTL(" >> Start of the Post-Installation routine for PRCA*4.5*404")
- +2 DO UPDAUTO
- +3 DO BMES^XPDUTL(" >> End of the Post-Installation routine for PRCA*4.5*404")
- +4 QUIT
- +5 ;
- UPDAUTO ;Update the Auto Add Field to set all active plans to Yes
- +1 ;
- +2 ; RPP variables
- NEW RCI,RCDATA,RCSTAT
- +3 ; ^DIE variables
- NEW X,Y,DIE,DA,DR,DTOUT
- +4 DO MES^XPDUTL("Activating New Bill AUTO ADD functionality for all active Repayment Plans ... ")
- +5 SET RCI=0
- +6 FOR
- SET RCI=$ORDER(^RCRP(340.5,RCI))
- if 'RCI
- QUIT
- Begin DoDot:1
- +7 SET RCDATA=$GET(^RCRP(340.5,RCI,0))
- +8 SET RCSTAT=$PIECE(RCDATA,U,7)
- +9 ;status is not Terminated, Closed, or PAID IN FULL
- if RCSTAT>5
- QUIT
- +10 ; Update the Auto-Add flag
- +11 SET DIE="^RCRP(340.5,"
- SET DA=RCI
- SET DR=".12///1"
- +12 DO ^DIE
- +13 KILL DR,DA,DIE
- End DoDot:1
- +14 ;
- +15 QUIT
- +16 ;