OCXDI00R.m

OCXDI00R ;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 ^OCXDI00S

 ;

 Q

 ;

DATA ;

 ;

 ;;RSUM^646.41^150.21^76418.481^150.21

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

 ;;RTN^OCXRU3^APR 30,1999 at 15:07

 ;;RSUM^150.21^324.31^25317.221^194.21^150.21^32797.311^150.21^150.21^63684.421^150.21^141098.701^227558.891^30509.321^150.21^9676.181^639222.1341^150.21^64901.441^82568.501^150.21^482.41^150.21^19533.241

 ;;RSUM^150.21^34434.311^150.21^9676.181^688709.1381^150.21^77911.531^210473.861^13919.231^52202.401^150.21^96215.581^50817.391^150.21^482.41^150.21^44766.361^150.21^10948.171^150.21^350912.1081^150.21^188279.741

 ;;RSUM^150.21^409710.1131^449939.1161^150.21^7737.151^217424.841^247076.871^6691.141^194.21^150.21^5498.131^310210.971^21116.251^194.21^150.21^4650.121^312667.981^52082.431^194.21^150.21^16756.221^62298.441

 ;;RSUM^42559.361^53585.411^150.21^33701.311^57533.391^11108.191^7863.151^30831.311^30899.311^29883.321^1992.71^70433.471^646.41^150.21^76418.481^150.21

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

 ;;RTN^OCXRU4^APR 30,1999 at 15:07

 ;;RSUM^150.21^324.31^18568.191^194.21^150.21^50059.381^150.21^40735.331^150.21^101437.601^17380.241^160879.731^23999.281^48598.401^2531.81^9323.171^732636.1451^144087.661^213222.801^150.21^2065.71^150.21

 ;;RSUM^47407.371^150.21^53696.381^150.21^101437.601^17380.241^160879.731^23999.281^9676.181^776560.1491^139741.651^100708.551^150.21^2065.71^150.21^44766.361^150.21^10948.171^150.21^350912.1081^150.21^188279.741

 ;;RSUM^150.21^409710.1131^449939.1161^150.21^7737.151^217424.841^247076.871^6691.141^194.21^150.21^5498.131^310210.971^21116.251^194.21^150.21^4650.121^312667.981^52082.431^194.21^150.21^16756.221^62298.441

 ;;RSUM^42559.361^53585.411^150.21^33701.311^57533.391^11108.191^7863.151^30831.311^30899.311^29883.321^1992.71^70433.471^646.41^150.21^76418.481^150.21

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

 ;;RTN^OCXRULE^APR 30,1999 at 15:07

 ;;RSUM^150.21^324.31^150.21^163935.691^150.21^1435.61^374594.1031^1798.81^678.51^113672.491^95861.491^285290.871^69790.461^120114.501^121003.611^139306.651^37500.341^345062.1041^6266.141^150.21^909.51^150.21

 ;;RSUM^36501.321^150.21^139987.671^132027.661^103136.571^153954.701^498.41^360455.1091^173584.771^91623.551^498.41^185781.741^38948.341^131294.611^16452.231^7772.151^63902.451^7210.151^9063.161^116854.571

 ;;RSUM^498.41^175297.721^150.21^14200.211^150.21^6544.141^12386.191^68380.471^94245.561^48732.381^150.21^127507.641^35697.291^279436.771^160943.651^150.21^194.21^150.21^40079.391^150.21^33701.311^57533.391

 ;;RSUM^11108.191^7863.151^30831.311^30899.311^29883.321^1992.71^70433.471^646.41^150.21

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

 ;;RTN^OCXSEND^8/04/98  13:21

 ;;RSUM^150.21^324.31^17096.221^35127.331^60996.421^19171.231^345012.1041^8688.171^8714.171^150.21^103594.471^150.21^284049.861^150.21^29566.311^678.51^140060.531^117764.521^301.31^1055361.1601^150.21^6512.131

 ;;RSUM^299200.821^206663.701^350568.891^468.41^150.21^1878.71^150.21^31879.281^150.21^59000.371^150.21^182102.651^150.21^175487.641^150.21^175577.641^150.21^175667.641^150.21^175757.641^150.21^175847.641

 ;;RSUM^150.21^48209.381^150.21^76370.441^150.21^194.21^150.21^24345.271^41556.331^9601.181^6555.141^25920.291^25984.291^17250.251^1992.71^70433.471^646.41^150.21^86079.541^150.21^3708.111^55911.421^39072.361

 ;;RSUM^2804.91^150.21^1243.61^150.21^97991.461^6457.131^2933.91^260482.821^150.21^79931.511^18807.251^39228.341^150.21^167467.741^18807.251^39228.341^150.21^197670.811^18807.251^39228.341^150.21^103208.551

 ;;RSUM^150.21^194.21^150.21^5099.131^150.21^636.41^25602.291^59094.461^150.21^212769.821^150.21

 ;;RND^OCXSEND^8/04/98  13:21

 ;;RTN^OCXSEND1^8/04/98  13:21

 ;;RSUM^150.21^324.31^150.21^9234.161^150.21^207074.811^150.21^194.21^150.21^9661.171^150.21^60480.411^208522.801^57460.431^517486.1231^189636.851^4720.121^97455.551^22341.271^135587.661^150.21^6542.151^255620.801

 ;;RSUM^91118.451^236339.891^8076.161^17042.241^159411.721^214823.901^112659.561^151719.741^5398.131^150.21^8815.181^38026.321^5500.131^125309.671^16000.231^18239.231^114036.631^38964.341^22454.281^112890.601

 ;;RSUM^71649.481^27947.291^43052.361^45521.371^150.21^108384.561^5629.141^38923.341^41298.351^150.21^486.41^150.21^1716.71^150.21^38152.361^97809.571^109360.591^31493.321^38683.351^36369.341^36322.341^32308.321

 ;1;

 ;

