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

Last change on this file since 1093 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.6 KB
Line 
1OCXOPOST ;SLC/RJS,CLA - ORDER CHECK INSTALL POST INIT ;10/29/98 12:37
2 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32**;Dec 17,1997
3 ;; ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
4 ;
5EN ;
6 ;
7 N OCXOETIM S OCXOETIM=$H
8 ;
9 I $L($T(AUTO^OCXDIAG)) D
10 .;
11 .N OCXOETIM,OCXF,OCXR,OCXC,OCXTT,OCXTC
12 .D BMES^XPDUTL("---Order Check Integrity Check------------------------------------")
13 .D AUTO^OCXDIAG
14 .D BMES^XPDUTL("---Retotaling Order Check files-----------------------------------")
15 .F OCXGL="^OCXD","^OCXS" D
16 ..S OCXF=0 F OCXTT=0:1 S OCXF=$O(@OCXGL@(OCXF)) Q:'OCXF
17 ..S OCXF=0 F OCXTC=0:1 S OCXF=$O(@OCXGL@(OCXF)) Q:'OCXF D
18 ...D STATUS(OCXTC,OCXTT)
19 ...S OCXR=0 F OCXC=0:1 S OCXR=$O(@OCXGL@(OCXF,OCXR)) Q:'OCXR
20 ...Q:'OCXC
21 ...S $P(@OCXGL@(OCXF,0),U,3,4)=OCXC_U_$O(@OCXGL@(OCXF,"A"),-1)
22 ;
23 I $L($T(AUTO^OCXOCMP)) D
24 .;
25 .N OCXOETIM
26 .D BMES^XPDUTL("---Creating Order Check Routines-----------------------------------")
27 .D AUTO^OCXOCMP
28 ;
29 I $L($T(^XMB)) D
30 .;
31 .N XMB,XMDUZ,XMY,OCXTIME
32 .S OCXTIME=$H-OCXOETIM*86400
33 .S OCXTIME=OCXTIME+($P($H,",",2)-$P(OCXOETIM,",",2))
34 .S XMB="OCX POSTINIT COMPLETE"
35 .S XMB(1)=$P($T(+3),";;",3)
36 .S XMB(2)=$$CONV($$DATE)
37 .S XMB(3)="["_DUZ_"] "_$P($G(^VA(200,DUZ,0)),U,1)
38 .S XMB(4)=(OCXTIME\60)_" minutes "_(OCXTIME#60)_" seconds "
39 .S XMY("G.OCX DEVELOPERS@ISC-SLC.VA.GOV")=""
40 .S XMY("G.OCX DEVELOPERS")=""
41 .S XMDUZ=.5
42 .S XMDT="N"
43 .D ^XMB
44 ;
45 Q
46 ;
47DATE() N X,Y,%DT S X="N",%DT="T" D ^%DT X ^DD("DD") Q Y
48 ;
49CONV(Y) Q:'(Y["@") Y Q $P(Y,"@",1)_" at "_$P(Y,"@",2,99)
50 ;
51STATUS(CURRENT,XPDIDTOT) ;
52 ;
53 I '$D(XPDIDVT) N XPDIDVT
54 S XPDIDVT=$G(XPDIDVT)
55 D UPDATE^XPDID(CURRENT)
56 ;
57 Q
58 ;
Note: See TracBrowser for help on using the repository browser.