source: WorldVistAEHR/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXDI00N.m@ 813

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;
 ;