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

LEXRXXT3.m

Go to the documentation of this file.
  1. LEXRXXT3 ;ISL/KER - Repair/Re-Index - Task (cont) ;04/21/2014
  1. ;;2.0;LEXICON UTILITY;**81,80**;Sep 23, 1996;Build 1
  1. ;
  1. ; Global Variables
  1. ; ^XTMP("LEXRX") SACC 2.3.2.5.2
  1. ;
  1. ; External References
  1. ; $$S^%ZTLOAD ICR 10063
  1. ; $$DT^XLFDT ICR 10103
  1. ; $$FMADD^XLFDT ICR 10103
  1. ; $$NOW^XLFDT ICR 10103
  1. ;
  1. ; Local Variables NEWed or KILLed Elsewhere
  1. ; LEXQ Quiet flag NEWed/KILLed by LEXRXXT2
  1. ; ZTQUEUED Task flag NEWed/KILLed by Taskman
  1. ; ZTSK Task Number NEWed/KILLed by Taskman
  1. ;
  1. Q
  1. UPD(X,LEXDES,LEXUPD) ; Update Task ^XTMP and ^%ZTSK
  1. Q:$D(LEXQ) 0 N LEXNAM,LEXCRE,LEXPRG,LEXTC S LEXTC=0
  1. S LEXNAM=$G(X),LEXDES=$G(LEXDES),LEXUPD=$G(LEXUPD)
  1. S LEXCRE=$$DT^XLFDT,LEXPRG=$$FMADD^XLFDT(LEXCRE,1)
  1. I $L(LEXNAM),'$L(LEXDES),'$L(LEXUPD) K ^XTMP(LEXNAM) Q 0
  1. I $L(LEXNAM) I '$D(^XTMP(LEXNAM,0)) D
  1. . S ^XTMP(LEXNAM,0)=LEXPRG_"^"_LEXCRE I $L(LEXDES) D
  1. . . S $P(^XTMP(LEXNAM,0),"^",3)=$$NOW^XLFDT
  1. . . S $P(^XTMP(LEXNAM,0),"^",4)=LEXDES
  1. . S:+($G(ZTSK))>0 ^XTMP(LEXNAM,1)=+($G(ZTSK))
  1. I $L(LEXNAM),$L(LEXUPD) I $D(^XTMP(LEXNAM,0)) D
  1. . S ^XTMP(LEXNAM,2)=$$NOW^XLFDT_"^"_LEXUPD
  1. I $D(ZTQUEUED) D
  1. . S:$L(LEXDES)&('$L(LEXUPD)) LEXTC=$$S^%ZTLOAD(LEXDES)
  1. . S:$L(LEXUPD) LEXTC=$$S^%ZTLOAD(LEXUPD)
  1. . S:+($G(ZTSK))>0&($L(LEXNAM)) ^XTMP(LEXNAM,1)=+($G(ZTSK))
  1. S X=LEXTC
  1. Q X
  1. ;
  1. ; Miscellaneous
  1. CLR ; Clear
  1. K LEXQ,ZTQUEUED,ZTSK
  1. Q