[613] | 1 | OCXDI00C ;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 ^OCXDI00D
|
---|
| 15 | ;
|
---|
| 16 | Q
|
---|
| 17 | ;
|
---|
| 18 | DATA ;
|
---|
| 19 | ;
|
---|
| 20 | ;;RSUM^150.21^39195.321^7148.161^318047.1001^187248.781^95962.561^102219.581^63996.441^4218.101^150.21^21215.251^55195.451^21220.241^388453.1111^20114.271^84497.511^42630.381^3579.111^90928.521^47025.391
|
---|
| 21 | ;;RSUM^150525.711^57706.431^150.21^5394.131^150.21^35535.351^379248.1141^2491.81
|
---|
| 22 | ;;RND^OCXOCMPQ^10/29/98 12:37
|
---|
| 23 | ;;RTN^OCXOCMPR^10/29/98 12:37
|
---|
| 24 | ;;RSUM^150.21^557.41^150.21^30245.301^150.21^7383.141^150.21^66413.491^55945.441^44553.381^11660.201^416781.1241^5455.131^150.21^16495.231^150.21^194.21^150.21^19049.251^150.21^2386.81^150.21^133245.681^1114.61
|
---|
| 25 | ;;RSUM^80955.541^122512.611^47240.391^64407.481^76541.491^150267.731^75141.511^17775.221^174290.771^71528.451^498.41^56448.451^49797.421^85619.561^50253.391^68132.451^65886.431^194.21^150.21^1238.61^150.21
|
---|
| 26 | ;;RSUM^23098.251^101382.531^121089.631^25495.311^287094.921^194.21^150.21^1810.71^194.21^150.21
|
---|
| 27 | ;;RND^OCXOCMPR^10/29/98 12:37
|
---|
| 28 | ;;RTN^OCXOCMPS^8/16/99 09:03
|
---|
| 29 | ;;RSUM^150.21^557.41^150.21^194.21^150.21^2480.91^150.21^10101.161^71466.511^126219.681^226263.851^150.21^15849.221^150.21^153962.561^138313.601^178713.621^185934.621^96529.451^150.21^11648.181^10641.181
|
---|
| 30 | ;;RSUM^51910.421^19738.251^120477.621^17893.231^150.21^16174.231^150.21^84664.551^150.21^4611.121^4111.121^72923.441^93749.561^181896.771^96235.561^105653.591^100239.581^420118.1151^94139.551^150.21^1665.71
|
---|
| 31 | ;;RSUM^24054.251^199505.691^10614.171^293485.921^135523.621^135574.621^57631.471^787376.1581^46476.401^23419.281^211831.821^151534.681^173598.731^325941.981^207147.771^150.21^5038.121^194.21^150.21
|
---|
| 32 | ;;RND^OCXOCMPS^8/16/99 09:03
|
---|
| 33 | ;;RTN^OCXOCMPT^2/02/99 13:13
|
---|
| 34 | ;;RSUM^150.21^194.21^5691.131^150.21^354440.981^150.21^28875.331^150.21^150.21^120644.661^290838.951^167338.721^301.31^342408.1031^301.31^34753.341^154511.681^115365.571^176465.721^75608.491^89969.531^301.31
|
---|
| 35 | ;;RSUM^31936.331^42463.361^23579.281^135028.681^105708.591^498.41^324952.1101^78776.531^150.21^35728.351^5104.141^225510.811^101746.571^4941.111^126300.681^282878.951^10608.171^150.21^20366.271^56409.391
|
---|
| 36 | ;;RSUM^5104.141^87662.451^170734.741^237225.871^23474.261^48524.401^317222.1051^631108.1381^39775.371^124339.671^305922.991^10608.171^150.21^62208.451^150.21^194.21^150.21^6633.141^150.21^126964.591^150.21
|
---|
| 37 | ;;RSUM^28875.331^150.21^68425.461^133245.641^150.21^357516.1071^117732.611^99935.561^221111.851^100646.551^96440.541^157236.661^101188.531^40859.321^150.21^150.21^529417.1111^669455.1291^226395.721^637206.1201
|
---|
| 38 | ;;RSUM^450281.1021^457431.1031^682248.1231^1100438.1731^638394.1181^812690.1581^271599.841^16624.241^15742.211^42941.371^43014.371^36267.331^133634.561^269030.781^1105.61^267423.971^139109.681^14834.211^316737.1041
|
---|
| 39 | ;;RSUM^136705.671^14834.211^150.21^91051.541^99882.571^69579.481^264693.911^290803.961^194.21^150.21^4050.111^150.21^3971.101^102295.591^84418.501^194.21^150.21^8617.161^150.21^3266.91^128979.651^174506.741
|
---|
| 40 | ;;RSUM^150.21
|
---|
| 41 | ;;RND^OCXOCMPT^2/02/99 13:13
|
---|
| 42 | ;;RTN^OCXOCMPU^2/02/99 11:33
|
---|
| 43 | ;;RSUM^150.21^194.21^150.21^3719.101^150.21^83326.481^150.21^3973.111^57115.411^150.21^5979.131^492298.1121^118619.631^8066.171^297558.931^7118.161^150.21^54990.411^75533.471^150.21^194.21^150.21^1290.61
|
---|
| 44 | ;;RSUM^150.21^83326.481^150.21^19937.261^3002.111^150.21^124743.611^224345.911^33407.351^130961.641^136929.661^111427.611^3002.111^150.21^7473.151^143022.691^173527.781^491070.1241^3585.121^150.21^7495.161
|
---|
| 45 | ;;RSUM^3002.111^150.21^13563.211^94416.561^47375.381^60560.441^60552.441^12871.211^88402.541^5991.131^80938.531^64555.471^77893.451^4291.131^3002.111^150.21^194.21^150.21^65625.471^150.21^7336.151^37467.361
|
---|
| 46 | ;;RSUM^194.21^150.21
|
---|
| 47 | ;;RND^OCXOCMPU^2/02/99 11:33
|
---|
| 48 | ;;RTN^OCXOCMPV^2/02/99 16:06
|
---|
| 49 | ;;RSUM^150.21^864.51^51297.371^186730.711^20614.241^12620.201^338598.1031^150.21^25369.221^150.21^92678.461^78860.421^150.21^100108.541^150.21^369462.961^300699.881^296526.901^257706.841^341940.951^150.21
|
---|
| 50 | ;;RSUM^317097.851^150.21^3838.101^344246.941^39409.331^7497.161^150.21^12620.201^150.21^194.21^150.21^4857.121^20348.251^53002.391^194.21^150.21^6678.141^14046.191^20348.251^53002.391^9177.151^194.21^150.21
|
---|
| 51 | ;;RSUM^16993.231^150.21^7145.141^150.21^5379.121^150.21^11315.191^19787.241^50984.401^46439.381^146212.581^150.21^19605.241^67911.421^96969.491^122586.621^148296.681^104853.631^599.51^20381.251^34619.351
|
---|
| 52 | ;1;
|
---|
| 53 | ;
|
---|