48 lines
4.4 KiB
Mathematica
48 lines
4.4 KiB
Mathematica
|
OCXDI00N ;SLC/RJS,CLA - OCX PACKAGE DIAGNOSTIC ROUTINES ;SEP 7,1999 at 10:29
|
||
|
|
;;3.0;ORDER ENTRY/RESULTS REPORTING;**32**;Dec 17,1997
|
||
|
|
;; ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
|
||
|
|
;
|
||
|
|
S ;
|
||
|
|
;
|
||
|
|
D DOT^OCXDIAG
|
||
|
|
;
|
||
|
|
;
|
||
|
|
K REMOTE,LOCAL,OPCODE,REF
|
||
|
|
F LINE=1:1:500 S TEXT=$P($T(DATA+LINE),";",2,999) Q:TEXT I $L(TEXT) D Q:QUIT
|
||
|
|
.S ^TMP("OCXDIAG",$J,$O(^TMP("OCXDIAG",$J,"A"),-1)+1)=TEXT
|
||
|
|
;
|
||
|
|
G ^OCXDI00O
|
||
|
|
;
|
||
|
|
Q
|
||
|
|
;
|
||
|
|
DATA ;
|
||
|
|
;
|
||
|
|
;;RSUM^11278.211^4884.111^11295.211^1810.71^25279.321^18940.231^22327.301^5014.111^25302.321^30000.291^22350.301^1363.61^2148.71^50482.361^11210.211^29464.271^11227.211^5889.121^11261.211^2767.81^11278.211
|
||
|
|
;;RSUM^8708.151^11295.211^1810.71^25279.321^34849.311^22327.301^1387.61^25302.321^30000.291^22350.301^1369.61^25325.321^18940.231^22373.301^5014.111^2148.71^44463.341^11210.211^24939.251^11227.211^5889.121
|
||
|
|
;;RSUM^11261.211^2767.81^11278.211^8392.151^11295.211^1810.71^25279.321^18940.231^22327.301^5113.111^2148.71^55178.391^11210.211^33332.301^11227.211^5889.121^11278.211^18218.221^25279.321^37199.321^22327.301
|
||
|
|
;;RSUM^28976.291^25302.321^34849.311^22350.301^533.41^150.21
|
||
|
|
;;RND^OCXRU004^APR 30,1999 at 15:07
|
||
|
|
;;RTN^OCXRU005^APR 30,1999 at 15:07
|
||
|
|
;;RSUM^150.21^324.31^150.21^8084.141^150.21^150.21^24215.261^190137.791^105365.591^150.21^5136.121^150.21^194.21^150.21^1224.61^150.21^1369.61^2148.71^67006.421^11210.211^42325.331^11227.211^5889.121^11278.211
|
||
|
|
;;RSUM^13616.201^11295.211^2266.81^25279.321^37199.321^22327.301^28550.281^25302.321^34849.311^22350.301^1363.61^2148.71^12940.201^52628.391^45442.361^11249.211^25975.271^11266.211^3586.111^2148.71^28313.281
|
||
|
|
;;RSUM^11249.211^13580.191^11266.211^1736.71^2148.71^10500.171^11249.211^2679.81^11266.211^3586.111^2148.71^10631.171^11249.211^2729.81^11266.211^3586.111^2148.71^23288.261^11249.211^10256.171^11266.211^2539.91
|
||
|
|
;;RSUM^2148.71^61879.411^11249.211^38380.321^11266.211^3586.111^2148.71^33233.301^11249.211^16781.211^11266.211^3586.111^2148.71^33052.301^11249.211^16789.211^11266.211^1729.71^2148.71^28786.281^11249.211
|
||
|
|
;;RSUM^13801.191^11266.211^1736.71^2148.71^39832.331^11249.211^21688.241^11266.211^1729.71^2148.71^10338.171^11249.211^2589.81^11266.211^1729.71^2148.71^12997.201^69027.441^126058.601^11238.211^91663.511
|
||
|
|
;;RSUM^11255.211^4826.111^7687.171^369658.901^7704.171^257243.741^7721.171^324786.831^9457.191^369658.901^9476.191^257243.741^9495.191^324786.831^9514.191^2835.101^9533.191^21624.281^9552.191^26656.281^9571.191
|
||
|
|
;;RSUM^151111.731^9590.191^73022.491^9609.191^21879.271^10417.201^108784.611^10437.201^109002.611^10457.201^66008.471^10477.201^42085.401^10497.201^108784.611^10517.201^109002.611^10537.201^829262.1631^10557.201
|
||
|
|
;;RSUM^109266.591^10577.201^371639.1111^10597.201^389035.1121^10436.201^86401.531^10456.201^94175.531^10476.201^262181.961^10496.201^8822.161^10516.201^2835.101^2148.71^129426.611^11238.211^94563.521^11255.211
|
||
|
|
;;RSUM^4779.111^7687.171^409304.951^7704.171^374182.991^533.41^150.21
|
||
|
|
;;RND^OCXRU005^APR 30,1999 at 15:07
|
||
|
|
;;RTN^OCXRU006^APR 30,1999 at 15:07
|
||
|
|
;;RSUM^150.21^324.31^150.21^8084.141^150.21^150.21^24215.261^190137.791^105365.591^150.21^5148.121^150.21^194.21^150.21^1224.61^150.21^7721.171^2835.101^9457.191^409304.951^9476.191^374182.991^9495.191^2835.101
|
||
|
|
;;RSUM^9514.191^60501.451^9533.191^155642.651^9552.191^165471.691^9571.191^90563.531^9590.191^90724.531^9609.191^87257.521^10417.201^67573.501^10437.201^88847.531^10457.201^208074.761^10477.201^137646.671
|
||
|
|
;;RSUM^10497.201^193153.791^10517.201^97261.541^10537.201^73314.471^10557.201^733961.1251^10577.201^45520.391^10597.201^201221.791^10436.201^83305.501^10456.201^436002.1181^10476.201^387028.1051^10496.201
|
||
|
|
;;RSUM^51613.381^10516.201^2835.101^2148.71^70376.451^11238.211^45548.361^11255.211^5802.121^9457.191^219868.721^9476.191^2835.101^9495.191^2835.101^9514.191^3983.121^9533.191^2835.101^2148.71^42640.341^11238.211
|
||
|
|
;;RSUM^23788.251^11255.211^5010.111^9457.191^24170.271^9476.191^2835.101^9495.191^279751.951^9514.191^13923.201^9533.191^2835.101^9552.191^71741.461^9571.191^10377.181^9590.191^410517.1051^9609.191^574138.1241
|
||
|
|
;;RSUM^10417.201^308984.981^10437.201^70781.501^10457.201^4386.121^10477.201^167923.681^10497.201^2835.101^2148.71^88190.511^11238.211^60293.421^11255.211^3229.91^7687.171^264573.781^7704.171^112231.511^7721.171
|
||
|
|
;;RSUM^2835.101^9457.191^441689.991^9476.191^2835.101^9495.191^432405.1191^9514.191^261018.851^9533.191^56560.421^9552.191^2835.101^9571.191^48760.391^9590.191^2835.101^9609.191^533.41^150.21
|
||
|
|
;;RND^OCXRU006^APR 30,1999 at 15:07
|
||
|
|
;;RTN^OCXRU007^APR 30,1999 at 15:07
|
||
|
|
;1;
|
||
|
|
;
|