OCXDI00P.m

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

 ;

 Q

 ;

DATA ;

 ;

 ;;RSUM^11222.211^32012.301^2148.71^54864.391^11205.211^33105.301^11222.211^19637.231^2148.71^12929.201^42663.361^14607.201^11194.211^4884.111^9276.191^3292.91^11239.211^7628.141^88849.551^19637.231^88900.551

 ;;RSUM^33105.301^83735.531^20903.231^113778.621^32012.301^113836.621^30755.291^108006.601^20297.231^2148.71^25954.271^11194.211^12109.181^11239.211^7628.141^88849.551^19637.231^88900.551^33105.301^83735.531

 ;;RSUM^29464.271^2148.71^20446.241^11194.211^8392.151^11239.211^7628.141^88849.551^19637.231^88900.551^33105.301^83735.531^24939.251^2148.71^22384.251^11194.211^9610.161^11239.211^5796.121^78614.521^15217.201

 ;;RSUM^78662.521^15217.201^73782.501^9792.161^113778.621^32012.301^113836.621^26266.271^108006.601^28455.271^2148.71^34835.311^11194.211^18218.221^9276.191^8349.151^11239.211^7628.141^78614.521^15217.201

 ;;RSUM^78662.521^15217.201^73782.501^33332.301^2148.71^38095.341^11194.211^20911.251^9276.191^7931.151^11239.211^5675.121^78614.521^15217.201^78662.521^15217.201^73782.501^42325.331^2148.71^12912.201^37223.331

 ;;RSUM^74241.461^11183.211^48456.371^11200.211^19637.231^25177.321^1363.61^22225.301^8392.151^22251.301^10806.171^22277.301^4873.111^25200.321^1369.61^22248.301^4884.111^22274.301^533.41^150.21

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

 ;;RTN^OCXRU00A^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^150.21^150.21^194.21^150.21^1224.61^150.21^10115.161^22300.301^2130.71^25223.321^1375.61^22271.301^12109.181^22297.301

 ;;RSUM^6872.131^22323.301^7831.141^25246.321^1381.61^22294.301^20911.251^22320.301^10955.171^2148.71^85914.491^11183.211^57897.401^11200.211^19637.231^25177.321^1363.61^22225.301^8392.151^22251.301^10806.171

 ;;RSUM^22277.301^4873.111^25200.321^1369.61^22248.301^4884.111^22274.301^10115.161^22300.301^2130.71^25223.321^1375.61^22271.301^12109.181^22297.301^6872.131^22323.301^7831.141^25246.321^1381.61^22294.301

 ;;RSUM^20911.251^22320.301^11840.181^2148.71^12895.201^30370.301^19609.231^11172.211^7831.141^25146.321^6362.131^25174.321^18456.221^22194.301^48456.371^25169.321^9851.161^25197.321^18456.221^22217.301^57897.401

 ;;RSUM^25167.321^1363.61^22215.301^6362.131^22241.301^34841.301^22345.301^121270.541^25190.321^1369.61^22238.301^9851.161^22264.301^34841.301^22368.301^485346.1051^2148.71^12878.201^533.41^150.21

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

 ;;RTN^OCXRU00B^APR 30,1999 at 15:30

 ;;RSUM^150.21^324.31^150.21^8084.141^150.21^150.21^24215.261^190137.791^105365.591^150.21^5292.121^150.21^194.21^150.21^1224.61^150.21^25246.321^1381.61^22294.301^35740.321^22320.301^7464.141^22346.301^2109.81

 ;;RSUM^25269.321^1387.61^22317.301^29626.301^22343.301^10955.171^2148.71^36255.341^11183.211^19272.251^11200.211^19637.231^25177.321^1363.61^22225.301^35740.321^22251.301^10827.171^22277.301^3184.101^25200.321

 ;;RSUM^1369.61^22248.301^29626.301^22274.301^10955.171^2148.71^48988.371^11183.211^28603.281^11200.211^19637.231^25177.321^1363.61^22225.301^8392.151^22251.301^10806.171^22277.301^4873.111^25200.321^1369.61

 ;;RSUM^22248.301^4884.111^22274.301^10115.161^22300.301^2130.71^25269.321^1387.61^22317.301^11940.181^22343.301^10955.171^2148.71^58678.421^11183.211^36340.331^11200.211^19637.231^25292.321^1393.61^22340.301

 ;;RSUM^29626.301^22366.301^11840.181^2148.71^58946.421^11183.211^36518.331^11200.211^19637.231^25246.321^1381.61^22294.301^29774.301^22320.301^11840.181^2148.71^34322.331^11183.211^17843.241^11200.211^19637.231

 ;;RSUM^25246.321^1381.61^22294.301^35888.321^22320.301^7464.141^22346.301^2081.81^25269.321^1387.61^22317.301^29774.301^22343.301^10955.171^2148.71^49739.421^11183.211^29597.331^11200.211^19637.231^25246.321

 ;;RSUM^1381.61^22294.301^35888.321^22320.301^10827.171^22346.301^3230.101^25269.321^1387.61^22317.301^35888.321^22343.301^7464.141^22369.301^2121.81^25292.321^1393.61^22340.301^29774.301^22366.301^10955.171

 ;;RSUM^2148.71^36557.341^11183.211^19466.251^11200.211^19637.231^25177.321^1363.61^22225.301^35888.321^22251.301^10827.171^22277.301^3196.101^25200.321^1369.61^22248.301^29774.301^22274.301^10955.171^2148.71

 ;1;

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---OCXDI00P   4576     printed  Apr 09, 2024@21:24:58                                                                                                                                                                                                    Page 2

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

 +10      ;

 +11       QUIT 

 +12      ;

