OCXDI007 ;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 ^OCXDI008
;
Q
;
DATA ;
;
;;RSUM^266418.911^8163.171^150.21^17847.241^22604.261^552387.1281^150.21^249632.891^13945.191^38842.331^579137.1361^32615.351^48094.371^5327.131^105884.601^172366.741^86164.551^710928.1441^59391.431^114970.591
;;RSUM^93848.531^184396.741^115993.611^22843.251^150.21^21705.241^150.21^17754.261^89351.541^17754.261^57980.471^54694.431^222769.861^465424.1211^238659.891^57707.461^193128.811^150.21^17754.261^20212.251
;;RSUM^479068.1231^150.21^4116.101^150.21^14986.211^150.21^2323.81^363269.1101^2851.91^150.21^25538.271^150.21^8878.151^56434.421^128259.631^78775.491^180282.731^150.21^194.21^150.21^25900.291^150.21^76901.511
;;RSUM^150.21^77553.521^150.21^31795.321^150.21^2371.81^1243.61^19363.261^27501.311^30290.321^19082.251^21181.261^29264.321^27209.311^29389.321^27723.311^734.51^27801.321^25834.311^21110.281^53668.421^32152.321
;;RSUM^38632.361^13371.221^114851.651^137606.691^241584.911^374728.1131^150.21^35732.381^152070.721^150.21^9536.171^676540.1511^385376.1101^150.21^378912.1161^150.21^108747.641^10225.201^40039.361^1486.71
;;RSUM^4855.121^150.21
;;RND^OCXOCMP4^2/02/99 13:17
;;RTN^OCXOCMP5^2/02/99 13:39
;;RSUM^150.21^1023.61^150.21^8409.161^35051.321^150.21^146735.701^30722.341^179618.771^99272.571^58297.411^189034.751^112724.601^150.21^98101.581^319379.1021^200134.821^87622.531^32615.351^150.21^27621.291
;;RSUM^158220.721^32615.351^88457.501^130046.611^48470.361^63570.471^63741.471^152373.721^119573.631^16443.221^192066.791^229208.861^204527.801^132795.651^46834.391^17234.221^54289.411^11738.191^221862.871
;;RSUM^248068.901^133013.661^2182.91^169419.721^75875.491^96403.551^121859.611^87314.521^214568.811^97839.561^34982.321^16455.221^83130.521^26067.301^44307.381^48369.391^40635.361^54767.421^150.21^4116.101
;;RSUM^150.21
;;RND^OCXOCMP5^2/02/99 13:39
;;RTN^OCXOCMP6^3/25/99 15:18
;;RSUM^150.21^1023.61^150.21^8409.161^45203.351^150.21^5330.121^150.21^299497.811^258514.901^150.21^14387.221^94200.561^103154.611^150.21^24981.291^150.21^135552.561^10934.181^4614.121^157616.711^204895.751
;;RSUM^30722.341^56324.421^73034.481^56806.401^73572.491^118233.581^5888.131^17429.231^149599.691^206971.801^47573.361^304159.981^54978.401^122168.621^51640.391^31059.311^40060.341^498.41^65029.441^22062.281
;;RSUM^211107.821^98829.561^5696.121^15986.221^145390.681^201916.791^45120.351^298034.971^52364.391^118299.611^49060.381^29071.301^150.21^104538.511^204152.811^30722.341^42830.351^14594.211^72228.481^160676.711
;;RSUM^7212.141^49641.381^498.41^54298.401^29046.291^32707.351^88369.561^266153.921^65175.471^741.51^38963.381^5549.131^146469.741^115790.651^111280.601^741.51^208957.781^741.51^29202.291^498.41^134109.641
;;RSUM^18395.231^301.31^39826.361^54332.411^150.21^5134.121^204964.681^264932.911^150.21^107678.531^162624.701^10696.191^60255.471^115985.611^150.21^96449.501^78973.521^157650.711^30722.341^20102.241^180687.761
;;RSUM^150.21^4116.101^150.21^6650.141^150.21^38634.331^175775.701^12195.211^12226.211^9611.191^147352.831^294410.831^278999.831^286348.831^147396.831^10507.201^5281.131^128600.561^126672.561^11695.211^245814.851
;;RSUM^231470.841^818396.1551^276495.921^259329.941^12213.211^11668.211^150.21^734.51^12109.211^11682.211^150.21^56112.411^194.21^150.21^2543.91^1876.71^78889.461^61089.461^150.21^87214.551^150.21^281926.1001
;;RSUM^150.21
;;RND^OCXOCMP6^3/25/99 15:18
;;RTN^OCXOCMP7^10/29/98 12:37
;;RSUM^150.21^150.21^14926.211^150.21^93986.501^80896.501^263777.931^150.21^156089.701^20314.251^29017.311^20958.261^23052.271^301.31^273113.971^301.31^297673.971^301.31^376184.1091^369888.1081^301.31^369419.1081
;;RSUM^363180.1071^150.21^228492.821^150.21^194.21^150.21^24867.271^150.21^8524.151^46080.381^242059.871^4384.131^92328.551^387814.1121^4384.131^194.21^150.21^2522.91^126508.641^194.21^150.21^8608.161^150.21
;;RSUM^3703.101^458694.1191^2045.71^150.21
;;RND^OCXOCMP7^10/29/98 12:37
;;RTN^OCXOCMP8^10/29/98 12:37
;;RSUM^150.21^194.21^4801.121^150.21^29216.301^5270.121^149317.691^9347.171^66753.431^24067.261^194.21^150.21^27808.291^150.21^37287.321^74690.511^8598.181^25934.311^17276.241^25934.311^16414.231^150.21^445676.1241
;1;
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HOCXDI007 4612 printed Sep 23, 2025@19:58:57 Page 2
OCXDI007 ;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 ^OCXDI008
+10 ;
+11 QUIT
+12 ;
DATA ;
+1 ;
+2 ;;RSUM^266418.911^8163.171^150.21^17847.241^22604.261^552387.1281^150.21^249632.891^13945.191^38842.331^579137.1361^32615.351^48094.371^5327.131^105884.601^172366.741^86164.551^710928.1441^59391.431^114970.591
+3 ;;RSUM^93848.531^184396.741^115993.611^22843.251^150.21^21705.241^150.21^17754.261^89351.541^17754.261^57980.471^54694.431^222769.861^465424.1211^238659.891^57707.461^193128.811^150.21^17754.261^20212.251
+4 ;;RSUM^479068.1231^150.21^4116.101^150.21^14986.211^150.21^2323.81^363269.1101^2851.91^150.21^25538.271^150.21^8878.151^56434.421^128259.631^78775.491^180282.731^150.21^194.21^150.21^25900.291^150.21^76901.511
+5 ;;RSUM^150.21^77553.521^150.21^31795.321^150.21^2371.81^1243.61^19363.261^27501.311^30290.321^19082.251^21181.261^29264.321^27209.311^29389.321^27723.311^734.51^27801.321^25834.311^21110.281^53668.421^32152.321
+6 ;;RSUM^38632.361^13371.221^114851.651^137606.691^241584.911^374728.1131^150.21^35732.381^152070.721^150.21^9536.171^676540.1511^385376.1101^150.21^378912.1161^150.21^108747.641^10225.201^40039.361^1486.71
+7 ;;RSUM^4855.121^150.21
+8 ;;RND^OCXOCMP4^2/02/99 13:17
+9 ;;RTN^OCXOCMP5^2/02/99 13:39
+10 ;;RSUM^150.21^1023.61^150.21^8409.161^35051.321^150.21^146735.701^30722.341^179618.771^99272.571^58297.411^189034.751^112724.601^150.21^98101.581^319379.1021^200134.821^87622.531^32615.351^150.21^27621.291
+11 ;;RSUM^158220.721^32615.351^88457.501^130046.611^48470.361^63570.471^63741.471^152373.721^119573.631^16443.221^192066.791^229208.861^204527.801^132795.651^46834.391^17234.221^54289.411^11738.191^221862.871
+12 ;;RSUM^248068.901^133013.661^2182.91^169419.721^75875.491^96403.551^121859.611^87314.521^214568.811^97839.561^34982.321^16455.221^83130.521^26067.301^44307.381^48369.391^40635.361^54767.421^150.21^4116.101
+13 ;;RSUM^150.21
+14 ;;RND^OCXOCMP5^2/02/99 13:39
+15 ;;RTN^OCXOCMP6^3/25/99 15:18
+16 ;;RSUM^150.21^1023.61^150.21^8409.161^45203.351^150.21^5330.121^150.21^299497.811^258514.901^150.21^14387.221^94200.561^103154.611^150.21^24981.291^150.21^135552.561^10934.181^4614.121^157616.711^204895.751
+17 ;;RSUM^30722.341^56324.421^73034.481^56806.401^73572.491^118233.581^5888.131^17429.231^149599.691^206971.801^47573.361^304159.981^54978.401^122168.621^51640.391^31059.311^40060.341^498.41^65029.441^22062.281
+18 ;;RSUM^211107.821^98829.561^5696.121^15986.221^145390.681^201916.791^45120.351^298034.971^52364.391^118299.611^49060.381^29071.301^150.21^104538.511^204152.811^30722.341^42830.351^14594.211^72228.481^160676.711
+19 ;;RSUM^7212.141^49641.381^498.41^54298.401^29046.291^32707.351^88369.561^266153.921^65175.471^741.51^38963.381^5549.131^146469.741^115790.651^111280.601^741.51^208957.781^741.51^29202.291^498.41^134109.641
+20 ;;RSUM^18395.231^301.31^39826.361^54332.411^150.21^5134.121^204964.681^264932.911^150.21^107678.531^162624.701^10696.191^60255.471^115985.611^150.21^96449.501^78973.521^157650.711^30722.341^20102.241^180687.761
+21 ;;RSUM^150.21^4116.101^150.21^6650.141^150.21^38634.331^175775.701^12195.211^12226.211^9611.191^147352.831^294410.831^278999.831^286348.831^147396.831^10507.201^5281.131^128600.561^126672.561^11695.211^245814.851
+22 ;;RSUM^231470.841^818396.1551^276495.921^259329.941^12213.211^11668.211^150.21^734.51^12109.211^11682.211^150.21^56112.411^194.21^150.21^2543.91^1876.71^78889.461^61089.461^150.21^87214.551^150.21^281926.1001
+23 ;;RSUM^150.21
+24 ;;RND^OCXOCMP6^3/25/99 15:18
+25 ;;RTN^OCXOCMP7^10/29/98 12:37
+26 ;;RSUM^150.21^150.21^14926.211^150.21^93986.501^80896.501^263777.931^150.21^156089.701^20314.251^29017.311^20958.261^23052.271^301.31^273113.971^301.31^297673.971^301.31^376184.1091^369888.1081^301.31^369419.1081
+27 ;;RSUM^363180.1071^150.21^228492.821^150.21^194.21^150.21^24867.271^150.21^8524.151^46080.381^242059.871^4384.131^92328.551^387814.1121^4384.131^194.21^150.21^2522.91^126508.641^194.21^150.21^8608.161^150.21
+28 ;;RSUM^3703.101^458694.1191^2045.71^150.21
+29 ;;RND^OCXOCMP7^10/29/98 12:37
+30 ;;RTN^OCXOCMP8^10/29/98 12:37
+31 ;;RSUM^150.21^194.21^4801.121^150.21^29216.301^5270.121^149317.691^9347.171^66753.431^24067.261^194.21^150.21^27808.291^150.21^37287.321^74690.511^8598.181^25934.311^17276.241^25934.311^16414.231^150.21^445676.1241
+32 ;1;
+33 ;
