| [613] | 1 | OCXDI00I ;SLC/RJS,CLA - OCX PACKAGE DIAGNOSTIC ROUTINES ;SEP 7,1999 at 10:29
|
|---|
| 2 | ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32**;Dec 17,1997
|
|---|
| 3 | ;; ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
|
|---|
| 4 | ;
|
|---|
| 5 | S ;
|
|---|
| 6 | ;
|
|---|
| 7 | D DOT^OCXDIAG
|
|---|
| 8 | ;
|
|---|
| 9 | ;
|
|---|
| 10 | K REMOTE,LOCAL,OPCODE,REF
|
|---|
| 11 | F LINE=1:1:500 S TEXT=$P($T(DATA+LINE),";",2,999) Q:TEXT I $L(TEXT) D Q:QUIT
|
|---|
| 12 | .S ^TMP("OCXDIAG",$J,$O(^TMP("OCXDIAG",$J,"A"),-1)+1)=TEXT
|
|---|
| 13 | ;
|
|---|
| 14 | G ^OCXDI00J
|
|---|
| 15 | ;
|
|---|
| 16 | Q
|
|---|
| 17 | ;
|
|---|
| 18 | DATA ;
|
|---|
| 19 | ;
|
|---|
| 20 | ;;RSUM^15081.211^150.21^140782.671^83304.521^33110.311^150.21^33701.311^57533.391^11108.191^7863.151^30831.311^30899.311^29883.321^1992.71^70433.471^646.41^150.21^24555.271^150.21^12146.181^29371.291^132847.671
|
|---|
| 21 | ;;RSUM^150.21^15034.221^150.21^8860.171^150.21^12146.181^132847.671^150.21^88278.511^150.21^3621.101^27666.311^59749.431^39855.351^38487.351^32907.321^12993.211^150.21
|
|---|
| 22 | ;;RND^OCXOED14^10/29/98 12:37
|
|---|
| 23 | ;;RTN^OCXOED15^10/29/98 12:37
|
|---|
| 24 | ;;RSUM^150.21^150.21^324.31^150.21^194.21^557.41^150.21^177662.741^150.21^194.21^150.21^6543.141^150.21^67879.421^296591.1021^150.21^8844.151^155045.631^165448.721^434.41^247605.891^434.41^293826.931^434.41
|
|---|
| 25 | ;;RSUM^280930.931^434.41^285242.921^599.51^150.21^194.21^150.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^33110.311
|
|---|
| 26 | ;;RSUM^150.21^150.21^79542.481^150.21^3621.101^27666.311^59749.431^39855.351^38487.351^32907.321^12993.211^150.21
|
|---|
| 27 | ;;RND^OCXOED15^10/29/98 12:37
|
|---|
| 28 | ;;RTN^OCXOED16^10/29/98 12:37
|
|---|
| 29 | ;;RSUM^150.21^150.21^324.31^150.21^194.21^4741.121^150.21^150.21^67879.421^150.21^168101.701^150.21^482.41^150.21^2281.81^150.21^324713.991^150.21^194.21^150.21^2219.81^150.21^352422.1021^150.21^194.21^150.21
|
|---|
| 30 | ;;RSUM^1203.61^150.21^371400.1051^150.21^194.21^150.21^1653.71^150.21^361901.1061^150.21^194.21^150.21^10655.171^150.21^17504.231^150.21^3269.91^599.51^83755.491^107075.591^8745.171^301148.871^32009.301^194.21
|
|---|
| 31 | ;;RSUM^150.21^14418.211^342317.1081^65799.481^150.21^22510.261^8801.151^256208.951^187472.791^194.21^150.21^7506.151^150.21^32294.291^150.21^15081.211^150.21^140782.671^83304.521^33110.311^150.21^33701.311
|
|---|
| 32 | ;;RSUM^57533.391^11108.191^7863.151^30831.311^30899.311^29883.321^1992.71^70433.471^646.41^150.21^24555.271^150.21^12146.181^29371.291^132847.671^150.21^15034.221^150.21^88278.511^150.21^3621.101^27666.311
|
|---|
| 33 | ;;RSUM^59749.431^39855.351^38487.351^32907.321^12993.211^150.21
|
|---|
| 34 | ;;RND^OCXOED16^10/29/98 12:37
|
|---|
| 35 | ;;RTN^OCXOEDT^10/29/98 12:37
|
|---|
| 36 | ;;RSUM^150.21^150.21^324.31^150.21^58723.391^150.21^150.21^46387.381^13890.201^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^1317.61^150.21
|
|---|
| 37 | ;;RSUM^95844.561^33973.341^44297.391^534138.1321^44807.391^535953.1321^138135.681^56610.431^263875.951^59625.431^150.21^194.21^150.21^15034.221^150.21^79220.471^150.21^3988.101^17585.241^268842.801^17827.241
|
|---|
| 38 | ;;RSUM^244047.891^185009.721^275830.811^249782.901^20984.261^62130.411^150.21^8685.161^150.21^64811.411^150.21^296591.1021^150.21^36008.311^150.21^128311.641^157079.761^150.21^111375.561^8890.161^8410.151
|
|---|
| 39 | ;;RSUM^150.21^262561.791^150.21^45813.361^150.21^276495.901^706863.1351^150.21^28387.291^150.21
|
|---|
| 40 | ;;RND^OCXOEDT^10/29/98 12:37
|
|---|
| 41 | ;;RTN^OCXOEDT4^10/29/98 12:37
|
|---|
| 42 | ;;RSUM^150.21^150.21^324.31^150.21^29206.291^150.21^31930.341^150.21^194.21^150.21^149900.721^150.21^291830.991^150.21
|
|---|
| 43 | ;;RND^OCXOEDT4^10/29/98 12:37
|
|---|
| 44 | ;;RTN^OCXOEDT5^10/29/98 12:37
|
|---|
| 45 | ;;RSUM^150.21^324.31^150.21^29206.291^150.21^31930.341^150.21^194.21^150.21^255078.931^150.21^180791.791^150.21^51038.421^150.21^23115.301^150.21^19049.251^150.21
|
|---|
| 46 | ;;RND^OCXOEDT5^10/29/98 12:37
|
|---|
| 47 | ;;RTN^OCXOEDT6^5/27/99 16:52
|
|---|
| 48 | ;;RSUM^150.21^324.31^150.21^117996.581^150.21^46387.381^150.21^111823.601^7440.141^150.21^194.21^150.21^371384.1091^150.21^881.51^12434.191^155196.591^194628.671^476.41^194.21^150.21^1321.61^8525.151^64472.391
|
|---|
| 49 | ;;RSUM^190646.791^105543.591^13100.191^8969.161^297950.821^434.41^194.21^150.21^5301.131^150.21^3772.111^150.21^110617.551^150.21^9587.161^301.31^24366.271^301.31^42943.381^37478.351^107052.581^333443.931
|
|---|
| 50 | ;;RSUM^45435.371^448095.1101^301.31^92005.521^301.31^678.51^268461.941^240608.881^112283.651^109132.591^301.31^5079.111^301.31^147007.661^301.31^50220.421^1083415.1841^28920.291^301.31^48879.401^105582.581
|
|---|
| 51 | ;;RSUM^6101.131^150.21^6885.141^150.21^14873.211^150.21^150.21^10520.171^21500.271^46941.441^47443.391^1887.71^6526.151^150.21^5344.131^150.21^29460.291^11584.181^27226.291^150.21^38109.351^150.21^28645.321
|
|---|
| 52 | ;;RSUM^88003.541^12634.181^52026.421^32786.321^33787.311^12837.201^8761.161^56671.391^35804.341^150.21^17982.241^56416.431^12299.211^24080.261^42874.391^102672.591^130529.661^25024.291^8484.151^41179.371
|
|---|
| 53 | ;1;
|
|---|
| 54 | ;
|
|---|
