OCXDI002.m

OCXDI002 ;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 ^OCXDI003

 ;

 Q

 ;

DATA ;

 ;

 ;;RSUM^136250.671^143483.691^25174.291^750.51^275887.1001^68122.471^172302.751^750.51^860.51^750.51^34002.351^750.51^17545.231^129308.651^860.51^750.51^135354.641^750.51^354065.1101^750.51^471.41^533.41^150.21

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

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

 ;;RSUM^150.21^1023.61^150.21^26864.271^55149.391^429260.1171^150.21^24786.281^150.21^98162.571^200703.791^150.21^1439.61^150.21^1336.61^180654.701^6319.121^6330.121^750.51^1173.61^750.51^860.51^750.51^750.51

 ;;RSUM^9162.171^750.51^49244.411^750.51^109348.611^750.51^1388.71^750.51^14575.211^750.51^42182.341^119674.631^222544.841^26865.291^21339.261^251781.881^103528.521^83465.491^251739.881^94360.501^117424.591

 ;;RSUM^1039.61^77581.491^59687.461^187662.801^203827.761^95846.541^187866.801^190771.741^91952.531^123481.631^117115.571^95846.541^757661.1531^157353.641^115083.571^1039.61^151876.681^3796.101^750.51^21604.251

 ;;RSUM^71097.471^49660.391^61397.441^750.51^17566.231^6257.131^83131.501^69466.461^35027.351^33654.341^31822.331^31868.331^14502.231^29740.321^29767.321^29793.321^29629.321^29814.321^28227.311^28557.311^31641.331

 ;;RSUM^29679.321^29706.321^29760.321^22632.291^1388.71^750.51^52376.391^750.51^10227.171^750.51^124898.591^750.51^7349.141^750.51^48875.431^33003.321^33446.311^90206.511^68626.451^750.51^2298.91^750.51^30243.301

 ;;RSUM^750.51^65203.421^86693.511^119823.641^138338.661^1039.61^112311.601^4863.121^33206.311^339577.1051^122528.621^122009.621^1039.61^13395.211^21646.251^57805.421^61752.421^78621.511^39740.361^68989.491

 ;;RSUM^85714.501^750.51^860.51^750.51^30300.301^750.51^47366.361^148020.721^61163.451^16361.221^45518.371^12946.211^104602.591^86945.511^81380.491^201685.891^215822.921^750.51^860.51^750.51^47114.371^750.51

 ;;RSUM^37712.321^750.51^83113.551^85841.511^304097.971^33091.311^750.51^326719.1021^388123.1131^750.51^860.51^750.51^18506.251^750.51^135354.641^750.51^354065.1101^750.51^471.41^533.41^150.21

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

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

 ;;RSUM^150.21^1023.61^150.21^26864.271^55149.391^429260.1171^150.21^24786.281^150.21^98218.571^200703.791^150.21^1439.61^150.21^1336.61^180663.701^6319.121^6330.121^750.51^1173.61^26305.231^860.51^750.51

 ;;RSUM^13269.201^750.51^750.51^52306.381^48468.401^8387.161^582509.1291^750.51^69468.461^289390.971^750.51^1388.71^750.51^22600.261^750.51^750.51^3781.101^32593.321^659862.1361^750.51^19700.251^158904.721

 ;;RSUM^18369.231^750.51^1388.71^750.51^26804.281^750.51^750.51^130786.601^750.51^462278.1111^30740.311^1005151.1691^750.51^83364.501^35939.321^239975.871^352815.1071^95709.561^403639.1151^105737.581^53161.421

 ;;RSUM^30339.291^750.51^239949.881^750.51^6310.131^750.51^52506.391^750.51^27142.271^750.51^41979.371^115306.591^6296.141^126427.631^44334.411^78000.501^57550.431^750.51^75087.441^750.51^196786.761^750.51

 ;;RSUM^429016.1161^414490.1121^217259.801^750.51^10902.181^233258.871^315199.981^9613.171^860.51^750.51^52728.391^750.51^49450.371^76873.531^243329.921^36518.351^853438.1571^145427.691^67036.441^1388.71^750.51

 ;;RSUM^33052.311^750.51^6562.151^750.51^23746.251^61803.431^77651.471^3813.101^750.51^28920.301^750.51^16238.211^330699.1041^60236.421^100157.571^110597.601^188311.741^750.51^860.51^750.51^44381.391^750.51

 ;;RSUM^83502.491^750.51^83772.491^55626.421^105773.611^24095.281^750.51^280592.941^750.51^12901.211^13565.191^141965.671^79107.481^118536.591^207991.841^45802.371^276529.921^43932.361^750.51^85028.501^6973.141

 ;;RSUM^3536.101^750.51^33683.321^750.51^860.51^750.51^230740.881^750.51^8402.161^329305.1001^26219.281^860.51^750.51^7311.151^331912.1011^59936.461^860.51^750.51^21604.251^71097.471^49660.391^61397.441^750.51

 ;;RSUM^40445.341^66197.421^14675.221^10986.181^36744.341^36821.341^35868.351^3666.101^79370.501^1675.71^750.51^135354.641^750.51^471.41^533.41^150.21

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

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

 ;;RSUM^150.21^1023.61^150.21^26864.271^55149.391^429260.1171^150.21^24786.281^150.21^98274.571^200703.791^150.21^1439.61^150.21^1336.61^180672.701^6319.121^6330.121^750.51^1173.61^31605.251^860.51^750.51

 ;;RSUM^39493.341^750.51^750.51^72753.451^750.51^153860.731^243329.921^36518.351^745440.1451^750.51^73268.471^92555.531^750.51^1388.71^750.51^24789.271^750.51^41100.341^750.51^800317.1491^750.51^87418.561

 ;1;

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---OCXDI002   4761     printed  Apr 09, 2024@21:43:36                                                                                                                                                                                                    Page 2

