| 1 | OCXDI00A ;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 ^OCXDI00B
|
|---|
| 15 | ;
|
|---|
| 16 | Q
|
|---|
| 17 | ;
|
|---|
| 18 | DATA ;
|
|---|
| 19 | ;
|
|---|
| 20 | ;;RSUM^152754.701^150.21^4116.101^150.21^2994.101^150.21^35554.351^96732.581^150.21
|
|---|
| 21 | ;;RND^OCXOCMPG^1/12/99 14:45
|
|---|
| 22 | ;;RTN^OCXOCMPH^10/29/98 12:37
|
|---|
| 23 | ;;RSUM^150.21^194.21^1649.71^28467.281^64393.441^153840.701^150.21^169762.741^110020.591^7235.151^39700.351^132671.611^150.21^194.21^150.21^1286.61^69137.471^48455.401^96685.561^556151.1351^122791.621^41672.361
|
|---|
| 24 | ;;RSUM^150.21^65388.461^45364.391^38751.351^116569.611^92559.551^150.21^194.21^150.21
|
|---|
| 25 | ;;RND^OCXOCMPH^10/29/98 12:37
|
|---|
| 26 | ;;RTN^OCXOCMPI^10/29/98 12:37
|
|---|
| 27 | ;;RSUM^150.21^194.21^150.21^19726.241^150.21^8409.161^150.21^3345.91^150.21^151092.671^36175.321^55868.391^141532.651^498.41^58537.421^151198.691^1172301.1911^35716.321^498.41^29770.291^104399.591^301.31
|
|---|
| 28 | ;;RSUM^16897.221^498.41^23558.251^51051.381^498.41^58776.421^111736.551^139950.671^118567.611^69103.451^68432.481^314256.1011^46570.371^789932.1561^168538.751^41416.341^116537.601^735711.1491^101427.541^470992.1211
|
|---|
| 29 | ;;RSUM^498.41^79678.471^498.41^153902.661^40857.351^301.31^49785.391^150.21^4116.101^150.21^19535.241^150.21^21828.241^203692.821^33848.331^301607.951^15906.221^150.21^18200.231^150.21^11313.171^48247.381
|
|---|
| 30 | ;;RSUM^18595.251^111450.591^9648.181^92516.551^98674.571^40183.351^150.21^21215.251^55195.451^21220.241^388453.1111^20114.271^84497.511^42630.381^3579.111^90928.521^47025.391^150525.711^57706.431^150.21^191420.751
|
|---|
| 31 | ;;RSUM^202573.771^201373.771^180993.731^150.21
|
|---|
| 32 | ;;RND^OCXOCMPI^10/29/98 12:37
|
|---|
| 33 | ;;RTN^OCXOCMPJ^10/29/98 12:37
|
|---|
| 34 | ;;RSUM^150.21^194.21^150.21^33879.321^150.21^8409.161^150.21^33845.301^418635.1101^391941.1071^471509.1161^324392.981^150.21^74887.561^301.31^20432.251^248175.901^150.21^230910.961^2977.91^17525.251^301.31
|
|---|
| 35 | ;;RSUM^83329.541^372021.1021^20634.261^301.31^26644.291^301646.1001^476311.1231^150.21^284324.1031^301.31^34200.341^301.31^45829.371^54788.421^409285.1141^150.21^47533.371^150.21^283061.1041^8757.151^66411.481
|
|---|
| 36 | ;;RSUM^301.31^83329.541^433743.1101^20634.261^301.31^89631.521^324863.981^368806.1121^73109.491^543107.1301^150.21^443799.1121^150.21^4116.101^150.21^36145.331^150.21^8409.161^427157.1111^400182.1081^480611.1171
|
|---|
| 37 | ;;RSUM^324392.981^150.21^74887.561^301.31^22471.261^234226.871^150.21^230910.961^2977.91^17525.251^301.31^83329.541^380117.1031^20634.261^301.31^28902.301^286548.971^457808.1201^150.21^284324.1031^301.31
|
|---|
| 38 | ;;RSUM^34200.341^301.31^48668.381^54788.421^392747.1111^150.21^47533.371^150.21^283061.1041^8757.151^66411.481^301.31^83329.541^442417.1111^20634.261^301.31^93422.531^324863.981^352673.1091^73109.491^522723.1271
|
|---|
| 39 | ;;RSUM^150.21^452610.1131^150.21^4116.101
|
|---|
| 40 | ;;RND^OCXOCMPJ^10/29/98 12:37
|
|---|
| 41 | ;;RTN^OCXOCMPK^10/29/98 12:37
|
|---|
| 42 | ;;RSUM^150.21^194.21^150.21^36006.331^150.21^8409.161^91131.491^136297.681^324392.981^150.21^426073.1111^399098.1081^479438.1171^150.21^214052.851^433479.1101^121602.591^150.21^23216.261^445481.1111^23135.261
|
|---|
| 43 | ;;RSUM^436037.1101^66905.461^222974.821^150.21^9802.181^274893.891^642738.1421^519662.1281^4116.101^150.21^31733.311^150.21^4212.101^410513.1091^384100.1061^430042.1101^23563.261^150.21^7551.161^455142.1211
|
|---|
| 44 | ;;RSUM^150.21^4116.101^150.21
|
|---|
| 45 | ;;RND^OCXOCMPK^10/29/98 12:37
|
|---|
| 46 | ;;RTN^OCXOCMPL^10/29/98 12:37
|
|---|
| 47 | ;;RSUM^150.21^557.41^150.21^194.21^150.21^40248.341^150.21^403591.1051^150.21^102099.551^301.31^13336.211^134212.641^276049.911^301.31^12906.221^130849.651^276049.911^301.31^11933.201^272216.931^274977.911
|
|---|
| 48 | ;;RSUM^150.21^47699.371^509817.1261^59499.441^168032.701^638009.1371^112634.591^871684.1591^1137546.1871^149581.701^12644.181^219625.831^123332.621^119602.621^60535.421^150.21^114237.581^377469.1071^69994.471
|
|---|
| 49 | ;;RSUM^377561.1071^150.21^534487.1261^23839.271^253381.871^150.21^715424.1421^25783.281^265538.891^150.21^715400.1421^25789.281^265413.891^150.21^30866.301^210951.831^208550.841^77863.501^54253.411^21882.261
|
|---|
| 50 | ;;RSUM^3686.101^333197.1031^55662.411^150.21^10648.181^150.21^17568.221^94133.571^30858.311^238593.901^255317.931^8462.171^1738.71^150.21^9901.171^150.21^7746.141^67772.471^353364.1071^7640.141^369135.1091
|
|---|
| 51 | ;;RSUM^2618.81^150.21^21215.251^55195.451^21220.241^388453.1111^20114.271^84497.511^42630.381^3579.111^90928.521^47025.391^3523.111^327245.1031^7058.161^57706.431^3829.111^150.21^636.41^150.21^25190.311^9528.181
|
|---|
| 52 | ;1;
|
|---|
| 53 | ;
|
|---|
