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

PRCA355E.m

Go to the documentation of this file.
  1. PRCA355E ;ALB/JSG - PATCH PRCA*4.5*355 ENVIRONMENT CHECKING ROUTINE ;5/28/19 6:22pm
  1. ;;4.5;Accounts Receivable;**355**;Mar 20, 1995;Build 10
  1. ;;Per VA Directive 6402, this routine should not be modified.
  1. ;
  1. ENV ; "Environment" checking
  1. N STDY
  1. ;
  1. S XPDNOQUE=1 ; don't allow anyone to queue the install no matter what they say.
  1. ;
  1. ; Get the statement day
  1. S STDY=$$GETDOM
  1. ;
  1. ; due to monthly statement processing, only allowed to install this patch on certain days each month.
  1. I STDY>0,'$$ALLOWED(DT) D ; Site is one of the 16 sites listed below and is not allowed to install on this day
  1. . S XPDQUIT=1
  1. . W !,"** Installation of PRCA*4.5*355 is not allowed into your production account on today's date **"
  1. . W !,"Please re-attempt on any day of the month other than the period from days 17 through 28 inclusive.",!
  1. E D
  1. . W !,"Installation of PRCA*4.5*355 is allowed.",!
  1. Q
  1. ;
  1. ALLOWED(DATE) ; Allow installation outside of the inclusive period of days 17-28
  1. ;
  1. ; Input: Date in VistA/FileMan format
  1. ;
  1. ; Output: Flg - 1 (Allow installation) or
  1. ; 0 (Do not allow installation)
  1. ;
  1. N DAY
  1. ; Get today's day of the month
  1. S DAY=$E(DATE,$L(DATE)-1,$L(DATE))
  1. ;
  1. ; Installation allowed on days outside the period of days 17-28 inclusive
  1. Q $S(DAY<17:1,DAY>28:1,1:0)
  1. ;
  1. GETDOM() ; Get site and statement day
  1. ; Input: None
  1. ;
  1. ; Output: New statement day or flag
  1. ; 0 - Flag for sites that do not need to get new statement day
  1. ; 26 - New statement day for 10 selected sites
  1. ; 28 - New statement day for 6 selected sites
  1. ;
  1. N FLG,SITE,SITES26,SITES28
  1. S SITE=+$$SITE^VASITE
  1. S SITES26=$P($T(SITES26),";",3)
  1. S SITES28=$P($T(SITES28),";",3)
  1. S FLG=$S(SITES26[(","_SITE_","):26,SITES28[(","_SITE_","):28,1:0)
  1. Q FLG
  1. ;
  1. ; From PRCA*4.5*355 Patch Description:
  1. ;
  1. ; Sites with new statement day = 26
  1. SITES26 ;;,438,501,504,542,562,568,649,656,688,756,
  1. ;
  1. ; Sites with new statement day = 28
  1. SITES28 ;;,565,621,658,664,671,740,