source: FOIAVistA/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXDI00O.m@ 1521

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

initial load of FOIAVistA 6/30/08 version
File size: 4.5 KB
Line 
1OCXDI00O ;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 ^OCXDI00P
15 ;
16 Q
17 ;
18DATA ;
19 ;
20 ;;RSUM^150.21^324.31^150.21^8084.141^150.21^150.21^24215.261^190137.791^105365.591^150.21^5160.121^150.21^194.21^150.21^1224.61^150.21^33994.321^10417.201^179387.761^10437.201^177217.721^10457.201^265369.1001
21 ;;RSUM^10477.201^2835.101^10497.201^65995.451^10517.201^2835.101^10537.201^3983.121^10557.201^2835.101^2148.71^52457.381^11238.211^31247.291^11255.211^4195.101^9457.191^13313.201^9476.191^2835.101^9495.191
22 ;;RSUM^39227.341^9514.191^274424.811^9533.191^235586.871^9552.191^9758.171^9571.191^2835.101^2148.71^77590.481^11238.211^51628.391^11255.211^5616.121^9457.191^359386.891^9476.191^2835.101^9495.191^29767.311
23 ;;RSUM^9514.191^383338.1101^9533.191^6348.141^9552.191^2835.101^2148.71^33048.301^11238.211^16932.211^11255.211^3456.91^9457.191^105475.571^9476.191^2835.101^9495.191^147155.771^9514.191^321304.1031^9533.191
24 ;;RSUM^16439.221^9552.191^2835.101^2148.71^34965.311^11238.211^18291.221^11255.211^7050.131^7687.171^1261.61^7704.171^216378.681^7721.171^187446.651^7738.171^31621.271^7755.171^1261.61^9457.191^42690.351
25 ;;RSUM^9476.191^2835.101^9495.191^3055.101^9514.191^2835.101^2148.71^32184.301^11238.211^16284.211^11255.211^5968.121^9457.191^652018.1211^9476.191^2835.101^9495.191^689259.1501^9514.191^2835.101^9533.191
26 ;;RSUM^48507.401^9552.191^120563.641^9571.191^67068.441^9590.191^2835.101^9609.191^140328.621^10417.201^2835.101^10437.201^17751.241^10457.201^45653.361^10477.201^2835.101^10497.201^179212.731^10517.201^2835.101
27 ;;RSUM^10537.201^11056.181^10557.201^41987.351^10577.201^50547.401^10597.201^149115.661^10436.201^2835.101^10456.201^27740.301^10476.201^220618.821^10496.201^67229.451^10516.201^2835.101^10536.201^11056.181
28 ;;RSUM^10556.201^126106.591^10576.201^50105.381^10596.201^52216.401^10616.201^48018.381^10455.201^533.41^150.21
29 ;;RND^OCXRU007^APR 30,1999 at 15:07
30 ;;RTN^OCXRU008^APR 30,1999 at 15:07
31 ;;RSUM^150.21^324.31^150.21^8084.141^150.21^150.21^24215.261^190137.791^105365.591^150.21^5172.121^150.21^194.21^150.21^1224.61^150.21^281068.941^10475.201^91035.531^10495.201^2835.101^10515.201^11056.181
32 ;;RSUM^10535.201^42593.351^10555.201^51208.401^10575.201^48866.381^10595.201^175658.711^10615.201^89169.531^10635.201^2835.101^10474.201^211922.831^10494.201^3354.111^10514.201^10644.181^10534.201^53132.401
33 ;;RSUM^10554.201^12139.191^10574.201^44072.361^10594.201^60464.421^10614.201^66192.451^10634.201^52820.411^10654.201^111402.581^10493.201^323298.1011^10513.201^102048.571^10533.201^3354.111^10553.201^249743.881
34 ;;RSUM^10573.201^11715.191^10593.201^57506.421^10613.201^13268.201^10633.201^46163.371^10653.201^178433.731^10673.201^55094.421^10512.201^354649.1061^10532.201^108606.591^10552.201^2835.101^10572.201^3995.121
35 ;;RSUM^10592.201^2835.101^10612.201^173731.671^10632.201^111578.531^10652.201^72089.471^10672.201^221838.871^10692.201^15377.211^10531.201^141229.641^10551.201^2835.101^10571.201^3055.101^10591.201^2835.101
36 ;;RSUM^10611.201^2835.101^2148.71^50845.381^11238.211^30211.291^11255.211^4760.111^9457.191^21990.261^9476.191^2835.101^9495.191^12332.211^9514.191^128933.621^9533.191^3571.121^2148.71^49380.371^11238.211
37 ;;RSUM^28764.281^11255.211^5971.121^7687.171^403018.951^7704.171^62581.401^9457.191^403018.951^9476.191^62581.401^9495.191^158628.781^9514.191^50007.431^9533.191^8520.161^9552.191^86598.501^9571.191^167552.741
38 ;;RSUM^9590.191^317023.1061^9609.191^50488.431^10417.201^2835.101^2148.71^96922.531^11238.211^67126.441^11255.211^4174.101^9457.191^207267.791^9476.191^2835.101^533.41^150.21
39 ;;RND^OCXRU008^APR 30,1999 at 15:07
40 ;;RTN^OCXRU009^APR 30,1999 at 15:07
41 ;;RSUM^150.21^324.31^150.21^8084.141^150.21^150.21^24215.261^190137.791^105365.591^150.21^5268.121^150.21^194.21^150.21^1224.61^150.21^9495.191^94320.591^9514.191^216831.871^9533.191^6507.151^2148.71^12980.201
42 ;;RSUM^49859.381^36890.321^11216.211^19637.231^11233.211^3413.91^9298.191^9677.161^2148.71^30589.291^11216.211^15217.201^11233.211^2009.71^9298.191^13728.191^2148.71^53117.391^11216.211^32012.301^11233.211
43 ;;RSUM^2473.81^9298.191^9677.161^2148.71^12946.201^46560.371^30577.291^11205.211^15217.201^11222.211^15217.201^2148.71^51479.381^11205.211^30755.291^11222.211^32012.301^2148.71^45523.361^11205.211^26266.271
44 ;1;
45 ;
Note: See TracBrowser for help on using the repository browser.