OCXDI00L.m

OCXDI00L ;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 ^OCXDI00M

 ;

 Q

 ;

DATA ;

 ;

 ;;RSUM^1755.71^150.21^18233.241^150.21^20607.281^5711.131^25460.291^15551.231^150.21^128567.651^135675.671^20314.261^150.21^259609.971^59758.441^159348.721^150.21^194.21^150.21^28308.321^150.21^13339.201

 ;;RSUM^117911.621^194.21^150.21^76418.481^150.21^342244.1081^150.21

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

 ;;RTN^OCXRU001^APR 30,1999 at 15:06

 ;;RSUM^150.21^324.31^150.21^8084.141^150.21^150.21^24215.261^190137.791^105365.591^150.21^5088.121^150.21^194.21^150.21^1224.61^150.21^66799.451^73144.471^84594.511^86047.511^90427.521^115587.581^94357.531

 ;;RSUM^46380.371^73914.471^60929.431^54821.411^68057.451^58383.421^57924.421^87768.511^67670.451^104419.551^83876.491^64250.441^119865.601^118249.591^76644.481^33101.311^33251.301^11265.211^16880.211^11282.211

 ;;RSUM^3277.91^7714.171^1261.61^7731.171^154489.621^7748.171^41247.291^7765.171^1261.61^2148.71^19018.231^11265.211^7507.141^11282.211^7507.141^7714.171^179756.681^25591.321^4330.101^22639.301^27048.231^25614.321

 ;;RSUM^2524.81^22662.301^3103.101^25637.321^7507.141^22685.301^31166.301^25660.321^29102.281^22708.301^2659.81^2148.71^10183.171^11265.211^2524.81^11282.211^2524.81^7714.171^179961.631^25476.321^7507.141

 ;;RSUM^22524.301^31166.301^25499.321^2524.81^22547.301^1363.61^25522.321^4330.101^22570.301^123587.511^2148.71^49514.371^11265.211^29102.281^11282.211^4061.101^7714.171^229401.721^7731.171^24249.221^25476.321

 ;;RSUM^7507.141^22524.301^7628.141^25499.321^4330.101^22547.301^62883.361^25522.321^10832.171^22570.301^658987.1251^2148.71^11608.181^11265.211^3229.91^11282.211^3229.91^7714.171^77461.411^25591.321^4330.101

 ;;RSUM^22639.301^3997.91^25614.321^7507.141^22662.301^31166.301^25637.321^2524.81^22685.301^1363.61^2148.71^15538.211^11265.211^5440.121^11282.211^5440.121^7714.171^377957.901^25545.321^4330.101^22593.301

 ;;RSUM^154845.581^25568.321^7507.141^22616.301^6228.131^2148.71^52219.381^11265.211^31105.291^11282.211^3340.91^7714.171^58782.341^9362.191^2157.81^25522.321^4330.101^22570.301^76954.391^25545.321^5440.121

 ;;RSUM^22593.301^8887.151^25568.321^7507.141^22616.301^16907.211^2148.71^24233.261^11265.211^10832.171^11282.211^3312.91^7714.171^251445.731^533.41^150.21

 ;;RND^OCXRU001^APR 30,1999 at 15:06

 ;;RTN^OCXRU002^APR 30,1999 at 15:06

 ;;RSUM^150.21^324.31^150.21^8084.141^150.21^150.21^24215.261^190137.791^105365.591^150.21^5100.121^150.21^194.21^150.21^1224.61^150.21^7731.171^8298.131^27030.331^4330.101^23984.311^46716.311^25637.321^7507.141

 ;;RSUM^22685.301^7628.141^25660.321^5440.121^22708.301^8859.151^2148.71^21596.241^11265.211^9041.151^11282.211^9041.151^7714.171^178883.601^25476.321^7507.141^22524.301^7628.141^25499.321^4330.101^22547.301

 ;;RSUM^34646.261^25522.321^10832.171^22570.301^190193.631^2148.71^35232.311^11265.211^18321.221^11282.211^6308.131^7714.171^199682.641^9362.191^168112.621^25545.321^4330.101^22593.301^16659.181^25568.321

 ;;RSUM^7507.141^22616.301^7628.141^2148.71^46170.361^11265.211^26577.271^2148.71^60248.411^11265.211^37199.321^2148.71^34856.311^11265.211^18179.221^2148.71^60071.411^11265.211^37247.321^11282.211^2602.81

 ;;RSUM^2148.71^37549.331^11265.211^20206.241^11282.211^6451.131^2148.71^57097.401^11265.211^34849.311^2148.71^35959.321^11265.211^18940.231^2148.71^50655.381^11265.211^30000.291^2148.71^35900.321^11265.211

 ;;RSUM^18863.231^11282.211^3949.101^7714.171^1261.61^7731.171^160584.571^7748.171^22116.221^7765.171^1261.61^2148.71^13771.191^11265.211^4330.101^11282.211^4330.101^7714.171^285630.811^25476.321^7507.141

 ;;RSUM^22524.301^7628.141^25499.321^4330.101^22547.301^72559.391^2148.71^32720.301^11265.211^16637.211^11282.211^3430.91^7714.171^185886.631^25476.321^7507.141^22524.301^4687.111^25499.321^10832.171^22547.301

 ;;RSUM^216406.681^25522.321^4330.101^22570.301^40626.281^2148.71^21945.241^11265.211^9201.151^11282.211^9201.151^7714.171^89272.521^9362.191^1417.61^25545.321^4330.101^22593.301^57006.331^25568.321^7507.141

 ;;RSUM^22616.301^7628.141^25591.321^31105.291^22639.301^1411.61^2148.71^20368.241^11265.211^8308.151^11282.211^6221.131^7714.171^316451.811^25522.321^4330.101^22570.301^25740.221^25545.321^7507.141^22593.301

 ;1;

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---OCXDI00L   4594     printed  Apr 09, 2024@21:30:15                                                                                                                                                                                                    Page 2

