Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PRCAP404

PRCAP404.m

Go to the documentation of this file.
  1. PRCAP404 ;EDE/SAB - PRCA*4.5*378 POST INSTALL;02/11/21
  1. ;;4.5;Accounts Receivable;**404**;Mar 20, 1995;Build 7
  1. ;Per VA Directive 6402, this routine should not be modified.
  1. Q
  1. ;
  1. EN ; entry point
  1. D BMES^XPDUTL(" >> Start of the Post-Installation routine for PRCA*4.5*404")
  1. D UPDAUTO
  1. D BMES^XPDUTL(" >> End of the Post-Installation routine for PRCA*4.5*404")
  1. Q
  1. ;
  1. UPDAUTO ;Update the Auto Add Field to set all active plans to Yes
  1. ;
  1. N RCI,RCDATA,RCSTAT ; RPP variables
  1. N X,Y,DIE,DA,DR,DTOUT ; ^DIE variables
  1. D MES^XPDUTL("Activating New Bill AUTO ADD functionality for all active Repayment Plans ... ")
  1. S RCI=0
  1. F S RCI=$O(^RCRP(340.5,RCI)) Q:'RCI D
  1. . S RCDATA=$G(^RCRP(340.5,RCI,0))
  1. . S RCSTAT=$P(RCDATA,U,7)
  1. . Q:RCSTAT>5 ;status is not Terminated, Closed, or PAID IN FULL
  1. . ; Update the Auto-Add flag
  1. . S DIE="^RCRP(340.5,",DA=RCI,DR=".12///1"
  1. . D ^DIE
  1. . K DR,DA,DIE
  1. ;
  1. Q
  1. ;