Routine: OCXDI00U

OCXDI00U ;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 ^OCXDI00V

DATA ;

 ;;RSUM^22105.271^174811.761^29444.311^13228.211^807883.1521^152926.681^111964.581^750.51^3796.101^750.51^52506.391^750.51^14755.201^750.51^371531.1111^750.51^202781.771^750.51^431550.1161^472853.1191^750.51

 ;;RSUM^10902.181^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

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

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

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

 ;;RSUM^150.21^1023.61^150.21^26864.271^165107.671^438550.1181^150.21^26747.291^150.21^108945.591^206761.801^150.21^1439.61^150.21^150.21^1336.61^166044.671^6319.121^6330.121^750.51^1173.61^750.51^178377.721

 ;;RSUM^750.51^2851.91^127235.601^3259.111^1695.81^126917.521^107579.521^84905.441^78736.491^133485.531^53823.371^152530.681^44352.371^364178.1071^22112.241^750.51^2244.81^750.51^43464.351^750.51^152632.701

 ;;RSUM^144618.691^114179.601^167205.731^1374.71^380636.1121^187552.801^101679.581^1374.71^200673.771^45686.371^143912.641^20886.261^10781.181^72584.481^10075.181^12330.191^128839.601^1374.71^190264.751^750.51

 ;;RSUM^18496.241^750.51^9370.171^16253.221^77185.501^104310.591^56226.411^750.51^139615.671^42870.321^750.51^9022.171^307485.811^180440.691^750.51^8129.161^8458.151^239296.891^14033.191^750.51^860.51^750.51

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

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

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

 ;;RSUM^150.21^150.21^76556.471^150.21^3621.101^27666.311^59749.431^39855.351^38487.351^27043.291^12993.211^150.21^11947.191^150.21^5431.121^5769.131^38796.331^29562.291^39316.361^251575.911^341114.1061^27122.281

 ;;RSUM^194.21^150.21^18358.231^150.21^6933.141^150.21^214633.781^138705.681^150.21^225911.801^47822.401^141133.691^53693.421^141133.691^150.21^194.21^150.21^23733.261^150.21^8386.151^150.21^127486.631^284508.891

 ;;RSUM^172171.771^174373.731^139972.691^172431.771^301.31^88204.531^103190.581^60850.451^14037.211^150.21^194.21^150.21^28129.291^150.21^796.51^150.21^97290.561^217640.791^154863.711^148843.701^125555.641

 ;;RSUM^150.21^194.21^150.21^31255.301^150.21^796.51^150.21^94109.551^194.21^150.21^49827.371^150.21^14173.201^150.21^171019.711^48202.401^301.31^50461.431^111846.621^14784.221^150.21^194.21^150.21^12525.191

 ;;RSUM^150.21^796.51^150.21^105697.581^196188.751^136626.671^150.21^194.21^150.21^24226.261^150.21^796.51^150.21^196188.751^159169.721^150.21^237842.821^172418.741^150.21^194.21^150.21^16964.221^150.21^796.51

 ;;RSUM^150.21^196188.751^159169.721^150.21^194.21^150.21^12252.191^150.21^796.51^150.21^121973.621^139712.661^102316.571^150.21^122353.621^150.21^196188.751^6164.131^127896.641^47924.381^118519.611^11458.181

 ;;RSUM^78417.531^171085.751^150.21^194.21^150.21^20812.241^150.21^796.51^150.21^149085.681^196188.751^159169.721^150.21^194.21^150.21^15561.211^150.21^796.51^150.21^196188.751^136626.671^150.21^194.21^150.21

 ;;RSUM^15271.211^150.21^796.51^150.21^96049.561^150.21^196188.751^159169.721^150.21^194.21^150.21^32195.301^150.21^796.51^150.21^196188.751^142270.681^150.21^194.21^150.21^20474.241^150.21^796.51^150.21^257238.851

 ;;RSUM^136626.671^150.21^194.21^150.21^39922.331^150.21^796.51^150.21^97247.561^164518.711^196188.751^64851.471^58825.441^36295.331^119235.611^150.21^194.21^150.21^18797.231^150.21^796.51^150.21^145547.681

 ;;RSUM^196188.751^159169.721^150.21^194.21

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

 ;;RTN^OCXSENDD^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;

OCXDI00U  ;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 ^OCXDI00V

 +10      ;

 +11       QUIT

 +12      ;

