source: WorldVistAEHR/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXOPOST.m@ 1297

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