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

PRCCL406.m

Go to the documentation of this file.
  1. PRCCL406 ;BP-OIFO/SWS-IFCAP ARCHIVE/PURGE UTILITY ROUTINE ;12/07/2005 12:16
  1. V ;;5.1;IFCAP;**95**;Oct 20, 2000
  1. Q
  1. START S IPIEN=0,NREC=0,TREC=0
  1. F S IPIEN=$O(^PRCH(440.6,"PO",IPIEN)) Q:IPIEN'>0 D
  1. .S IEN=0
  1. .I '$D(^PRC(442,IPIEN)) D
  1. ..S TREC=TREC+1
  1. ..S IEN=0
  1. ..F S IEN=$O(^PRCH(440.6,"PO",IPIEN,IEN)) Q:'IEN D KILL4406
  1. ..Q
  1. .Q
  1. D CLEAN
  1. Q
  1. KILL4406 ;set temp files then kill invalid 440.6 records
  1. N DA
  1. S NREC=NREC+1
  1. S ^XTMP("IFCAP-PURGE-440-6",IPIEN,IEN)=^PRCH(440.6,IEN,0)
  1. S ^XTMP("IFCAP-PURGE-440-6-REF",IPIEN,IEN)="PO^"_IPIEN_"^"_IEN
  1. S DA=IEN
  1. S DIK="^PRCH(440.6," D ^DIK
  1. K DIK,DA
  1. Q
  1. CLEAN K IEN,IPIEN,TREC,NREC
  1. Q