OCXDI003.m

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

 ;

 Q

 ;

DATA ;

 ;

 ;;RSUM^225542.891^17822.261^59633.431^750.51^106549.611^84662.501^750.51^1388.71^750.51^52506.391^750.51^14755.201^750.51^370817.1111^750.51^196786.761^750.51^429016.1161^471463.1191^750.51^10902.181^233258.871

 ;;RSUM^263750.901^9613.171^860.51^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^40445.341^66197.421^14675.221

 ;;RSUM^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^OCXBDT7^8/04/98  13:21

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

 ;;RSUM^150.21^1023.61^150.21^26864.271^55149.391^429260.1171^150.21^24786.281^150.21^98330.571^200703.791^150.21^1439.61^150.21^1336.61^180681.701^6319.121^6330.121^750.51^1173.61^23776.221^860.51^750.51

 ;;RSUM^58246.411^750.51^47956.361^750.51^112372.631^22105.271^174811.761^29444.311^56101.431^4364.111^836339.1551^156670.691^229140.831^750.51^3796.101^750.51^55351.401^750.51^61991.411^750.51^112372.631

 ;;RSUM^22105.271^174811.761^29444.311^894056.1601^152212.681^111588.581^750.51^3796.101^750.51^52506.391^750.51^14755.201^750.51^370817.1111^750.51^196786.761^750.51^429016.1161^471463.1191^750.51^10902.181

 ;;RSUM^233258.871^263750.901^9613.171^860.51^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^40445.341^66197.421

 ;;RSUM^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^OCXBDT8^8/04/98  13:21

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

 ;;RSUM^150.21^1023.61^150.21^91545.521^55149.391^429260.1171^150.21^45710.411^36081.361^6472.141^61729.481^138844.691^64008.461^20145.291^15634.261^150.21^24786.281^98386.571^200703.791^150.21^1439.61^150.21

 ;;RSUM^235582.861^150.21^1336.61^180690.701^6319.121^6330.121^750.51^2307.91^31682.251^750.51^32504.291^8230.151^321576.1001^12068.181^39769.361^90187.531^6646.131^750.51^16602.221^750.51^82728.491^63834.461

 ;;RSUM^73698.491^308078.1011^21360.251^289727.851^703397.1431^127711.661^47462.401^52481.431^9280.171^21013.251^14978.211^24800.271^248099.791^750.51^1388.71^750.51^94549.571^750.51^40445.341^66197.421^14675.221

 ;;RSUM^10986.181^36744.341^36821.341^35868.351^3666.101^79370.501^1675.71^750.51^3250.101^533.41^150.21

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

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

 ;;RSUM^150.21^1023.61^150.21^26864.271^140828.621^429260.1171^150.21^24786.281^150.21^103139.581^200703.791^150.21^1439.61^150.21^150.21^1336.61^185764.711^6319.121^6330.121^750.51^1173.61^750.51^269593.881

 ;;RSUM^750.51^2851.91^127235.601^3259.111^1695.81^107510.481^107579.521^68886.401^78736.491^125354.521^65232.411^178092.721^43309.371^363746.1071^37410.331^352210.971^496710.1141^468389.1101^750.51^2244.81

 ;;RSUM^750.51^54929.411^40254.381^51196.411^78549.501^750.51^52683.391^750.51^151344.701^142770.691^113276.601^167205.731^1374.71^64650.441^89153.541^80637.491^138600.611^110459.531^379194.1121^262700.961

 ;;RSUM^101679.581^1374.71^199569.771^337714.1021^328154.1021^20886.261^10781.181^72584.481^10075.181^12330.191^149451.641^1374.71^188458.751^750.51^85028.471^750.51^17908.241^750.51^52918.361^750.51^860.51

 ;;RSUM^750.51^2856.91^750.51^269593.881^750.51^43309.371^363746.1071^95965.531^750.51^5890.151^137479.551^77064.451^210476.771^5890.151^5890.151^750.51^2943.91^750.51^860.51^750.51^4557.121^750.51^17909.241

 ;;RSUM^20040.241^860.51^750.51^750.51^46979.421^750.51^471.41^533.41

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

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

 ;;RSUM^150.21^194.21^150.21^15646.231^150.21^19496.241^150.21^11484.171^67615.501^25080.291^111501.601^16070.221^150.21^10868.181^150.21^11484.171^33286.351^25080.291^86602.531^16070.221^150.21^11055.181

 ;;RSUM^150.21^8492.171^10722.171^3010.101^150317.721^79795.511^48547.391^1872.71^150.21^9886.171^150.21^8492.171^13289.191^4475.121^160310.741^117765.641^3079.91^1667.71^55438.401^20786.241^20153.241^24427.261

 ;;RSUM^9271.161^22001.251^23342.251^26861.271^27800.281^38615.321^32496.311^19368.231^35844.321^38719.331^54205.391^16202.211^13255.191^16210.211^21502.251^55534.391^7653.151^16728.211^33511.311^26333.271

 ;1;

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---OCXDI003   4689     printed  Apr 09, 2024@21:28:55                                                                                                                                                                                                    Page 2

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

 +10      ;

 +11       QUIT 

 +12      ;