DATA      ;

 +1       ;

 +2       ;;RSUM^11222.211^32012.301^2148.71^54864.391^11205.211^33105.301^11222.211^19637.231^2148.71^12929.201^42663.361^14607.201^11194.211^4884.111^9276.191^3292.91^11239.211^7628.141^88849.551^19637.231^88900.551

 +3       ;;RSUM^33105.301^83735.531^20903.231^113778.621^32012.301^113836.621^30755.291^108006.601^20297.231^2148.71^25954.271^11194.211^12109.181^11239.211^7628.141^88849.551^19637.231^88900.551^33105.301^83735.531

 +4       ;;RSUM^29464.271^2148.71^20446.241^11194.211^8392.151^11239.211^7628.141^88849.551^19637.231^88900.551^33105.301^83735.531^24939.251^2148.71^22384.251^11194.211^9610.161^11239.211^5796.121^78614.521^15217.201

 +5       ;;RSUM^78662.521^15217.201^73782.501^9792.161^113778.621^32012.301^113836.621^26266.271^108006.601^28455.271^2148.71^34835.311^11194.211^18218.221^9276.191^8349.151^11239.211^7628.141^78614.521^15217.201

 +6       ;;RSUM^78662.521^15217.201^73782.501^33332.301^2148.71^38095.341^11194.211^20911.251^9276.191^7931.151^11239.211^5675.121^78614.521^15217.201^78662.521^15217.201^73782.501^42325.331^2148.71^12912.201^37223.331

 +7       ;;RSUM^74241.461^11183.211^48456.371^11200.211^19637.231^25177.321^1363.61^22225.301^8392.151^22251.301^10806.171^22277.301^4873.111^25200.321^1369.61^22248.301^4884.111^22274.301^533.41^150.21

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

 +9       ;;RTN^OCXRU00A^APR 30,1999 at 15:07

 +10      ;;RSUM^150.21^324.31^150.21^8084.141^150.21^150.21^24215.261^190137.791^105365.591^150.21^150.21^150.21^194.21^150.21^1224.61^150.21^10115.161^22300.301^2130.71^25223.321^1375.61^22271.301^12109.181^22297.301

 +11      ;;RSUM^6872.131^22323.301^7831.141^25246.321^1381.61^22294.301^20911.251^22320.301^10955.171^2148.71^85914.491^11183.211^57897.401^11200.211^19637.231^25177.321^1363.61^22225.301^8392.151^22251.301^10806.171

 +12      ;;RSUM^22277.301^4873.111^25200.321^1369.61^22248.301^4884.111^22274.301^10115.161^22300.301^2130.71^25223.321^1375.61^22271.301^12109.181^22297.301^6872.131^22323.301^7831.141^25246.321^1381.61^22294.301

 +13      ;;RSUM^20911.251^22320.301^11840.181^2148.71^12895.201^30370.301^19609.231^11172.211^7831.141^25146.321^6362.131^25174.321^18456.221^22194.301^48456.371^25169.321^9851.161^25197.321^18456.221^22217.301^57897.401

 +14      ;;RSUM^25167.321^1363.61^22215.301^6362.131^22241.301^34841.301^22345.301^121270.541^25190.321^1369.61^22238.301^9851.161^22264.301^34841.301^22368.301^485346.1051^2148.71^12878.201^533.41^150.21

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

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

 +17      ;;RSUM^150.21^324.31^150.21^8084.141^150.21^150.21^24215.261^190137.791^105365.591^150.21^5292.121^150.21^194.21^150.21^1224.61^150.21^25246.321^1381.61^22294.301^35740.321^22320.301^7464.141^22346.301^2109.81

 +18      ;;RSUM^25269.321^1387.61^22317.301^29626.301^22343.301^10955.171^2148.71^36255.341^11183.211^19272.251^11200.211^19637.231^25177.321^1363.61^22225.301^35740.321^22251.301^10827.171^22277.301^3184.101^25200.321

 +19      ;;RSUM^1369.61^22248.301^29626.301^22274.301^10955.171^2148.71^48988.371^11183.211^28603.281^11200.211^19637.231^25177.321^1363.61^22225.301^8392.151^22251.301^10806.171^22277.301^4873.111^25200.321^1369.61

 +20      ;;RSUM^22248.301^4884.111^22274.301^10115.161^22300.301^2130.71^25269.321^1387.61^22317.301^11940.181^22343.301^10955.171^2148.71^58678.421^11183.211^36340.331^11200.211^19637.231^25292.321^1393.61^22340.301

 +21      ;;RSUM^29626.301^22366.301^11840.181^2148.71^58946.421^11183.211^36518.331^11200.211^19637.231^25246.321^1381.61^22294.301^29774.301^22320.301^11840.181^2148.71^34322.331^11183.211^17843.241^11200.211^19637.231

 +22      ;;RSUM^25246.321^1381.61^22294.301^35888.321^22320.301^7464.141^22346.301^2081.81^25269.321^1387.61^22317.301^29774.301^22343.301^10955.171^2148.71^49739.421^11183.211^29597.331^11200.211^19637.231^25246.321

 +23      ;;RSUM^1381.61^22294.301^35888.321^22320.301^10827.171^22346.301^3230.101^25269.321^1387.61^22317.301^35888.321^22343.301^7464.141^22369.301^2121.81^25292.321^1393.61^22340.301^29774.301^22366.301^10955.171

 +24      ;;RSUM^2148.71^36557.341^11183.211^19466.251^11200.211^19637.231^25177.321^1363.61^22225.301^35888.321^22251.301^10827.171^22277.301^3196.101^25200.321^1369.61^22248.301^29774.301^22274.301^10955.171^2148.71

 +25      ;1;

 +26      ;