source: FOIAVistA/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXDI00K.m@ 632

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

initial load of FOIAVistA 6/30/08 version

File size: 4.6 KB
Line 
1OCXDI00K ;SLC/RJS,CLA - OCX PACKAGE DIAGNOSTIC ROUTINES ;SEP 7,1999 at 10:29
2 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32**;Dec 17,1997
3 ;; ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
4 ;
5S ;
6 ;
7 D DOT^OCXDIAG
8 ;
9 ;
10 K REMOTE,LOCAL,OPCODE,REF
11 F LINE=1:1:500 S TEXT=$P($T(DATA+LINE),";",2,999) Q:TEXT I $L(TEXT) D Q:QUIT
12 .S ^TMP("OCXDIAG",$J,$O(^TMP("OCXDIAG",$J,"A"),-1)+1)=TEXT
13 ;
14 G ^OCXDI00L
15 ;
16 Q
17 ;
18DATA ;
19 ;
20 ;;RTN^OCXOMENU^10/29/98 12:37
21 ;;RSUM^150.21^150.21^324.31^150.21^27296.291^1371.81^12337.181^96552.571^26932.301^36945.371^118793.621^6268.131^280946.921^150.21^194.21^150.21^1303.61^98905.471^293989.801^87428.441^127621.531^169250.611
22 ;;RSUM^55587.341^51792.331^533.41^150.21^1829.81^2079.71^12932.201^2085.71^150.21
23 ;;RND^OCXOMENU^10/29/98 12:37
24 ;;RTN^OCXOPOST^10/29/98 12:37
25 ;;RSUM^150.21^557.41^150.21^22272.251^150.21^20726.251^301.31^56420.391^211619.851^9957.161^214670.851^24175.271^102358.561^109727.591^22992.251^123520.611^4324.111^122547.631^150.21^21239.251^301.31^5719.121
26 ;;RSUM^221992.861^10340.161^150.21^8869.171^301.31^23964.251^27616.291^80054.531^34429.311^19830.281^19044.251^76206.511^135604.601^66156.451^28793.301^5121.121^4706.121^2521.81^150.21^194.21^150.21^87802.551
27 ;;RSUM^150.21^86865.561^150.21^24177.261^150.21^22378.251^17457.221^21542.241^150.21^194.21^150.21
28 ;;RND^OCXOPOST^10/29/98 12:37
29 ;;RTN^OCXOPRE^8/04/98 16:10
30 ;;RSUM^150.21^194.21
31 ;;RND^OCXOPRE^8/04/98 16:10
32 ;;RTN^OCXOPURG^10/29/98 12:37
33 ;;RSUM^150.21^557.41^150.21^177556.701^28344.271^150.21^166124.601^150.21^177724.781^106006.591^144691.701^150.21^233435.881^173003.741^220211.821^6271.131^73884.481^35248.331^41050.351^65853.441^39812.371
34 ;;RSUM^23553.271^46689.381^69382.451^150.21^323976.1021^150.21^41896.401^216686.831^27658.301^9005.181^120073.631^39584.361^36769.341^59538.431^88732.541^27476.321^150.21^24149.281^28043.321^46205.381^150.21
35 ;;RSUM^8355.161^160933.721^37671.351^14126.211^35073.331^150.21^71772.491^199383.781^144932.641^150.21^114884.641^95664.581^295952.991^150.21^194.21^150.21^1868.81^150.21^3446.101^171080.781^646.41^150.21
36 ;;RSUM^48715.421^150.21
37 ;;RND^OCXOPURG^10/29/98 12:37
38 ;;RTN^OCXOSCR1^10/29/98 12:37
39 ;;RSUM^150.21^19835.241^150.21^194.21^150.21^324.31^150.21^116918.571^150.21^139353.591^65154.461^799.51^150.21^94200.561^47189.381^105796.571^105727.591^140045.631^281823.901^219571.821^219677.821^150.21
40 ;;RSUM^106197.601^150.21^107902.601^47158.381^91308.541^93801.561^111002.591^46422.391^93279.521^92967.521^91173.521^90861.521^94326.561^134322.641^498.41^40590.371^55808.361^93279.521^92967.521^91173.521
41 ;;RSUM^90861.521^498.41^46555.391^93983.461^93279.521^92967.521^91173.521^90861.521^498.41^52280.411^85995.451^93279.521^92967.521^91173.521^90861.521^434.41^150.21^2260.81^150.21^3621.101^150.21^95348.581
42 ;;RSUM^150.21^194.21^150.21^2963.91^150.21^2079.71^434.41^44968.381^130008.621^194.21^150.21
43 ;;RND^OCXOSCR1^10/29/98 12:37
44 ;;RTN^OCXOSCR2^10/29/98 12:37
45 ;;RSUM^150.21^19835.241^150.21^194.21^150.21^121286.581^150.21^129081.571^68427.471^799.51^150.21^107902.601^47158.381^91308.541^93801.561^111002.591^68505.471^434.41^150.21^194.21^150.21^2963.91^150.21^2079.71
46 ;;RSUM^434.41^44968.381^130008.621^194.21^150.21
47 ;;RND^OCXOSCR2^10/29/98 12:37
48 ;;RTN^OCXOSCR3^10/29/98 12:37
49 ;;RSUM^150.21^194.21^150.21^17126.231^150.21^26873.271^150.21^2862.91^70180.491^86929.541^150.21^15321.221^40741.361^53603.411^150.21^80237.501^150.21^194.21^150.21
50 ;;RND^OCXOSCR3^10/29/98 12:37
51 ;;RTN^OCXOTIME^10/29/98 12:37
52 ;;RSUM^150.21^150.21^194.21^557.41^150.21^4541.111^150.21^40743.331^161931.711^184849.761^396605.1111^62630.411^97555.541^167652.681^23583.271^188912.791^23583.271^166374.731^23583.271^215185.831^459890.1221
53 ;;RSUM^78912.481^68083.451^108868.571^101665.581^15796.221^69804.441^150.21^194.21^150.21^4067.111^150.21^194.21^150.21^8787.161^14109.171^194.21^1964.71^150.21^70181.481^150.21^71110.481^150.21^8532.161
54 ;;RSUM^150.21^23513.261^194.21^150.21^2523.91^6727.131^14641.221^323976.1021^32323.341^120856.701^482.41^150.21
55 ;;RND^OCXOTIME^10/29/98 12:37
56 ;;RTN^OCXRU0^APR 30,1999 at 15:07
57 ;;RSUM^150.21^324.31^150.21^194.21^150.21^14914.211^150.21^7182.141^150.21^20963.241^150.21^46063.421^35263.341^150.21^155149.671^150.21^32755.341^2351.101^150.21^65467.461^7584.171^170380.721^22344.271^47501.381
58 ;;RSUM^150.21^1080.61^150.21^8516.161^150.21^82320.501^150.21^2210.81^150.21^121003.611^109266.581^37500.341^345062.1041^194.21^150.21^28416.291^150.21^49979.381^29081.291^93935.551^298373.901^347925.1021
59 ;;RSUM^374114.1041^4233.121^12333.191^144692.671^317493.1031^150.21^1365.61^150.21^19562.241^150.21^167868.771^802.51^150.21^10758.181^56613.441^52106.401^186524.811^452260.1221^354536.1071^4795.131^107721.611
60 ;1;
61 ;
Note: See TracBrowser for help on using the repository browser.