OCXDI00H.m

OCXDI00H ;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 ^OCXDI00I

 ;

 Q

 ;

DATA ;

 ;

 ;;RND^OCXOED10^10/29/98  12:37

 ;;RTN^OCXOED11^10/29/98  12:37

 ;;RSUM^150.21^150.21^324.31^150.21^194.21^3722.111^150.21^8635.151^362313.1051^150.21^194.21^150.21^22867.261^150.21^85858.481^150.21^296591.1021^150.21^53244.401^150.21^240627.871^150.21^8844.151^102838.541

 ;;RSUM^99788.561^154068.741^149173.731^150.21^59128.381^139721.681^21503.241^79579.521^103425.611^94116.581^876.61^217550.831^181523.781^150.21^599.51^168164.751^186969.781^150.21^194.21^150.21^5364.131^106867.621

 ;;RSUM^150.21^5644.131^150.21^399421.1061^150.21^7506.151^150.21^32294.291^150.21^15081.211^150.21^140782.671^83304.521^33110.311^150.21^23769.271^150.21^37050.331^150.21^192368.801^150.21^313750.1021^150.21

 ;;RSUM^122809.631^203214.811^150.21^194.21^150.21^79542.481^150.21^3621.101^27666.311^59749.431^39855.351^38487.351^32907.321^12993.211^150.21^26471.281^148970.691^194.21^150.21

 ;;RND^OCXOED11^10/29/98  12:37

 ;;RTN^OCXOED12^10/29/98  12:37

 ;;RSUM^150.21^150.21^324.31^150.21^194.21^19421.241^150.21^150.21^67879.421^150.21^296591.1021^150.21^168101.701^150.21^22891.281^150.21^482.41^150.21^150.21^5301.131^53654.441^194.21^150.21^16337.221^150.21

 ;;RSUM^27429.281^194.21^150.21^14485.211^150.21^19981.231^150.21^13083.211^178688.771^147697.661^156243.681^105616.581^51701.391^185055.741^94090.521^122308.621^68513.481^46656.381^13256.211^178688.771^553201.1261

 ;;RSUM^131429.581^202877.851^16875.231^194.21^150.21^17859.231^150.21^20833.241^150.21^55996.421^93803.531^65653.471^29138.291^194.21^150.21^1290.61^4938.111^194.21^150.21^150.21^33701.311^57533.391^11108.191

 ;;RSUM^7863.151^30831.311^30899.311^29883.321^1992.71^70433.471^646.41^150.21^7820.161^150.21^218023.851^150.21^15034.221^150.21^118536.591^150.21^3621.101^27666.311^59749.431^39855.351^38487.351^38563.351

 ;;RSUM^32907.321^12993.211^150.21^16291.221^150.21^18401.231^43061.351^35328.321^190451.811^356331.1111^50737.421^134385.671^301.31^33176.331^4641.111^376158.1021^186550.671^132735.641^138436.681^62085.451

 ;;RSUM^99246.571^397219.1111^301.31^8666.171^24387.301^24443.301^41915.411^43264.361^2087.71^150.21

 ;;RND^OCXOED12^10/29/98  12:37

 ;;RTN^OCXOED13^10/29/98  12:37

 ;;RSUM^150.21^150.21^324.31^150.21^194.21^12470.191^150.21^8635.151^62960.461^100914.551^362479.1051^150.21^194.21^150.21^22867.261^150.21^67879.421^296591.1021^19695.241^16686.221^150.21^8844.151^128620.581

 ;;RSUM^148739.731^198155.841^187628.751^202341.841^150.21^28041.271^150.21^274407.931^432871.1181^216698.841^364019.1091^251671.901^421120.1151^266922.921^434904.1171^278332.941^450653.1191^213736.831^367002.1081

 ;;RSUM^220294.851^355415.1101^38256.371^400839.1171^460837.1251^150.21^194.21^150.21^17308.231^309264.1021^58571.451^150.21^13326.201^150.21^20547.231^150.21^84460.511^106499.571^86595.521^150.21^150.21^46996.381

 ;;RSUM^107052.571^98931.541^103143.571^83998.521^63507.441^194.21^150.21^194.21^5364.131^106867.621^150.21^5644.131^150.21^399421.1061^150.21^7506.151^150.21^32294.291^150.21^15081.211^150.21^140782.671^83304.521

 ;;RSUM^33110.311^150.21^14377.211^150.21^29961.281^150.21^90169.541^78770.501^145897.701^159414.721^127701.641^150.21^112940.611^62021.441^78636.501^150.21^113068.611^62069.441^78716.501^156808.721^170627.741

 ;;RSUM^132752.651^194.21^150.21^79542.481^150.21^3621.101^27666.311^59749.431^39855.351^38487.351^32907.321^12993.211^150.21^26471.281^107201.591^3773.101^194.21^150.21^21597.251^7334.141^149479.731^119265.641

 ;;RSUM^101806.581^14895.221^150.21

 ;;RND^OCXOED13^10/29/98  12:37

 ;;RTN^OCXOED14^10/29/98  12:37

 ;;RSUM^150.21^150.21^324.31^150.21^194.21^19421.241^150.21^150.21^67879.421^150.21^296591.1021^150.21^168101.701^150.21^22921.281^150.21^482.41^150.21^6219.141^150.21^2079.71^49816.421^194.21^150.21^17504.231

 ;;RSUM^150.21^9769.161^35219.321^599.51^83755.491^42343.381^2297.101^13164.201^326956.981^301148.871^209684.781^194.21^150.21^14459.211^150.21^59046.401^150.21^488177.1271^88215.541^150.21^599.51^297339.931

 ;;RSUM^60472.441^150.21^169719.751^256247.951^236082.891^194.21^150.21^14418.211^342317.1081^65799.481^150.21^22510.261^8801.151^164196.741^256208.951^187472.791^194.21^150.21^7506.151^150.21^32294.291^150.21

 ;1;

 ;

