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

OCXOCMPV.m

Go to the documentation of this file.
  1. OCXOCMPV ;SLC/RJS,CLA - ORDER CHECK CODE COMPILER (Main Entry point - All Rules cont...) ;1/05/04 14:09
  1. ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32,105,221,243**;Dec 17,1997;Build 242
  1. ;; ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
  1. ;
  1. MAN ;
  1. I '$D(DUZ) W !!,"DUZ not defined." Q
  1. N OCXD0,OCXD1,OCXWARN,OCXNAM,OCXTRACE,OCXOETIM,OCXAUTO,OCXERRM,OCXTSPI
  1. S OCXWARN=0,OCXOETIM=$H
  1. K ^TMP("OCXCMP",$J)
  1. S ^TMP("OCXCMP",$J)=($P($H,",",2)+($H*86400)+(2*60*60))_" <- ^TMP ENTRY EXPIRATION DATE FOR ^OCXOPURG"
  1. ;
  1. ; Compiler Constants
  1. ;
  1. S OCXCLL=200 ; compiled code line length
  1. S OCXCRS=4000 ; compiled routine size
  1. S OCXTSPI=300 ; Duplicate triggered Rule message "ignore period" in seconds
  1. ;
  1. S OCXTRACE=0,OCXTLOG=0,OCXDLOG=0,OCXAUTO=0,OCXERRM=""
  1. ;
  1. S OCXTRACE=$$READ("Y","Want to enable Compiled Routine Execution Display ","NO") Q:(OCXTRACE[U)
  1. S OCXDLOG=$$READ("Y","Want to enable Logging of incoming raw data ","NO") Q:(OCXDLOG[U)
  1. I OCXDLOG S OCXDLOG=$$READ("N^1:20","Number of days to keep raw data ","3") Q:(OCXDLOG[U)
  1. I OCXDLOG W !!,"*** Note: The raw data log will only hold 200,000 entries. *****",!
  1. I 0 I OCXDLOG S OCXTLOG=$$READ("Y","Want to enable Elapsed Time Logging ","YES") Q:(OCXTLOG[U)
  1. ;
  1. Q:'$$READ("Y","Are you sure you want to recompile the Expert System routines ","NO")
  1. ;
  1. D SETFLAG
  1. L +^OCXD(861,1):5 E D ERMESG("Run aborted. Another compiler run has ^OCXD(861,1) locked.") Q
  1. D RUN^OCXOCMP,BULL(DUZ),KILLFLAG
  1. L -^OCXD(861,1)
  1. ;
  1. ;K ^TMP("OCXCMP",$J)
  1. ;
  1. Q
  1. ;
  1. MESG(OCXX) ;
  1. I '$G(OCXAUTO) W !!,OCXX
  1. I ($G(OCXAUTO)=1) D BMES^XPDUTL(.OCXX)
  1. Q
  1. ;
  1. ERMESG(OCXX) ;
  1. N OCXY S OCXY=OCXX
  1. I '$G(OCXAUTO) W !!,OCXX
  1. I ($G(OCXAUTO)=1) D BMES^XPDUTL(.OCXX)
  1. S OCXERRM=OCXY
  1. Q
  1. ;
  1. WARN(X,FILE,D0,RLINE) ;
  1. ;
  1. Q:$G(OCXWARN)
  1. ;
  1. S OCXWARN=1
  1. ;
  1. I $G(OCXAUTO) D Q
  1. .D MESG(" Error... "_X)
  1. .D MESG(" Error... File:"_(+$G(FILE)))
  1. .D MESG(" Error... Index:"_(+$G(D0)))
  1. .D MESG(" Error... Order Check Routine Compile Aborted.")
  1. ;
  1. S OCXWARN=$G(OCXWARN)+1
  1. N OCXSP,OCXST,OCXTXT,OCXLEN,OCXZZZ,OCXCNT
  1. S OCXLEN=60,OCXTXT="Compiler Warning # "_OCXWARN
  1. I ($D(X)>2) S OCXCNT=0 F S OCXCNT=$O(X(OCXCNT)) Q:'OCXCNT D
  1. .I ($L(X(OCXCNT))>OCXLEN),($L(X(OCXCNT))<80) S OCXLEN=$L(X(OCXCNT))
  1. S (OCXSP,OCXST)="",$P(OCXST,"*",150)="*",$P(OCXSP," ",150)=" "
  1. W !!
  1. W !,$E(OCXST,1,OCXLEN+6)
  1. W !,"**",$E(OCXSP,1,OCXLEN+2),"**"
  1. W !,"** ",OCXTXT,$E(OCXSP,$L(OCXTXT),OCXLEN-1)," **"
  1. W:$L($G(RLINE)) !,"** ",RLINE,$E(OCXSP,$L(RLINE),OCXLEN-1)," **"
  1. W !,"**",$E(OCXSP,1,OCXLEN+2),"**"
  1. S OCXGL="^OCXS" S:(FILE=1) OCXGL="^OCXD" S:(FILE=7) OCXGL="^OCXD" S:(FILE=10) OCXGL="^OCXD" S FILE=FILE/10+860
  1. I $G(FILE),$G(D0),$D(@OCXGL@(FILE,D0,0)) D
  1. .S OCXTXT=$P(@OCXGL@(FILE,0),U,1)
  1. .W !,"** ",OCXTXT,$E(OCXSP,$L(OCXTXT),OCXLEN-1)," **"
  1. .S OCXTXT=" "_$P(@OCXGL@(FILE,D0,0),U,1)
  1. .W !,"** ",OCXTXT,$E(OCXSP,$L(OCXTXT),OCXLEN-1)," **"
  1. W !,"**",$E(OCXSP,1,OCXLEN+2),"**"
  1. I ($D(X)#2) D
  1. .W !,"** " F OCXCNT=1:1:$L(X," ") D
  1. ..I (($X+$L($P(X," ",OCXCNT)))>OCXLEN) W $E(OCXSP,$X,OCXLEN+2)," **",!,"** "
  1. ..W $P(X," ",OCXCNT)," "
  1. .W $E(OCXSP,$X,OCXLEN+2)," **"
  1. I ($D(X)>2) S OCXCNT=0 F S OCXCNT=$O(X(OCXCNT)) Q:'OCXCNT D
  1. .W !,"** ",X(OCXCNT),$E(OCXSP,$X,OCXLEN+2)," **"
  1. W !,$E(OCXST,1,OCXLEN+6)
  1. W !!!,"Press <Return> to continue... " R OCXZZZ:DTIME
  1. Q
  1. K D0
  1. ;
  1. READ(OCXZ0,OCXZA,OCXZB,OCXZL) ;
  1. N OCXLINE,DIR,DTOUT,DUOUT,DIRUT,DIROUT
  1. Q:'$L($G(OCXZ0)) U
  1. S DIR(0)=OCXZ0
  1. S:$L($G(OCXZA)) DIR("A")=OCXZA
  1. S:$L($G(OCXZB)) DIR("B")=OCXZB
  1. F OCXLINE=1:1:($G(OCXZL)-1) W !
  1. D ^DIR
  1. I $D(DTOUT)!$D(DUOUT)!$D(DIRUT)!$D(DIROUT) Q U
  1. Q Y
  1. ;
  1. Q
  1. ;
  1. DT(X,D) N Y,%DT S %DT=D D ^%DT Q Y
  1. Q
  1. ;
  1. CNT(X) ;
  1. ;
  1. N CNT,D0
  1. S D0=0 F CNT=1:1 S D0=$O(@X@(D0)) Q:'D0
  1. W !!,?10,X," ",CNT
  1. Q CNT
  1. ;
  1. AUTO ;
  1. N OCXD0,OCXD1,OCXWARN,OCXNAM,OCXTRACE,OCXAUTO,OCXOETIM,OCXTSPI
  1. S OCXWARN=0,OCXOETIM=$H
  1. K ^TMP("OCXCMP",$J)
  1. S ^TMP("OCXCMP",$J)=($P($H,",",2)+($H*86400)+(2*60*60))_" <- ^TMP ENTRY EXPIRATION DATE FOR ^OCXOPURG"
  1. ;
  1. ; Compiler Constants
  1. ;
  1. S OCXCLL=200 ; compiled code line length
  1. S OCXCRS=8000 ; compiled routine size
  1. S OCXTSPI=300 ; Duplicate triggered Rule message "ignore period" in seconds
  1. ;
  1. S OCXTRACE=0 ; Program Execution Trace Mode (OFF)
  1. S OCXTLOG=0 ; Elapsed time logging (OFF)
  1. S OCXDLOG=0 ; Raw Data Logging (OFF)
  1. S OCXAUTO=1 ; Compile in the Background Mode (ON)
  1. ;
  1. D SETFLAG
  1. L +^OCXD(861,1):5 E D ERMESG("Run aborted. Another compiler run has ^OCXD(861,1) locked."),BULL(DUZ),KILLFLAG Q
  1. D RUN^OCXOCMP,BULL(DUZ),KILLFLAG
  1. L -^OCXD(861,1)
  1. ;
  1. K ^TMP("OCXCMP",$J)
  1. ;
  1. Q
  1. ;
  1. BULL(OCXDUZ) ;
  1. I $L($T(^XMB)) D
  1. .;
  1. .N XMB,XMDUZ,XMY,OCXTIME
  1. .S OCXTIME=$H-OCXOETIM*86400
  1. .S OCXTIME=OCXTIME+($P($H,",",2)-$P(OCXOETIM,",",2))
  1. .S XMB="OCX COMPILER RUN"
  1. .S XMB(1)=$P($T(+3),";;",3)
  1. .S XMB(2)=$$CONV($$DATE)
  1. .S XMB(3)=""
  1. .S:$G(OCXDUZ) XMB(3)="["_OCXDUZ_"] "_$P($G(^VA(200,OCXDUZ,0)),U,1)
  1. .S XMB(4)=(OCXTIME\60)_" minutes "_(OCXTIME#60)_" seconds "
  1. .S XMB(5)=$S(($G(OCXAUTO)>1):"Queued",$G(OCXAUTO):"Automatic Mode",1:"Interactive Mode")
  1. .S XMB(6)=$S($G(OCXTRACE):" ON",1:"OFF")
  1. .S XMB(7)=" " ; $S($G(OCXTLOG):" ON",1:"OFF")
  1. .S XMB(8)=$S($G(OCXDLOG):(" ON Keep data for "_OCXDLOG_" day"_$S(OCXDLOG=1:"",1:"s")_" then purge."),1:"OFF")
  1. .S XMB(9)="No longer tracked" ; $S($G(OCXLCNT):OCXLCNT,1:"Zero")
  1. .S XMB(10)=$G(OCXERRM)
  1. .S XMB(11)=$S($L($G(OCXERRM)):"ABORTED",1:"has completed normally")
  1. .S XMY("G.OCX DEVELOPERS@ISC-SLC.DOMAIN.EXT")=""
  1. .S XMY("G.OCX DEVELOPERS")=""
  1. .S XMY(OCXDUZ)=""
  1. .S XMDUZ=.5
  1. .S XMDT="N"
  1. .D ^XMB
  1. ;
  1. Q
  1. ;
  1. DATE() N X,Y,%DT S X="N",%DT="T" D ^%DT X ^DD("DD") Q Y
  1. ;
  1. CONV(Y) Q:'(Y["@") Y Q $P(Y,"@",1)_" at "_$P(Y,"@",2,99)
  1. ;
  1. SETFLAG ;
  1. I '($P($G(^OCXD(861,1,0)),U,1)="SITE PREFERENCES") K ^OCXD(861,1) S ^OCXD(861,1,0)="SITE PREFERENCES"
  1. S $P(^OCXD(861,1,0),U,3)=$H
  1. Q
  1. ;
  1. KILLFLAG ;
  1. ;
  1. I '($P($G(^OCXD(861,1,0)),U,1)="SITE PREFERENCES") K ^OCXD(861,1) S ^OCXD(861,1,0)="SITE PREFERENCES"
  1. S $P(^OCXD(861,1,0),U,3)=""
  1. Q
  1. ;
  1. QUE(OCXADD) ;
  1. ;
  1. N ZTCPU,ZTDESC,ZTDTH,ZTIO,ZTPAR,ZTPRE,ZTPRI,ZTRTN,ZTSAVE,ZTSK,ZTUCI
  1. N OCXDUZ
  1. ;
  1. S ZTDTH=$P($H,",",2)+OCXADD,OCXADD=0
  1. I (ZTDTH>86400) S ZTDTH=(86400-ZTDTH),OCXADD=1
  1. S ZTDTH=($H+OCXADD)_","_ZTDTH
  1. S OCXDUZ=$G(DUZ)
  1. S ZTIO="",ZTRTN="TASK^OCXOCMPV",ZTDESC="Queued Compiler: "_$P($T(+3),";;",2)
  1. K ZTSAVE,ZTCPU,ZTUCI,ZTPRI,ZTPAR,ZTPRE
  1. S ZTSAVE("OCXDUZ")=""
  1. ;
  1. D ^%ZTLOAD
  1. ;
  1. Q
  1. ;
  1. TASK ;
  1. ;
  1. N OCXD0,OCXD1,OCXWARN,OCXNAM,OCXTRACE,OCXAUTO,OCXOETIM,OCXTSPI
  1. S OCXWARN=0,OCXOETIM=$H
  1. K ^TMP("OCXCMP",$J)
  1. S ^TMP("OCXCMP",$J)=($P($H,",",2)+($H*86400)+(2*60*60))_" <- ^TMP ENTRY EXPIRATION DATE FOR ^OCXOPURG"
  1. ;
  1. ; Compiler Constants
  1. ;
  1. S OCXCLL=200 ; compiled code line length
  1. S OCXCRS=8000 ; compiled routine size
  1. S OCXTSPI=300 ; Duplicate triggered Rule message "ignore period" in seconds
  1. ;
  1. S OCXDATA="0^0^0"
  1. I $L($T(CDATA^OCXOZ01)) S OCXDATA=$$CDATA^OCXOZ01
  1. ;
  1. S OCXTRACE=$P(OCXDATA,U,1),OCXTLOG=$P(OCXDATA,U,2),OCXDLOG=$P(OCXDATA,U,3)
  1. ;
  1. S OCXAUTO=2 ; Compile in the Background Mode (ON QUEUED)
  1. ;
  1. D SETFLAG
  1. L +^OCXD(861,1):5 E D QUE^OCXOCMPV(300),ERMESG("Run rescheduled. Another compiler run has ^OCXD(861,1) locked."),BULL(OCXDUZ),KILLFLAG Q
  1. D RUN^OCXOCMP,BULL(OCXDUZ),KILLFLAG
  1. L -^OCXD(861,1)
  1. ;
  1. K ^TMP("OCXCMP",$J)
  1. ;
  1. I $G(ZTSK) D KILL^%ZTLOAD
  1. ;
  1. Q
  1. ;