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;
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HOCXDI00H 4636 printed Dec 13, 2024@02:22:49 Page 2
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 ;