OCXDI00H  ;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 ^OCXDI00I

 +10      ;

 +11       QUIT 

 +12      ;

DATA      ;

 +1       ;

 +2       ;;RND^OCXOED10^10/29/98  12:37

 +3       ;;RTN^OCXOED11^10/29/98  12:37

 +4       ;;RSUM^150.21^150.21^324.31^150.21^194.21^3722.111^150.21^8635.151^362313.1051^150.21^194.21^150.21^22867.261^150.21^85858.481^150.21^296591.1021^150.21^53244.401^150.21^240627.871^150.21^8844.151^102838.541

 +5       ;;RSUM^99788.561^154068.741^149173.731^150.21^59128.381^139721.681^21503.241^79579.521^103425.611^94116.581^876.61^217550.831^181523.781^150.21^599.51^168164.751^186969.781^150.21^194.21^150.21^5364.131^106867.621

 +6       ;;RSUM^150.21^5644.131^150.21^399421.1061^150.21^7506.151^150.21^32294.291^150.21^15081.211^150.21^140782.671^83304.521^33110.311^150.21^23769.271^150.21^37050.331^150.21^192368.801^150.21^313750.1021^150.21

 +7       ;;RSUM^122809.631^203214.811^150.21^194.21^150.21^79542.481^150.21^3621.101^27666.311^59749.431^39855.351^38487.351^32907.321^12993.211^150.21^26471.281^148970.691^194.21^150.21

 +8       ;;RND^OCXOED11^10/29/98  12:37

 +9       ;;RTN^OCXOED12^10/29/98  12:37

 +10      ;;RSUM^150.21^150.21^324.31^150.21^194.21^19421.241^150.21^150.21^67879.421^150.21^296591.1021^150.21^168101.701^150.21^22891.281^150.21^482.41^150.21^150.21^5301.131^53654.441^194.21^150.21^16337.221^150.21

 +11      ;;RSUM^27429.281^194.21^150.21^14485.211^150.21^19981.231^150.21^13083.211^178688.771^147697.661^156243.681^105616.581^51701.391^185055.741^94090.521^122308.621^68513.481^46656.381^13256.211^178688.771^553201.1261

 +12      ;;RSUM^131429.581^202877.851^16875.231^194.21^150.21^17859.231^150.21^20833.241^150.21^55996.421^93803.531^65653.471^29138.291^194.21^150.21^1290.61^4938.111^194.21^150.21^150.21^33701.311^57533.391^11108.191

 +13      ;;RSUM^7863.151^30831.311^30899.311^29883.321^1992.71^70433.471^646.41^150.21^7820.161^150.21^218023.851^150.21^15034.221^150.21^118536.591^150.21^3621.101^27666.311^59749.431^39855.351^38487.351^38563.351

 +14      ;;RSUM^32907.321^12993.211^150.21^16291.221^150.21^18401.231^43061.351^35328.321^190451.811^356331.1111^50737.421^134385.671^301.31^33176.331^4641.111^376158.1021^186550.671^132735.641^138436.681^62085.451

 +15      ;;RSUM^99246.571^397219.1111^301.31^8666.171^24387.301^24443.301^41915.411^43264.361^2087.71^150.21

 +16      ;;RND^OCXOED12^10/29/98  12:37

 +17      ;;RTN^OCXOED13^10/29/98  12:37

 +18      ;;RSUM^150.21^150.21^324.31^150.21^194.21^12470.191^150.21^8635.151^62960.461^100914.551^362479.1051^150.21^194.21^150.21^22867.261^150.21^67879.421^296591.1021^19695.241^16686.221^150.21^8844.151^128620.581

 +19      ;;RSUM^148739.731^198155.841^187628.751^202341.841^150.21^28041.271^150.21^274407.931^432871.1181^216698.841^364019.1091^251671.901^421120.1151^266922.921^434904.1171^278332.941^450653.1191^213736.831^367002.1081

 +20      ;;RSUM^220294.851^355415.1101^38256.371^400839.1171^460837.1251^150.21^194.21^150.21^17308.231^309264.1021^58571.451^150.21^13326.201^150.21^20547.231^150.21^84460.511^106499.571^86595.521^150.21^150.21^46996.381

 +21      ;;RSUM^107052.571^98931.541^103143.571^83998.521^63507.441^194.21^150.21^194.21^5364.131^106867.621^150.21^5644.131^150.21^399421.1061^150.21^7506.151^150.21^32294.291^150.21^15081.211^150.21^140782.671^83304.521

 +22      ;;RSUM^33110.311^150.21^14377.211^150.21^29961.281^150.21^90169.541^78770.501^145897.701^159414.721^127701.641^150.21^112940.611^62021.441^78636.501^150.21^113068.611^62069.441^78716.501^156808.721^170627.741

 +23      ;;RSUM^132752.651^194.21^150.21^79542.481^150.21^3621.101^27666.311^59749.431^39855.351^38487.351^32907.321^12993.211^150.21^26471.281^107201.591^3773.101^194.21^150.21^21597.251^7334.141^149479.731^119265.641

 +24      ;;RSUM^101806.581^14895.221^150.21

 +25      ;;RND^OCXOED13^10/29/98  12:37

 +26      ;;RTN^OCXOED14^10/29/98  12:37

 +27      ;;RSUM^150.21^150.21^324.31^150.21^194.21^19421.241^150.21^150.21^67879.421^150.21^296591.1021^150.21^168101.701^150.21^22921.281^150.21^482.41^150.21^6219.141^150.21^2079.71^49816.421^194.21^150.21^17504.231

 +28      ;;RSUM^150.21^9769.161^35219.321^599.51^83755.491^42343.381^2297.101^13164.201^326956.981^301148.871^209684.781^194.21^150.21^14459.211^150.21^59046.401^150.21^488177.1271^88215.541^150.21^599.51^297339.931

 +29      ;;RSUM^60472.441^150.21^169719.751^256247.951^236082.891^194.21^150.21^14418.211^342317.1081^65799.481^150.21^22510.261^8801.151^164196.741^256208.951^187472.791^194.21^150.21^7506.151^150.21^32294.291^150.21

 +30      ;1;

 +31      ;