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