OCXDI00R  ;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 ^OCXDI00S

 +10      ;

 +11       QUIT 

 +12      ;

DATA      ;

 +1       ;

 +2       ;;RSUM^646.41^150.21^76418.481^150.21

 +3       ;;RND^OCXRU2^APR 30,1999 at 15:07

 +4       ;;RTN^OCXRU3^APR 30,1999 at 15:07

 +5       ;;RSUM^150.21^324.31^25317.221^194.21^150.21^32797.311^150.21^150.21^63684.421^150.21^141098.701^227558.891^30509.321^150.21^9676.181^639222.1341^150.21^64901.441^82568.501^150.21^482.41^150.21^19533.241

 +6       ;;RSUM^150.21^34434.311^150.21^9676.181^688709.1381^150.21^77911.531^210473.861^13919.231^52202.401^150.21^96215.581^50817.391^150.21^482.41^150.21^44766.361^150.21^10948.171^150.21^350912.1081^150.21^188279.741

 +7       ;;RSUM^150.21^409710.1131^449939.1161^150.21^7737.151^217424.841^247076.871^6691.141^194.21^150.21^5498.131^310210.971^21116.251^194.21^150.21^4650.121^312667.981^52082.431^194.21^150.21^16756.221^62298.441

 +8       ;;RSUM^42559.361^53585.411^150.21^33701.311^57533.391^11108.191^7863.151^30831.311^30899.311^29883.321^1992.71^70433.471^646.41^150.21^76418.481^150.21

 +9       ;;RND^OCXRU3^APR 30,1999 at 15:07

 +10      ;;RTN^OCXRU4^APR 30,1999 at 15:07

 +11      ;;RSUM^150.21^324.31^18568.191^194.21^150.21^50059.381^150.21^40735.331^150.21^101437.601^17380.241^160879.731^23999.281^48598.401^2531.81^9323.171^732636.1451^144087.661^213222.801^150.21^2065.71^150.21

 +12      ;;RSUM^47407.371^150.21^53696.381^150.21^101437.601^17380.241^160879.731^23999.281^9676.181^776560.1491^139741.651^100708.551^150.21^2065.71^150.21^44766.361^150.21^10948.171^150.21^350912.1081^150.21^188279.741

 +13      ;;RSUM^150.21^409710.1131^449939.1161^150.21^7737.151^217424.841^247076.871^6691.141^194.21^150.21^5498.131^310210.971^21116.251^194.21^150.21^4650.121^312667.981^52082.431^194.21^150.21^16756.221^62298.441

 +14      ;;RSUM^42559.361^53585.411^150.21^33701.311^57533.391^11108.191^7863.151^30831.311^30899.311^29883.321^1992.71^70433.471^646.41^150.21^76418.481^150.21

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

 +16      ;;RTN^OCXRULE^APR 30,1999 at 15:07

 +17      ;;RSUM^150.21^324.31^150.21^163935.691^150.21^1435.61^374594.1031^1798.81^678.51^113672.491^95861.491^285290.871^69790.461^120114.501^121003.611^139306.651^37500.341^345062.1041^6266.141^150.21^909.51^150.21

 +18      ;;RSUM^36501.321^150.21^139987.671^132027.661^103136.571^153954.701^498.41^360455.1091^173584.771^91623.551^498.41^185781.741^38948.341^131294.611^16452.231^7772.151^63902.451^7210.151^9063.161^116854.571

 +19      ;;RSUM^498.41^175297.721^150.21^14200.211^150.21^6544.141^12386.191^68380.471^94245.561^48732.381^150.21^127507.641^35697.291^279436.771^160943.651^150.21^194.21^150.21^40079.391^150.21^33701.311^57533.391

 +20      ;;RSUM^11108.191^7863.151^30831.311^30899.311^29883.321^1992.71^70433.471^646.41^150.21

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

 +22      ;;RTN^OCXSEND^8/04/98  13:21

 +23      ;;RSUM^150.21^324.31^17096.221^35127.331^60996.421^19171.231^345012.1041^8688.171^8714.171^150.21^103594.471^150.21^284049.861^150.21^29566.311^678.51^140060.531^117764.521^301.31^1055361.1601^150.21^6512.131

 +24      ;;RSUM^299200.821^206663.701^350568.891^468.41^150.21^1878.71^150.21^31879.281^150.21^59000.371^150.21^182102.651^150.21^175487.641^150.21^175577.641^150.21^175667.641^150.21^175757.641^150.21^175847.641

 +25      ;;RSUM^150.21^48209.381^150.21^76370.441^150.21^194.21^150.21^24345.271^41556.331^9601.181^6555.141^25920.291^25984.291^17250.251^1992.71^70433.471^646.41^150.21^86079.541^150.21^3708.111^55911.421^39072.361

 +26      ;;RSUM^2804.91^150.21^1243.61^150.21^97991.461^6457.131^2933.91^260482.821^150.21^79931.511^18807.251^39228.341^150.21^167467.741^18807.251^39228.341^150.21^197670.811^18807.251^39228.341^150.21^103208.551

 +27      ;;RSUM^150.21^194.21^150.21^5099.131^150.21^636.41^25602.291^59094.461^150.21^212769.821^150.21

 +28      ;;RND^OCXSEND^8/04/98  13:21

 +29      ;;RTN^OCXSEND1^8/04/98  13:21

 +30      ;;RSUM^150.21^324.31^150.21^9234.161^150.21^207074.811^150.21^194.21^150.21^9661.171^150.21^60480.411^208522.801^57460.431^517486.1231^189636.851^4720.121^97455.551^22341.271^135587.661^150.21^6542.151^255620.801

 +31      ;;RSUM^91118.451^236339.891^8076.161^17042.241^159411.721^214823.901^112659.561^151719.741^5398.131^150.21^8815.181^38026.321^5500.131^125309.671^16000.231^18239.231^114036.631^38964.341^22454.281^112890.601

 +32      ;;RSUM^71649.481^27947.291^43052.361^45521.371^150.21^108384.561^5629.141^38923.341^41298.351^150.21^486.41^150.21^1716.71^150.21^38152.361^97809.571^109360.591^31493.321^38683.351^36369.341^36322.341^32308.321

 +33      ;1;

 +34      ;