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

OCXOPOST.m

Go to the documentation of this file.
  1. OCXOPOST ;SLC/RJS,CLA - ORDER CHECK INSTALL POST INIT ;10/29/98 12:37
  1. ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32**;Dec 17,1997
  1. ;; ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
  1. ;
  1. EN ;
  1. ;
  1. N OCXOETIM S OCXOETIM=$H
  1. ;
  1. I $L($T(AUTO^OCXDIAG)) D
  1. .;
  1. .N OCXOETIM,OCXF,OCXR,OCXC,OCXTT,OCXTC
  1. .D BMES^XPDUTL("---Order Check Integrity Check------------------------------------")
  1. .D AUTO^OCXDIAG
  1. .D BMES^XPDUTL("---Retotaling Order Check files-----------------------------------")
  1. .F OCXGL="^OCXD","^OCXS" D
  1. ..S OCXF=0 F OCXTT=0:1 S OCXF=$O(@OCXGL@(OCXF)) Q:'OCXF
  1. ..S OCXF=0 F OCXTC=0:1 S OCXF=$O(@OCXGL@(OCXF)) Q:'OCXF D
  1. ...D STATUS(OCXTC,OCXTT)
  1. ...S OCXR=0 F OCXC=0:1 S OCXR=$O(@OCXGL@(OCXF,OCXR)) Q:'OCXR
  1. ...Q:'OCXC
  1. ...S $P(@OCXGL@(OCXF,0),U,3,4)=OCXC_U_$O(@OCXGL@(OCXF,"A"),-1)
  1. ;
  1. I $L($T(AUTO^OCXOCMP)) D
  1. .;
  1. .N OCXOETIM
  1. .D BMES^XPDUTL("---Creating Order Check Routines-----------------------------------")
  1. .D AUTO^OCXOCMP
  1. ;
  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 POSTINIT COMPLETE"
  1. .S XMB(1)=$P($T(+3),";;",3)
  1. .S XMB(2)=$$CONV($$DATE)
  1. .S XMB(3)="["_DUZ_"] "_$P($G(^VA(200,DUZ,0)),U,1)
  1. .S XMB(4)=(OCXTIME\60)_" minutes "_(OCXTIME#60)_" seconds "
  1. .S XMY("G.OCX DEVELOPERS@ISC-SLC.DOMAIN.EXT")=""
  1. .S XMY("G.OCX DEVELOPERS")=""
  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. STATUS(CURRENT,XPDIDTOT) ;
  1. ;
  1. I '$D(XPDIDVT) N XPDIDVT
  1. S XPDIDVT=$G(XPDIDVT)
  1. D UPDATE^XPDID(CURRENT)
  1. ;
  1. Q
  1. ;