OCXDI00L  ;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 ^OCXDI00M

 +10      ;

 +11       QUIT 

 +12      ;

DATA      ;

 +1       ;

 +2       ;;RSUM^1755.71^150.21^18233.241^150.21^20607.281^5711.131^25460.291^15551.231^150.21^128567.651^135675.671^20314.261^150.21^259609.971^59758.441^159348.721^150.21^194.21^150.21^28308.321^150.21^13339.201

 +3       ;;RSUM^117911.621^194.21^150.21^76418.481^150.21^342244.1081^150.21

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

 +5       ;;RTN^OCXRU001^APR 30,1999 at 15:06

 +6       ;;RSUM^150.21^324.31^150.21^8084.141^150.21^150.21^24215.261^190137.791^105365.591^150.21^5088.121^150.21^194.21^150.21^1224.61^150.21^66799.451^73144.471^84594.511^86047.511^90427.521^115587.581^94357.531

 +7       ;;RSUM^46380.371^73914.471^60929.431^54821.411^68057.451^58383.421^57924.421^87768.511^67670.451^104419.551^83876.491^64250.441^119865.601^118249.591^76644.481^33101.311^33251.301^11265.211^16880.211^11282.211

 +8       ;;RSUM^3277.91^7714.171^1261.61^7731.171^154489.621^7748.171^41247.291^7765.171^1261.61^2148.71^19018.231^11265.211^7507.141^11282.211^7507.141^7714.171^179756.681^25591.321^4330.101^22639.301^27048.231^25614.321

 +9       ;;RSUM^2524.81^22662.301^3103.101^25637.321^7507.141^22685.301^31166.301^25660.321^29102.281^22708.301^2659.81^2148.71^10183.171^11265.211^2524.81^11282.211^2524.81^7714.171^179961.631^25476.321^7507.141

 +10      ;;RSUM^22524.301^31166.301^25499.321^2524.81^22547.301^1363.61^25522.321^4330.101^22570.301^123587.511^2148.71^49514.371^11265.211^29102.281^11282.211^4061.101^7714.171^229401.721^7731.171^24249.221^25476.321

 +11      ;;RSUM^7507.141^22524.301^7628.141^25499.321^4330.101^22547.301^62883.361^25522.321^10832.171^22570.301^658987.1251^2148.71^11608.181^11265.211^3229.91^11282.211^3229.91^7714.171^77461.411^25591.321^4330.101

 +12      ;;RSUM^22639.301^3997.91^25614.321^7507.141^22662.301^31166.301^25637.321^2524.81^22685.301^1363.61^2148.71^15538.211^11265.211^5440.121^11282.211^5440.121^7714.171^377957.901^25545.321^4330.101^22593.301

 +13      ;;RSUM^154845.581^25568.321^7507.141^22616.301^6228.131^2148.71^52219.381^11265.211^31105.291^11282.211^3340.91^7714.171^58782.341^9362.191^2157.81^25522.321^4330.101^22570.301^76954.391^25545.321^5440.121

 +14      ;;RSUM^22593.301^8887.151^25568.321^7507.141^22616.301^16907.211^2148.71^24233.261^11265.211^10832.171^11282.211^3312.91^7714.171^251445.731^533.41^150.21

 +15      ;;RND^OCXRU001^APR 30,1999 at 15:06

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

 +17      ;;RSUM^150.21^324.31^150.21^8084.141^150.21^150.21^24215.261^190137.791^105365.591^150.21^5100.121^150.21^194.21^150.21^1224.61^150.21^7731.171^8298.131^27030.331^4330.101^23984.311^46716.311^25637.321^7507.141

 +18      ;;RSUM^22685.301^7628.141^25660.321^5440.121^22708.301^8859.151^2148.71^21596.241^11265.211^9041.151^11282.211^9041.151^7714.171^178883.601^25476.321^7507.141^22524.301^7628.141^25499.321^4330.101^22547.301

 +19      ;;RSUM^34646.261^25522.321^10832.171^22570.301^190193.631^2148.71^35232.311^11265.211^18321.221^11282.211^6308.131^7714.171^199682.641^9362.191^168112.621^25545.321^4330.101^22593.301^16659.181^25568.321

 +20      ;;RSUM^7507.141^22616.301^7628.141^2148.71^46170.361^11265.211^26577.271^2148.71^60248.411^11265.211^37199.321^2148.71^34856.311^11265.211^18179.221^2148.71^60071.411^11265.211^37247.321^11282.211^2602.81

 +21      ;;RSUM^2148.71^37549.331^11265.211^20206.241^11282.211^6451.131^2148.71^57097.401^11265.211^34849.311^2148.71^35959.321^11265.211^18940.231^2148.71^50655.381^11265.211^30000.291^2148.71^35900.321^11265.211

 +22      ;;RSUM^18863.231^11282.211^3949.101^7714.171^1261.61^7731.171^160584.571^7748.171^22116.221^7765.171^1261.61^2148.71^13771.191^11265.211^4330.101^11282.211^4330.101^7714.171^285630.811^25476.321^7507.141

 +23      ;;RSUM^22524.301^7628.141^25499.321^4330.101^22547.301^72559.391^2148.71^32720.301^11265.211^16637.211^11282.211^3430.91^7714.171^185886.631^25476.321^7507.141^22524.301^4687.111^25499.321^10832.171^22547.301

 +24      ;;RSUM^216406.681^25522.321^4330.101^22570.301^40626.281^2148.71^21945.241^11265.211^9201.151^11282.211^9201.151^7714.171^89272.521^9362.191^1417.61^25545.321^4330.101^22593.301^57006.331^25568.321^7507.141

 +25      ;;RSUM^22616.301^7628.141^25591.321^31105.291^22639.301^1411.61^2148.71^20368.241^11265.211^8308.151^11282.211^6221.131^7714.171^316451.811^25522.321^4330.101^22570.301^25740.221^25545.321^7507.141^22593.301

 +26      ;1;

 +27      ;