OCXDI00N.m

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;

 ;

OCXDI00N  ;SLC/RJS,CLA - OCX PACKAGE DIAGNOSTIC ROUTINES ;SEP 7,1999 at 10:29

 +1       ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32**;Dec 17,1997

 +2       ;;  ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998

 +3       ;

S         ;

 +1       ;

 +2        DO DOT^OCXDIAG

 +3       ;

 +4       ;

 +5        KILL REMOTE,LOCAL,OPCODE,REF

 +6        FOR LINE=1:1:500

               SET TEXT=$PIECE($TEXT(DATA+LINE),";",2,999)

               IF TEXT

                   QUIT 

               IF $LENGTH(TEXT)

                   Begin DoDot:1

 +7                    SET ^TMP("OCXDIAG",$JOB,$ORDER(^TMP("OCXDIAG",$JOB,"A"),-1)+1)=TEXT

                   End DoDot:1

                   IF QUIT

                       QUIT 

 +8       ;

 +9        GOTO ^OCXDI00O

 +10      ;

 +11       QUIT 

 +12      ;

DATA      ;

 +1       ;

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

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

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

 +5       ;;RSUM^28976.291^25302.321^34849.311^22350.301^533.41^150.21

 +6       ;;RND^OCXRU004^APR 30,1999 at 15:07

 +7       ;;RTN^OCXRU005^APR 30,1999 at 15:07

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

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

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

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

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

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

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

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

 +16      ;;RSUM^4779.111^7687.171^409304.951^7704.171^374182.991^533.41^150.21

 +17      ;;RND^OCXRU005^APR 30,1999 at 15:07

 +18      ;;RTN^OCXRU006^APR 30,1999 at 15:07

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

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

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

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

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

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

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

 +26      ;;RND^OCXRU006^APR 30,1999 at 15:07

 +27      ;;RTN^OCXRU007^APR 30,1999 at 15:07

 +28      ;1;

 +29      ;