DATA      ;

 +1       ;

 +2       ;;RSUM^225542.891^17822.261^59633.431^750.51^106549.611^84662.501^750.51^1388.71^750.51^52506.391^750.51^14755.201^750.51^370817.1111^750.51^196786.761^750.51^429016.1161^471463.1191^750.51^10902.181^233258.871

 +3       ;;RSUM^263750.901^9613.171^860.51^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^40445.341^66197.421^14675.221

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

 +5       ;;RND^OCXBDT7^8/04/98  13:21

 +6       ;;RTN^OCXBDT8^8/04/98  13:21

 +7       ;;RSUM^150.21^1023.61^150.21^26864.271^55149.391^429260.1171^150.21^24786.281^150.21^98330.571^200703.791^150.21^1439.61^150.21^1336.61^180681.701^6319.121^6330.121^750.51^1173.61^23776.221^860.51^750.51

 +8       ;;RSUM^58246.411^750.51^47956.361^750.51^112372.631^22105.271^174811.761^29444.311^56101.431^4364.111^836339.1551^156670.691^229140.831^750.51^3796.101^750.51^55351.401^750.51^61991.411^750.51^112372.631

 +9       ;;RSUM^22105.271^174811.761^29444.311^894056.1601^152212.681^111588.581^750.51^3796.101^750.51^52506.391^750.51^14755.201^750.51^370817.1111^750.51^196786.761^750.51^429016.1161^471463.1191^750.51^10902.181

 +10      ;;RSUM^233258.871^263750.901^9613.171^860.51^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^40445.341^66197.421

 +11      ;;RSUM^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

 +12      ;;RND^OCXBDT8^8/04/98  13:21

 +13      ;;RTN^OCXBDT9^8/04/98  13:21

 +14      ;;RSUM^150.21^1023.61^150.21^91545.521^55149.391^429260.1171^150.21^45710.411^36081.361^6472.141^61729.481^138844.691^64008.461^20145.291^15634.261^150.21^24786.281^98386.571^200703.791^150.21^1439.61^150.21

 +15      ;;RSUM^235582.861^150.21^1336.61^180690.701^6319.121^6330.121^750.51^2307.91^31682.251^750.51^32504.291^8230.151^321576.1001^12068.181^39769.361^90187.531^6646.131^750.51^16602.221^750.51^82728.491^63834.461

 +16      ;;RSUM^73698.491^308078.1011^21360.251^289727.851^703397.1431^127711.661^47462.401^52481.431^9280.171^21013.251^14978.211^24800.271^248099.791^750.51^1388.71^750.51^94549.571^750.51^40445.341^66197.421^14675.221

 +17      ;;RSUM^10986.181^36744.341^36821.341^35868.351^3666.101^79370.501^1675.71^750.51^3250.101^533.41^150.21

 +18      ;;RND^OCXBDT9^8/04/98  13:21

 +19      ;;RTN^OCXBDTA^8/04/98  13:21

 +20      ;;RSUM^150.21^1023.61^150.21^26864.271^140828.621^429260.1171^150.21^24786.281^150.21^103139.581^200703.791^150.21^1439.61^150.21^150.21^1336.61^185764.711^6319.121^6330.121^750.51^1173.61^750.51^269593.881

 +21      ;;RSUM^750.51^2851.91^127235.601^3259.111^1695.81^107510.481^107579.521^68886.401^78736.491^125354.521^65232.411^178092.721^43309.371^363746.1071^37410.331^352210.971^496710.1141^468389.1101^750.51^2244.81

 +22      ;;RSUM^750.51^54929.411^40254.381^51196.411^78549.501^750.51^52683.391^750.51^151344.701^142770.691^113276.601^167205.731^1374.71^64650.441^89153.541^80637.491^138600.611^110459.531^379194.1121^262700.961

 +23      ;;RSUM^101679.581^1374.71^199569.771^337714.1021^328154.1021^20886.261^10781.181^72584.481^10075.181^12330.191^149451.641^1374.71^188458.751^750.51^85028.471^750.51^17908.241^750.51^52918.361^750.51^860.51

 +24      ;;RSUM^750.51^2856.91^750.51^269593.881^750.51^43309.371^363746.1071^95965.531^750.51^5890.151^137479.551^77064.451^210476.771^5890.151^5890.151^750.51^2943.91^750.51^860.51^750.51^4557.121^750.51^17909.241

 +25      ;;RSUM^20040.241^860.51^750.51^750.51^46979.421^750.51^471.41^533.41

 +26      ;;RND^OCXBDTA^8/04/98  13:21

 +27      ;;RTN^OCXBDTD^8/04/98  13:21

 +28      ;;RSUM^150.21^194.21^150.21^15646.231^150.21^19496.241^150.21^11484.171^67615.501^25080.291^111501.601^16070.221^150.21^10868.181^150.21^11484.171^33286.351^25080.291^86602.531^16070.221^150.21^11055.181

 +29      ;;RSUM^150.21^8492.171^10722.171^3010.101^150317.721^79795.511^48547.391^1872.71^150.21^9886.171^150.21^8492.171^13289.191^4475.121^160310.741^117765.641^3079.91^1667.71^55438.401^20786.241^20153.241^24427.261

 +30      ;;RSUM^9271.161^22001.251^23342.251^26861.271^27800.281^38615.321^32496.311^19368.231^35844.321^38719.331^54205.391^16202.211^13255.191^16210.211^21502.251^55534.391^7653.151^16728.211^33511.311^26333.271

 +31      ;1;

 +32      ;