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

PRCG239P.m

Go to the documentation of this file.
  1. PRCG239P ;WISC/BGJ - IFCAP 442 FILE CLEANUP (PURGE); 11/5/99 12:22pm ;9/20/00 12:56
  1. V ;;5.1;IFCAP;**95,138**;Oct 20, 2000;Build 18
  1. ;Per VHA Directive 2004-038, this routine should not be modified.
  1. ;This routine is installed by patch PRC*5.1*95.
  1. ;The purpose of this routine is to clean up FMS reconciliation data
  1. ;in file 417 that were not purged by running the Archive/Purge
  1. ;functionality. Routine PRCG239Q is a routine installed by patch
  1. ;95 that queues entries into PurgeMaster for purging. Those entries
  1. ;are then purged by this routine as PurgeMaster cycles through file
  1. ;443.1 (PurgeMaster Worklist).
  1. ;
  1. 417(X) ;
  1. N DA,KDA,BEGDA,ENDA,PODATE,DTPOASN,SITE,DATE,ZERONODE,MOP
  1. D UNLOAD
  1. F S DA=$O(^PRCS(417,DA)) Q:'DA!(DA>ENDA) D
  1. . S ZERONODE=$G(^PRCS(417,DA,0)) Q:ZERONODE=""
  1. . S PODATE=$P($G(^PRCS(417,DA,0)),"^",22)
  1. . I PODATE>DATE Q
  1. . S KDA=DA D KILL417(KDA)
  1. Q
  1. UNLOAD ;
  1. S BEGDA=$P(X,"-",1),ENDA=+$P(X,"-",2),SITE=$P(X,";",2)
  1. S DATE=$P(X,";",3)
  1. S DA=BEGDA-.1
  1. Q
  1. KILL417(DA) ;
  1. Q:'$D(^PRCS(417,DA,0))
  1. S DIK="^PRCS(417," D ^DIK
  1. K DIK
  1. Q