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

PRCA355P.m

Go to the documentation of this file.
  1. PRCA355P ;ALB/JSG - PATCH PRCA*4.5*355 PRE/POST-INSTALL 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. ; DBIA#10141
  1. ;
  1. Q
  1. ;
  1. BMSG(MESS) ; spit out message (preceded by a blank line
  1. D BMES^XPDUTL(MESS)
  1. Q
  1. ;
  1. POSTINS ;
  1. Q:($$PROD^XUPROD(1))&($$INSTALDT^XPDUTL("PRCA*4.5*355")) ; DBIA#10141
  1. D CHGSTDAY ; Change statement day
  1. ;
  1. Q
  1. ;
  1. CHGSTDAY ; Change statement day
  1. ;
  1. ; Get the statement day
  1. N DOM
  1. S DOM=$$GETDOM
  1. Q:DOM=0 ; Not one of the 16 sites needing new statement day
  1. D BMSG("Reset Site Parameter - SITE STATEMENT DAY to "_DOM)
  1. N DA,DR,DIE,X,RCT
  1. S DIE="^RC(342,"
  1. S DA=1
  1. S DR=".11///"_DOM ; Stuff field value (Validated)
  1. D ^DIE
  1. ;
  1. ; set of Patient Statement Day dependent upon site (must be a patient - DPT)
  1. D BMES^XPDUTL("Resetting Patient Statement Day to "_DOM)
  1. N DEBT,DIE
  1. S DIE="^RCD(340,"
  1. S DEBT=""
  1. F S DEBT=$O(^RCD(340,"AB","DPT(",DEBT)) Q:DEBT="" D
  1. . N DA,DR
  1. . S DA=DEBT
  1. . S DR=".03////"_DOM ; Stuff field value (Unvalidated)
  1. . D ^DIE
  1. Q
  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,