DATA      ;

 +1       ;

 +2       ;;RSUM^22105.271^174811.761^29444.311^13228.211^807883.1521^152926.681^111964.581^750.51^3796.101^750.51^52506.391^750.51^14755.201^750.51^371531.1111^750.51^202781.771^750.51^431550.1161^472853.1191^750.51

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

 +4       ;;RSUM^66197.421^14675.221^10986.181^36744.341^36821.341^35868.351^3666.101^79370.501^1675.71^750.51^86291.511^750.51^471.41^533.41^150.21

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

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

 +7       ;;RSUM^150.21^1023.61^150.21^26864.271^165107.671^438550.1181^150.21^26747.291^150.21^108945.591^206761.801^150.21^1439.61^150.21^150.21^1336.61^166044.671^6319.121^6330.121^750.51^1173.61^750.51^178377.721

 +8       ;;RSUM^750.51^2851.91^127235.601^3259.111^1695.81^126917.521^107579.521^84905.441^78736.491^133485.531^53823.371^152530.681^44352.371^364178.1071^22112.241^750.51^2244.81^750.51^43464.351^750.51^152632.701

 +9       ;;RSUM^144618.691^114179.601^167205.731^1374.71^380636.1121^187552.801^101679.581^1374.71^200673.771^45686.371^143912.641^20886.261^10781.181^72584.481^10075.181^12330.191^128839.601^1374.71^190264.751^750.51

 +10      ;;RSUM^18496.241^750.51^9370.171^16253.221^77185.501^104310.591^56226.411^750.51^139615.671^42870.321^750.51^9022.171^307485.811^180440.691^750.51^8129.161^8458.151^239296.891^14033.191^750.51^860.51^750.51

 +11      ;;RSUM^46979.421^750.51^40445.341^66197.421^14675.221^10986.181^36744.341^36821.341^35868.351^3666.101^79370.501^1675.71^750.51^471.41^533.41

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

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

 +14      ;;RSUM^150.21^150.21^76556.471^150.21^3621.101^27666.311^59749.431^39855.351^38487.351^27043.291^12993.211^150.21^11947.191^150.21^5431.121^5769.131^38796.331^29562.291^39316.361^251575.911^341114.1061^27122.281

 +15      ;;RSUM^194.21^150.21^18358.231^150.21^6933.141^150.21^214633.781^138705.681^150.21^225911.801^47822.401^141133.691^53693.421^141133.691^150.21^194.21^150.21^23733.261^150.21^8386.151^150.21^127486.631^284508.891

 +16      ;;RSUM^172171.771^174373.731^139972.691^172431.771^301.31^88204.531^103190.581^60850.451^14037.211^150.21^194.21^150.21^28129.291^150.21^796.51^150.21^97290.561^217640.791^154863.711^148843.701^125555.641

 +17      ;;RSUM^150.21^194.21^150.21^31255.301^150.21^796.51^150.21^94109.551^194.21^150.21^49827.371^150.21^14173.201^150.21^171019.711^48202.401^301.31^50461.431^111846.621^14784.221^150.21^194.21^150.21^12525.191

 +18      ;;RSUM^150.21^796.51^150.21^105697.581^196188.751^136626.671^150.21^194.21^150.21^24226.261^150.21^796.51^150.21^196188.751^159169.721^150.21^237842.821^172418.741^150.21^194.21^150.21^16964.221^150.21^796.51

 +19      ;;RSUM^150.21^196188.751^159169.721^150.21^194.21^150.21^12252.191^150.21^796.51^150.21^121973.621^139712.661^102316.571^150.21^122353.621^150.21^196188.751^6164.131^127896.641^47924.381^118519.611^11458.181

 +20      ;;RSUM^78417.531^171085.751^150.21^194.21^150.21^20812.241^150.21^796.51^150.21^149085.681^196188.751^159169.721^150.21^194.21^150.21^15561.211^150.21^796.51^150.21^196188.751^136626.671^150.21^194.21^150.21

 +21      ;;RSUM^15271.211^150.21^796.51^150.21^96049.561^150.21^196188.751^159169.721^150.21^194.21^150.21^32195.301^150.21^796.51^150.21^196188.751^142270.681^150.21^194.21^150.21^20474.241^150.21^796.51^150.21^257238.851

 +22      ;;RSUM^136626.671^150.21^194.21^150.21^39922.331^150.21^796.51^150.21^97247.561^164518.711^196188.751^64851.471^58825.441^36295.331^119235.611^150.21^194.21^150.21^18797.231^150.21^796.51^150.21^145547.681

 +23      ;;RSUM^196188.751^159169.721^150.21^194.21

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

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

 +26      ;;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

 +27      ;;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

 +28      ;;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

 +29      ;1;

 +30      ;

OCXDI00U.m