Routine: OCXDI007

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

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;

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      ;

OCXDI007.m