| 1 | OCXDI00B ;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 ^OCXDI00C
|
|---|
| 15 | ;
|
|---|
| 16 | Q
|
|---|
| 17 | ;
|
|---|
| 18 | DATA ;
|
|---|
| 19 | ;
|
|---|
| 20 | ;;RSUM^150.21^26687.321^5922.141^150.21^622.41^150.21
|
|---|
| 21 | ;;RND^OCXOCMPL^10/29/98 12:37
|
|---|
| 22 | ;;RTN^OCXOCMPM^10/29/98 12:37
|
|---|
| 23 | ;;RSUM^150.21^1023.61^150.21^8409.161^76625.501^217276.821^105222.541^18474.241^301.31^30722.341^301.31^65113.461^54875.421^499327.1211^298864.941^1015915.1711^1265171.1871^301.31^526689.1191^24179.281^670984.1461
|
|---|
| 24 | ;;RSUM^301.31^51873.421^301.31^15163.211^498.41^60113.451^498.41^29892.291^498.41^109310.601^12133.181^11999.201^164930.711^83926.511^86341.511^149336.671^498.41^498.41^51684.401^498.41^117661.611^167139.721
|
|---|
| 25 | ;;RSUM^24022.261^73068.471^381221.1081^849092.1651^225596.851^1030.61^86272.491^1030.61^12614.201^180723.711^143183.641^1365.71^69371.471^320659.971^262722.921^429106.1121^748238.1481^1365.71^192542.751^671867.1391
|
|---|
| 26 | ;;RSUM^132359.641^910547.1611^1179974.1891^171481.751^19644.231^246410.881^143607.671^139457.671^75375.471^1746.81^55481.401^19379.271^498.41^75692.461^498.41^231643.861^118181.621^373602.1071^1751.81^14207.211
|
|---|
| 27 | ;;RSUM^2114.91^116893.511^92865.581^152588.741^111423.581^826841.1661^160606.711^193250.801^111790.591^498.41^99581.541^498.41^643395.1411^498.41^62382.461^255394.901^57957.441^301.31^85430.481^301.31^29550.291
|
|---|
| 28 | ;;RSUM^373390.1091^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
|
|---|
| 29 | ;;RSUM^498.41^22234.251^498.41^93268.551^100589.541^43118.371^231446.851^46020.381^111789.601^41739.351^110403.581^20615.251^301.31^27506.281^301.31^36418.321^301.31^19090.241^18973.231^89950.541^28126.291
|
|---|
| 30 | ;;RSUM^52782.401^252101.871^11209.201^44007.411^89950.541^3057.91^21623.251^13558.201^24866.271^77891.481^150.21^4116.101^150.21^10648.181^150.21^17568.221^94133.571^30858.311^238593.901^255317.931^150.21
|
|---|
| 31 | ;;RSUM^8462.171^1738.71^150.21^14613.211^150.21^38391.331^73000.501^105690.571^194.21^150.21^28796.291^150.21^3345.91^6278.141^6202.131^80289.491^16272.211^33066.341^20766.241^88173.501^194.21^150.21
|
|---|
| 32 | ;;RND^OCXOCMPM^10/29/98 12:37
|
|---|
| 33 | ;;RTN^OCXOCMPN^10/29/98 12:37
|
|---|
| 34 | ;;RSUM^150.21^7167.151^150.21^15894.211^150.21^86285.531^50476.421^65134.471^186776.791^150.21^10934.201^86285.531^42403.381^123015.631^272735.931^150.21^110447.601^54937.421^251263.911^748354.1571^782291.1601
|
|---|
| 35 | ;;RSUM^223906.851^177431.771^72125.471^163083.701^9648.171^150.21^194.21^150.21^7186.151^150.21^3191.91^19209.261^36535.341^5049.121^14947.211^194.21^150.21
|
|---|
| 36 | ;;RND^OCXOCMPN^10/29/98 12:37
|
|---|
| 37 | ;;RTN^OCXOCMPO^2/02/99 12:58
|
|---|
| 38 | ;;RSUM^150.21^1023.61^150.21^28702.281^150.21^186055.771^301.31^30722.341^301.31^58556.431^4712.121^80067.511^40026.371^66344.481^484665.1301^64343.441^61987.431^61578.431^14826.211^10549.191^520848.1271
|
|---|
| 39 | ;;RSUM^28734.321^55677.431^285874.881^301.31^6877.141^206421.871^45056.381^24944.261^567433.1251^76275.511^45167.411^130444.651^426030.1231^85094.541^16209.221^301.31^70008.451^301.31^5134.121^150.21^65849.361
|
|---|
| 40 | ;;RSUM^150.21^16411.201^150.21^220302.841^24378.261^93928.531^18794.261^71323.501^80067.511^43211.371^37639.371^58675.471^141167.671^17114.221^50383.391^70008.451^150.21^482.41^150.21^14613.211^150.21^38391.331
|
|---|
| 41 | ;;RSUM^73000.501^112450.591^194.21^150.21
|
|---|
| 42 | ;;RND^OCXOCMPO^2/02/99 12:58
|
|---|
| 43 | ;;RTN^OCXOCMPP^10/29/98 12:37
|
|---|
| 44 | ;;RSUM^150.21^557.41^150.21^28737.301^150.21^53268.441^28140.311^72549.521^46725.411^45878.411^68093.471^150.21^65104.451^308626.1041^150.21^197187.811^150.21^209685.871^225672.881^225672.881^252519.941^89744.551
|
|---|
| 45 | ;;RSUM^130042.671^130034.671^150.21^194.21^150.21
|
|---|
| 46 | ;;RND^OCXOCMPP^10/29/98 12:37
|
|---|
| 47 | ;;RTN^OCXOCMPQ^10/29/98 12:37
|
|---|
| 48 | ;;RSUM^150.21^150.21^13975.211^150.21^1930.71^3074.101^4514.121^10704.171^289863.971^1105.61^89999.581^267707.981^115088.621^5218.131^10704.171^76115.511^62384.481^217222.881^82558.541^1936.71^150.21^3963.111
|
|---|
| 49 | ;;RSUM^1903.71^375584.1151^646.41^150.21^9483.181^150.21^18721.231^185019.771^35295.321^79457.501^10199.201^63230.481^277457.1001^71236.511^32587.321^1027.61^74739.491^362619.1051^301.31^40049.361^2382.81
|
|---|
| 50 | ;;RSUM^32266.291^498.41^382713.1121^471939.1261^160734.721^25723.281^140365.661^31442.321^47925.401^43657.381^67991.481^122441.621^10894.191^85369.531^113288.621^119065.641^150.21^1439.61^1922.81^150.21^8640.161
|
|---|
| 51 | ;1;
|
|---|
| 52 | ;
|
|---|