OCXDI002  ;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 ^OCXDI003

 +10      ;

 +11       QUIT 

 +12      ;

DATA      ;

 +1       ;

 +2       ;;RSUM^136250.671^143483.691^25174.291^750.51^275887.1001^68122.471^172302.751^750.51^860.51^750.51^34002.351^750.51^17545.231^129308.651^860.51^750.51^135354.641^750.51^354065.1101^750.51^471.41^533.41^150.21

 +3       ;;RND^OCXBDT4^8/04/98  13:21

 +4       ;;RTN^OCXBDT5^8/04/98  13:21

 +5       ;;RSUM^150.21^1023.61^150.21^26864.271^55149.391^429260.1171^150.21^24786.281^150.21^98162.571^200703.791^150.21^1439.61^150.21^1336.61^180654.701^6319.121^6330.121^750.51^1173.61^750.51^860.51^750.51^750.51

 +6       ;;RSUM^9162.171^750.51^49244.411^750.51^109348.611^750.51^1388.71^750.51^14575.211^750.51^42182.341^119674.631^222544.841^26865.291^21339.261^251781.881^103528.521^83465.491^251739.881^94360.501^117424.591

 +7       ;;RSUM^1039.61^77581.491^59687.461^187662.801^203827.761^95846.541^187866.801^190771.741^91952.531^123481.631^117115.571^95846.541^757661.1531^157353.641^115083.571^1039.61^151876.681^3796.101^750.51^21604.251

 +8       ;;RSUM^71097.471^49660.391^61397.441^750.51^17566.231^6257.131^83131.501^69466.461^35027.351^33654.341^31822.331^31868.331^14502.231^29740.321^29767.321^29793.321^29629.321^29814.321^28227.311^28557.311^31641.331

 +9       ;;RSUM^29679.321^29706.321^29760.321^22632.291^1388.71^750.51^52376.391^750.51^10227.171^750.51^124898.591^750.51^7349.141^750.51^48875.431^33003.321^33446.311^90206.511^68626.451^750.51^2298.91^750.51^30243.301

 +10      ;;RSUM^750.51^65203.421^86693.511^119823.641^138338.661^1039.61^112311.601^4863.121^33206.311^339577.1051^122528.621^122009.621^1039.61^13395.211^21646.251^57805.421^61752.421^78621.511^39740.361^68989.491

 +11      ;;RSUM^85714.501^750.51^860.51^750.51^30300.301^750.51^47366.361^148020.721^61163.451^16361.221^45518.371^12946.211^104602.591^86945.511^81380.491^201685.891^215822.921^750.51^860.51^750.51^47114.371^750.51

 +12      ;;RSUM^37712.321^750.51^83113.551^85841.511^304097.971^33091.311^750.51^326719.1021^388123.1131^750.51^860.51^750.51^18506.251^750.51^135354.641^750.51^354065.1101^750.51^471.41^533.41^150.21

 +13      ;;RND^OCXBDT5^8/04/98  13:21

 +14      ;;RTN^OCXBDT6^8/04/98  13:21

 +15      ;;RSUM^150.21^1023.61^150.21^26864.271^55149.391^429260.1171^150.21^24786.281^150.21^98218.571^200703.791^150.21^1439.61^150.21^1336.61^180663.701^6319.121^6330.121^750.51^1173.61^26305.231^860.51^750.51

 +16      ;;RSUM^13269.201^750.51^750.51^52306.381^48468.401^8387.161^582509.1291^750.51^69468.461^289390.971^750.51^1388.71^750.51^22600.261^750.51^750.51^3781.101^32593.321^659862.1361^750.51^19700.251^158904.721

 +17      ;;RSUM^18369.231^750.51^1388.71^750.51^26804.281^750.51^750.51^130786.601^750.51^462278.1111^30740.311^1005151.1691^750.51^83364.501^35939.321^239975.871^352815.1071^95709.561^403639.1151^105737.581^53161.421

 +18      ;;RSUM^30339.291^750.51^239949.881^750.51^6310.131^750.51^52506.391^750.51^27142.271^750.51^41979.371^115306.591^6296.141^126427.631^44334.411^78000.501^57550.431^750.51^75087.441^750.51^196786.761^750.51

 +19      ;;RSUM^429016.1161^414490.1121^217259.801^750.51^10902.181^233258.871^315199.981^9613.171^860.51^750.51^52728.391^750.51^49450.371^76873.531^243329.921^36518.351^853438.1571^145427.691^67036.441^1388.71^750.51

 +20      ;;RSUM^33052.311^750.51^6562.151^750.51^23746.251^61803.431^77651.471^3813.101^750.51^28920.301^750.51^16238.211^330699.1041^60236.421^100157.571^110597.601^188311.741^750.51^860.51^750.51^44381.391^750.51

 +21      ;;RSUM^83502.491^750.51^83772.491^55626.421^105773.611^24095.281^750.51^280592.941^750.51^12901.211^13565.191^141965.671^79107.481^118536.591^207991.841^45802.371^276529.921^43932.361^750.51^85028.501^6973.141

 +22      ;;RSUM^3536.101^750.51^33683.321^750.51^860.51^750.51^230740.881^750.51^8402.161^329305.1001^26219.281^860.51^750.51^7311.151^331912.1011^59936.461^860.51^750.51^21604.251^71097.471^49660.391^61397.441^750.51

 +23      ;;RSUM^40445.341^66197.421^14675.221^10986.181^36744.341^36821.341^35868.351^3666.101^79370.501^1675.71^750.51^135354.641^750.51^471.41^533.41^150.21

 +24      ;;RND^OCXBDT6^8/04/98  13:21

 +25      ;;RTN^OCXBDT7^8/04/98  13:21

 +26      ;;RSUM^150.21^1023.61^150.21^26864.271^55149.391^429260.1171^150.21^24786.281^150.21^98274.571^200703.791^150.21^1439.61^150.21^1336.61^180672.701^6319.121^6330.121^750.51^1173.61^31605.251^860.51^750.51

 +27      ;;RSUM^39493.341^750.51^750.51^72753.451^750.51^153860.731^243329.921^36518.351^745440.1451^750.51^73268.471^92555.531^750.51^1388.71^750.51^24789.271^750.51^41100.341^750.51^800317.1491^750.51^87418.561

 +28      ;1;

 +29      ;