- OCXDI006 ;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 ^OCXDI007
- ;
- Q
- ;
- DATA ;
- ;
- ;;RSUM^41468.371^315918.971^66908.451^909647.1561^306527.991^1069147.1711^498.41^37299.331^71645.481^40137.341^39383.341^100950.541^100644.541^91648.561^498.41^55643.411^7915.151^498.41^90717.531^65489.461
- ;;RSUM^372442.1061^125431.611^62800.451^581828.1391^5159.121^308072.1021^131109.621^347395.1081^40871.351^176756.741^75151.481^498.41^94037.541^65489.461^799103.1451^294442.971^498.41^5794.121^498.41^484161.1241
- ;;RSUM^467145.1201^494928.1241^498.41^62988.451^72607.461^146535.671^98930.561^114083.591^9831.171^37324.331^96638.541^11754.191^5725.121^53024.411^431800.1191^76031.461^324243.991^281663.921^350731.1021
- ;;RSUM^438282.1121^188099.771^254893.921^53380.401^67686.471^1121229.1861^424776.1131^741.51^413068.1181^270116.931^301.31^301.31^80356.491^150.21^11405.171^150.21^4116.101^150.21^3234.101^54314.441^186550.831
- ;;RSUM^642.41^150.21^31007.301^150.21^204220.781^115067.571^194.21^150.21^8546.161^15380.221^417260.1091^150.21^21215.251^55195.451^21220.241^388453.1111^20114.271^84497.511^42630.381^3579.111^90928.521^47025.391
- ;;RSUM^150525.711^57706.431^150.21
- ;;RND^OCXOCMP1^12/22/98 13:37
- ;;RTN^OCXOCMP2^10/29/98 12:37
- ;;RSUM^150.21^1023.61^150.21^18003.221^76625.501^217276.821^248178.831^18474.241^94090.551^54875.421^499327.1211^13223.191^1015915.1711^1265171.1871^301.31^47638.401^238278.891^86332.541^301.31^30722.341
- ;;RSUM^5009.111^154861.701^4704.111^30020.301^24980.261^118158.601^116767.601^19858.241^181182.761^498794.1191^72977.461^43128.361^301.31^257347.901^301.31^4971.111^301.31^49178.391^301.31^133718.651^189535.771
- ;;RSUM^42767.351^211200.801^216369.811^388103.1091^859200.1661^230814.861^741.51^82952.481^741.51^10780.181^171095.691^134615.621^63629.451^307217.951^251448.901^413592.1101^728442.1461^182600.731^652745.1371
- ;;RSUM^124331.621^888543.1591^1155424.1871^162583.731^16706.211^235558.861^135359.651^131377.651^69301.451^1030.61^50275.381^301.31^72585.451^301.31^226322.851^114327.611^672522.1501^367595.1061^114836.591
- ;;RSUM^816484.1651^156151.701^188478.791^108079.581^498.41^301.31^96125.531^301.31^634405.1401^301.31^6079.131^9543.161^63305.471^121982.621^76081.511^20596.251^248942.891^301.31^85430.481^301.31^56559.411
- ;;RSUM^387042.1111^36102.321^26847.281^405291.1171^100029.581^38406.331^48387.371^51679.421^77249.511^540744.1251^382167.1081^402092.1111^850966.1651^646733.1371^131267.671^447678.1191^325549.1021^26992.281
- ;;RSUM^498.41^22234.251^498.41^15245.211^301.31^456411.1221^9543.161^34561.331^200724.871^39898.341^232058.931^22462.251^68169.451^301.31^301.31^23539.261^301.31^13906.201^301.31^27506.281^301.31^79249.531
- ;;RSUM^301.31^72986.471^63431.441^78494.511^150.21^4116.101^150.21^5370.131^150.21^1928.81^150.21^37233.371^47522.381^102439.591^41528.391^22548.261^35494.351^9756.171^194.21^150.21^10648.181^150.21^17568.221
- ;;RSUM^94133.571^30858.311^238593.901^255317.931^8462.171^1738.71^150.21^8683.161^150.21^50418.381^383487.1111^194.21^150.21^28796.291^150.21^3345.91^6278.141^6202.131^80289.491^16272.211^33066.341^20766.241
- ;;RSUM^88173.501^194.21^150.21
- ;;RND^OCXOCMP2^10/29/98 12:37
- ;;RTN^OCXOCMP3^10/29/98 12:37
- ;;RSUM^150.21^1023.61^150.21^18003.221^196550.791^97781.571^30722.341^10525.171^301.31^30515.331^30935.331^301.31^188611.781^8835.161^65335.471^78101.511^285003.951^498.41^333247.1031^267218.911^301.31^8629.161
- ;;RSUM^301.31^111106.561^301.31^189301.781^498.41^10513.171^116703.621^163343.681^32615.351^150.21^4116.101^150.21^21215.251^55195.451^21220.241^388453.1111^20114.271^84497.511^42630.381^3579.111^90928.521
- ;;RSUM^47025.391^3523.111^327245.1031^7058.161^57706.431^150.21
- ;;RND^OCXOCMP3^10/29/98 12:37
- ;;RTN^OCXOCMP4^2/02/99 13:17
- ;;RSUM^150.21^1023.61^150.21^18003.221^47703.371^9008.161^13566.231^16280.251^55179.421^11420.201^50717.401^150.21^10331.161^150.21^10534.161^150.21^25877.291^136618.651^150.21^5238.121^118024.621^8163.171
- ;;RSUM^150.21^37290.361^440381.1201^142112.641^182572.721^9536.171^167367.691^481016.1291^38102.361^214451.841^8395.181^292964.991^96831.581^406584.1211^22202.271^218058.861^40872.381^150.21^249632.891^413270.1161
- ;;RSUM^32615.351^22004.251^216060.841^329960.1031^150.21^9536.171^8163.171^30829.321^140326.641^128396.641^222015.861^15941.201^132463.611^330616.1001^331493.1011^261760.931^304811.1001^351183.1071^400891.1141
- ;1;
- ;
- OCXDI006 ;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 ^OCXDI007
- +10 ;
- +11 QUIT
- +12 ;
- DATA ;
- +1 ;
- +2 ;;RSUM^41468.371^315918.971^66908.451^909647.1561^306527.991^1069147.1711^498.41^37299.331^71645.481^40137.341^39383.341^100950.541^100644.541^91648.561^498.41^55643.411^7915.151^498.41^90717.531^65489.461
- +3 ;;RSUM^372442.1061^125431.611^62800.451^581828.1391^5159.121^308072.1021^131109.621^347395.1081^40871.351^176756.741^75151.481^498.41^94037.541^65489.461^799103.1451^294442.971^498.41^5794.121^498.41^484161.1241
- +4 ;;RSUM^467145.1201^494928.1241^498.41^62988.451^72607.461^146535.671^98930.561^114083.591^9831.171^37324.331^96638.541^11754.191^5725.121^53024.411^431800.1191^76031.461^324243.991^281663.921^350731.1021
- +5 ;;RSUM^438282.1121^188099.771^254893.921^53380.401^67686.471^1121229.1861^424776.1131^741.51^413068.1181^270116.931^301.31^301.31^80356.491^150.21^11405.171^150.21^4116.101^150.21^3234.101^54314.441^186550.831
- +6 ;;RSUM^642.41^150.21^31007.301^150.21^204220.781^115067.571^194.21^150.21^8546.161^15380.221^417260.1091^150.21^21215.251^55195.451^21220.241^388453.1111^20114.271^84497.511^42630.381^3579.111^90928.521^47025.391
- +7 ;;RSUM^150525.711^57706.431^150.21
- +8 ;;RND^OCXOCMP1^12/22/98 13:37
- +9 ;;RTN^OCXOCMP2^10/29/98 12:37
- +10 ;;RSUM^150.21^1023.61^150.21^18003.221^76625.501^217276.821^248178.831^18474.241^94090.551^54875.421^499327.1211^13223.191^1015915.1711^1265171.1871^301.31^47638.401^238278.891^86332.541^301.31^30722.341
- +11 ;;RSUM^5009.111^154861.701^4704.111^30020.301^24980.261^118158.601^116767.601^19858.241^181182.761^498794.1191^72977.461^43128.361^301.31^257347.901^301.31^4971.111^301.31^49178.391^301.31^133718.651^189535.771
- +12 ;;RSUM^42767.351^211200.801^216369.811^388103.1091^859200.1661^230814.861^741.51^82952.481^741.51^10780.181^171095.691^134615.621^63629.451^307217.951^251448.901^413592.1101^728442.1461^182600.731^652745.1371
- +13 ;;RSUM^124331.621^888543.1591^1155424.1871^162583.731^16706.211^235558.861^135359.651^131377.651^69301.451^1030.61^50275.381^301.31^72585.451^301.31^226322.851^114327.611^672522.1501^367595.1061^114836.591
- +14 ;;RSUM^816484.1651^156151.701^188478.791^108079.581^498.41^301.31^96125.531^301.31^634405.1401^301.31^6079.131^9543.161^63305.471^121982.621^76081.511^20596.251^248942.891^301.31^85430.481^301.31^56559.411
- +15 ;;RSUM^387042.1111^36102.321^26847.281^405291.1171^100029.581^38406.331^48387.371^51679.421^77249.511^540744.1251^382167.1081^402092.1111^850966.1651^646733.1371^131267.671^447678.1191^325549.1021^26992.281
- +16 ;;RSUM^498.41^22234.251^498.41^15245.211^301.31^456411.1221^9543.161^34561.331^200724.871^39898.341^232058.931^22462.251^68169.451^301.31^301.31^23539.261^301.31^13906.201^301.31^27506.281^301.31^79249.531
- +17 ;;RSUM^301.31^72986.471^63431.441^78494.511^150.21^4116.101^150.21^5370.131^150.21^1928.81^150.21^37233.371^47522.381^102439.591^41528.391^22548.261^35494.351^9756.171^194.21^150.21^10648.181^150.21^17568.221
- +18 ;;RSUM^94133.571^30858.311^238593.901^255317.931^8462.171^1738.71^150.21^8683.161^150.21^50418.381^383487.1111^194.21^150.21^28796.291^150.21^3345.91^6278.141^6202.131^80289.491^16272.211^33066.341^20766.241
- +19 ;;RSUM^88173.501^194.21^150.21
- +20 ;;RND^OCXOCMP2^10/29/98 12:37
- +21 ;;RTN^OCXOCMP3^10/29/98 12:37
- +22 ;;RSUM^150.21^1023.61^150.21^18003.221^196550.791^97781.571^30722.341^10525.171^301.31^30515.331^30935.331^301.31^188611.781^8835.161^65335.471^78101.511^285003.951^498.41^333247.1031^267218.911^301.31^8629.161
- +23 ;;RSUM^301.31^111106.561^301.31^189301.781^498.41^10513.171^116703.621^163343.681^32615.351^150.21^4116.101^150.21^21215.251^55195.451^21220.241^388453.1111^20114.271^84497.511^42630.381^3579.111^90928.521
- +24 ;;RSUM^47025.391^3523.111^327245.1031^7058.161^57706.431^150.21
- +25 ;;RND^OCXOCMP3^10/29/98 12:37
- +26 ;;RTN^OCXOCMP4^2/02/99 13:17
- +27 ;;RSUM^150.21^1023.61^150.21^18003.221^47703.371^9008.161^13566.231^16280.251^55179.421^11420.201^50717.401^150.21^10331.161^150.21^10534.161^150.21^25877.291^136618.651^150.21^5238.121^118024.621^8163.171
- +28 ;;RSUM^150.21^37290.361^440381.1201^142112.641^182572.721^9536.171^167367.691^481016.1291^38102.361^214451.841^8395.181^292964.991^96831.581^406584.1211^22202.271^218058.861^40872.381^150.21^249632.891^413270.1161
- +29 ;;RSUM^32615.351^22004.251^216060.841^329960.1031^150.21^9536.171^8163.171^30829.321^140326.641^128396.641^222015.861^15941.201^132463.611^330616.1001^331493.1011^261760.931^304811.1001^351183.1071^400891.1141
- +30 ;1;
- +31 ;