OCXDI00O.m

OCXDI00O ;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 ^OCXDI00P

 ;

 Q

 ;

DATA ;

 ;

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

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

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

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

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

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

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

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

 ;;RSUM^10556.201^126106.591^10576.201^50105.381^10596.201^52216.401^10616.201^48018.381^10455.201^533.41^150.21

 ;;RND^OCXRU007^APR 30,1999 at 15:07

 ;;RTN^OCXRU008^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^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

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

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

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

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

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

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

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

 ;;RND^OCXRU008^APR 30,1999 at 15:07

 ;;RTN^OCXRU009^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^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

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

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

 ;1;

 ;

OCXDI00O  ;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 ^OCXDI00P

 +10      ;

 +11       QUIT 

 +12      ;

DATA      ;

 +1       ;

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

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

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

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

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

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

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

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

 +10      ;;RSUM^10556.201^126106.591^10576.201^50105.381^10596.201^52216.401^10616.201^48018.381^10455.201^533.41^150.21

 +11      ;;RND^OCXRU007^APR 30,1999 at 15:07

 +12      ;;RTN^OCXRU008^APR 30,1999 at 15:07

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

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

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

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

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

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

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

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

 +21      ;;RND^OCXRU008^APR 30,1999 at 15:07

 +22      ;;RTN^OCXRU009^APR 30,1999 at 15:07

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

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

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

 +26      ;1;

 +27      ;