OCXDI00C ;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 ^OCXDI00D
;
Q
;
DATA ;
;
;;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
;;RSUM^150525.711^57706.431^150.21^5394.131^150.21^35535.351^379248.1141^2491.81
;;RND^OCXOCMPQ^10/29/98 12:37
;;RTN^OCXOCMPR^10/29/98 12:37
;;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
;;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
;;RSUM^23098.251^101382.531^121089.631^25495.311^287094.921^194.21^150.21^1810.71^194.21^150.21
;;RND^OCXOCMPR^10/29/98 12:37
;;RTN^OCXOCMPS^8/16/99 09:03
;;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
;;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
;;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
;;RND^OCXOCMPS^8/16/99 09:03
;;RTN^OCXOCMPT^2/02/99 13:13
;;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
;;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
;;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
;;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
;;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
;;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
;;RSUM^150.21
;;RND^OCXOCMPT^2/02/99 13:13
;;RTN^OCXOCMPU^2/02/99 11:33
;;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
;;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
;;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
;;RSUM^194.21^150.21
;;RND^OCXOCMPU^2/02/99 11:33
;;RTN^OCXOCMPV^2/02/99 16:06
;;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
;;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
;;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
;1;
;
OCXDI00C ;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 ^OCXDI00D
+10 ;
+11 QUIT
+12 ;
DATA ;
+1 ;
+2 ;;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
+3 ;;RSUM^150525.711^57706.431^150.21^5394.131^150.21^35535.351^379248.1141^2491.81
+4 ;;RND^OCXOCMPQ^10/29/98 12:37
+5 ;;RTN^OCXOCMPR^10/29/98 12:37
+6 ;;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
+7 ;;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
+8 ;;RSUM^23098.251^101382.531^121089.631^25495.311^287094.921^194.21^150.21^1810.71^194.21^150.21
+9 ;;RND^OCXOCMPR^10/29/98 12:37
+10 ;;RTN^OCXOCMPS^8/16/99 09:03
+11 ;;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
+12 ;;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
+13 ;;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
+14 ;;RND^OCXOCMPS^8/16/99 09:03
+15 ;;RTN^OCXOCMPT^2/02/99 13:13
+16 ;;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
+17 ;;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
+18 ;;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
+19 ;;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
+20 ;;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
+21 ;;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
+22 ;;RSUM^150.21
+23 ;;RND^OCXOCMPT^2/02/99 13:13
+24 ;;RTN^OCXOCMPU^2/02/99 11:33
+25 ;;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
+26 ;;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
+27 ;;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
+28 ;;RSUM^194.21^150.21
+29 ;;RND^OCXOCMPU^2/02/99 11:33
+30 ;;RTN^OCXOCMPV^2/02/99 16:06
+31 ;;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
+32 ;;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
+33 ;;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
+34 ;1;
+35 ;