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

XUMF567.m

Go to the documentation of this file.
  1. XUMF567 ;BP/RAM - INSTITUTION DUP FIX ;06/28/00
  1. ;;8.0;KERNEL;**567**;Jul 10, 1995;Build 8
  1. ;
  1. ;
  1. Q
  1. ;
  1. MAIN ;
  1. ;
  1. Q:$$KSP^XUPARAM("INST")=12000
  1. ;
  1. M ^TMP("XUMF 04",$$NOW^XLFDT,$J,4)=^DIC(4)
  1. ;
  1. S XUMF=1
  1. ;
  1. D DUP,BK
  1. ;
  1. Q
  1. ;
  1. KT ; -- kill temp node / file backup
  1. ;
  1. K ^TMP("XUMF 04")
  1. ;
  1. Q
  1. ;
  1. BK ; -- background job to kill temp node in 30 days
  1. ;
  1. N ZTRTN,ZTDESC,ZTDTH
  1. ;
  1. S ZTRTN="KT^XUMF567"
  1. S ZTDESC="XUMF kill temp backup of file 4 - patch xu549"
  1. S ZTDTH=$$FMADD^XLFDT($$NOW^XLFDT,30,0,0,0)
  1. S ZTIO=""
  1. ;
  1. D ^%ZTLOAD
  1. ;
  1. Q
  1. ;
  1. DUP ; RESOLVE DUPLICATE RECORDS
  1. ;
  1. N NAME,IEN,IENS,FDA,XUMF,STA
  1. ;
  1. S STA=""
  1. F S STA=$O(^DIC(4,"D",STA)) Q:STA="" D
  1. .S IEN=$O(^DIC(4,"D",STA,0)) Q:'$O(^DIC(4,"D",STA,IEN))
  1. .F S IEN=$O(^DIC(4,"D",STA,IEN)) Q:'IEN D
  1. ..S XUMF=1
  1. ..S NAME=$P(^DIC(4,IEN,0),U)
  1. ..S IENS=IEN_","
  1. ..K FDA
  1. ..S FDA(4,IENS,.01)=$E("ZZ DUP "_NAME,1,30)
  1. ..S FDA(4,IENS,101)="INACTIVE"
  1. ..S FDA(4,IENS,99)="@"
  1. ..D FILE^DIE("E","FDA")
  1. ;
  1. Q
  1. ;
  1. EXIT ; -- cleanup, and quit
  1. ;
  1. Q
  1. ;