OCXDI009 ;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 ^OCXDI00A
;
Q
;
DATA ;
;
;;RSUM^13788.221^8644.151^12048.211^63846.481^266286.901^150.21^102625.571^150.21^176832.771^49592.391^57829.431^1940.71^150.21^63445.461^150.21^182652.771^150.21^1919.81^102913.591^172114.771^14292.211^546.41
;;RSUM^150.21^4806.121^150.21^4873.111^16407.221^329524.1101^244918.931^92555.571^1486.61^150.21^5644.131^8637.151^39552.361^24563.271^54320.421^62102.451^131514.651^16720.211^5005.141^1866.71^23700.291^260783.781
;;RSUM^296149.841^68576.501^150.21^117528.661^77312.511^1993.71^150.21^5569.131^150.21^4873.111^197981.811^311500.1021^1486.61^150.21
;;RND^OCXOCMPC^10/29/98 12:37
;;RTN^OCXOCMPD^1/12/99 14:45
;;RSUM^150.21^1023.61^150.21^25129.271^150.21^196550.791^37643.341^386467.1121^166638.681^137275.641^101945.531^498.41^263206.921^20761.261^714809.1491^77218.501^16199.231^437159.1171^498.41^124611.651^24097.281
;;RSUM^386892.1121^477700.1211^43701.361^498.41^34886.341^143124.681^151530.701^498.41^834599.1571^91469.551^24119.281^498.41^32615.351^498.41^134824.681^279529.791^283115.801^192308.721^498.41^39951.371
;;RSUM^15016.201^56271.431^59193.441^741.51^25897.291^74957.491^17435.241^264125.811^127369.561^29591.311^90486.531^264125.811^226670.751^29591.311^90958.511^214572.821^354688.931^27721.301^50022.391^129240.631
;;RSUM^85622.531^168050.741^222271.861^197914.791^245774.901^741.51^16922.231^364423.1031^354688.931^28724.311^403398.1131^177206.761^156974.711^229741.871^233181.861^498.41^35109.331^498.41^404034.1061^498.41
;;RSUM^15199.231^37903.381^91102.511^1075116.1881^81529.491^58071.441^498.41^88115.501^71350.451^498.41^57646.401^498.41^154047.691^109596.601^4150.111^841409.1671^848681.1671^841005.1671^555604.1301^253637.931
;;RSUM^245429.881^150.21^4116.101^150.21
;;RND^OCXOCMPD^1/12/99 14:45
;;RTN^OCXOCMPE^10/29/98 12:37
;;RSUM^150.21^557.41^150.21^194.21^150.21^18944.241^150.21^4133.101^114237.581^366867.1041^199558.781^366959.1041^150.21^521985.1231^109596.571^199211.781^150.21^701322.1391^113496.581^209968.801^150.21^701298.1391
;;RSUM^113488.581^209834.801^150.21^30866.301^210951.831^208550.841^77863.501^54253.411^21882.261^3686.101^322995.1001^273806.941^31561.321^194.21^150.21^150.21^21215.251^55195.451^21220.241^388453.1111^20114.271
;;RSUM^84497.511^42630.381^3579.111^90928.521^47025.391^3523.111^327245.1031^7058.161^57706.431^150.21^20956.251^150.21^105629.541^150.21^105507.601^172047.741^150.21^278977.971^411603.1171^320997.1001^355075.1051
;;RSUM^17580.261^368290.1091^150.21^20393.251^273042.921^1108581.1871^13714.191^5166.131^150.21^354897.1091^259716.901^121427.641^360515.1021^375919.1081^60056.471^150.21^34858.331^150.21^57488.441^150.21
;;RSUM^3889.101^1922.81^150.21^18035.231^150.21^134789.641^88173.501^194.21
;;RND^OCXOCMPE^10/29/98 12:37
;;RTN^OCXOCMPF^10/29/98 12:37
;;RSUM^150.21^194.21^150.21^25144.281^12678.181^40274.371^14862.211^99014.591^8425.171^440082.1061^161906.701^359550.1011^203034.771^79410.531^194.21^150.21^5696.131^150.21^51210.371^358909.1071^368143.1081
;;RSUM^4420.121^117865.591^24788.261^494568.1271^168394.721^150.21^5981.141^150.21^12006.171^150.21^21215.251^55195.451^21220.241^388453.1111^20114.271^84497.511^42630.381^3579.111^90928.521^47025.391^3523.111
;;RSUM^327245.1031^4120.121^57706.431^150.21^5644.131^3970.101^150.21^50703.441^1866.71^23700.291^535579.1191^34172.321^68576.501^150.21^101018.611^14264.231^101118.611^14285.231^150.21^101675.621^150.21
;;RSUM^44012.391^22024.261^150.21^45813.401^13386.201^150.21^1486.61^150.21^1002212.1561^150.21^15084.211^150.21^20367.241^186890.761^149377.701^12644.181^219537.831^123242.621^119602.621^23449.251^7425.161
;;RSUM^149827.701^213429.851^80959.511^56830.421^23527.271^4395.111^150.21^3872.101^150.21
;;RND^OCXOCMPF^10/29/98 12:37
;;RTN^OCXOCMPG^1/12/99 14:45
;;RSUM^150.21^9881.171^150.21^11125.171^19137.251^5397.131^150.21^44142.371^36441.341^20757.261^102378.571^159999.721^169863.761^179814.761^136863.661^172669.771^79092.501^251324.901^80596.531^345369.1061
;;RSUM^410763.1121^10622.181^66659.481^41476.361^27796.311^402833.1091^215076.801^269597.931^75484.551^115261.581^108999.591^93789.591^106258.601^143603.691^678230.1461^372622.971^150.21^36115.341^20757.261
;1;
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HOCXDI009 4659 printed Oct 16, 2024@18:23:18 Page 2
OCXDI009 ;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 ^OCXDI00A
+10 ;
+11 QUIT
+12 ;
DATA ;
+1 ;
+2 ;;RSUM^13788.221^8644.151^12048.211^63846.481^266286.901^150.21^102625.571^150.21^176832.771^49592.391^57829.431^1940.71^150.21^63445.461^150.21^182652.771^150.21^1919.81^102913.591^172114.771^14292.211^546.41
+3 ;;RSUM^150.21^4806.121^150.21^4873.111^16407.221^329524.1101^244918.931^92555.571^1486.61^150.21^5644.131^8637.151^39552.361^24563.271^54320.421^62102.451^131514.651^16720.211^5005.141^1866.71^23700.291^260783.781
+4 ;;RSUM^296149.841^68576.501^150.21^117528.661^77312.511^1993.71^150.21^5569.131^150.21^4873.111^197981.811^311500.1021^1486.61^150.21
+5 ;;RND^OCXOCMPC^10/29/98 12:37
+6 ;;RTN^OCXOCMPD^1/12/99 14:45
+7 ;;RSUM^150.21^1023.61^150.21^25129.271^150.21^196550.791^37643.341^386467.1121^166638.681^137275.641^101945.531^498.41^263206.921^20761.261^714809.1491^77218.501^16199.231^437159.1171^498.41^124611.651^24097.281
+8 ;;RSUM^386892.1121^477700.1211^43701.361^498.41^34886.341^143124.681^151530.701^498.41^834599.1571^91469.551^24119.281^498.41^32615.351^498.41^134824.681^279529.791^283115.801^192308.721^498.41^39951.371
+9 ;;RSUM^15016.201^56271.431^59193.441^741.51^25897.291^74957.491^17435.241^264125.811^127369.561^29591.311^90486.531^264125.811^226670.751^29591.311^90958.511^214572.821^354688.931^27721.301^50022.391^129240.631
+10 ;;RSUM^85622.531^168050.741^222271.861^197914.791^245774.901^741.51^16922.231^364423.1031^354688.931^28724.311^403398.1131^177206.761^156974.711^229741.871^233181.861^498.41^35109.331^498.41^404034.1061^498.41
+11 ;;RSUM^15199.231^37903.381^91102.511^1075116.1881^81529.491^58071.441^498.41^88115.501^71350.451^498.41^57646.401^498.41^154047.691^109596.601^4150.111^841409.1671^848681.1671^841005.1671^555604.1301^253637.931
+12 ;;RSUM^245429.881^150.21^4116.101^150.21
+13 ;;RND^OCXOCMPD^1/12/99 14:45
+14 ;;RTN^OCXOCMPE^10/29/98 12:37
+15 ;;RSUM^150.21^557.41^150.21^194.21^150.21^18944.241^150.21^4133.101^114237.581^366867.1041^199558.781^366959.1041^150.21^521985.1231^109596.571^199211.781^150.21^701322.1391^113496.581^209968.801^150.21^701298.1391
+16 ;;RSUM^113488.581^209834.801^150.21^30866.301^210951.831^208550.841^77863.501^54253.411^21882.261^3686.101^322995.1001^273806.941^31561.321^194.21^150.21^150.21^21215.251^55195.451^21220.241^388453.1111^20114.271
+17 ;;RSUM^84497.511^42630.381^3579.111^90928.521^47025.391^3523.111^327245.1031^7058.161^57706.431^150.21^20956.251^150.21^105629.541^150.21^105507.601^172047.741^150.21^278977.971^411603.1171^320997.1001^355075.1051
+18 ;;RSUM^17580.261^368290.1091^150.21^20393.251^273042.921^1108581.1871^13714.191^5166.131^150.21^354897.1091^259716.901^121427.641^360515.1021^375919.1081^60056.471^150.21^34858.331^150.21^57488.441^150.21
+19 ;;RSUM^3889.101^1922.81^150.21^18035.231^150.21^134789.641^88173.501^194.21
+20 ;;RND^OCXOCMPE^10/29/98 12:37
+21 ;;RTN^OCXOCMPF^10/29/98 12:37
+22 ;;RSUM^150.21^194.21^150.21^25144.281^12678.181^40274.371^14862.211^99014.591^8425.171^440082.1061^161906.701^359550.1011^203034.771^79410.531^194.21^150.21^5696.131^150.21^51210.371^358909.1071^368143.1081
+23 ;;RSUM^4420.121^117865.591^24788.261^494568.1271^168394.721^150.21^5981.141^150.21^12006.171^150.21^21215.251^55195.451^21220.241^388453.1111^20114.271^84497.511^42630.381^3579.111^90928.521^47025.391^3523.111
+24 ;;RSUM^327245.1031^4120.121^57706.431^150.21^5644.131^3970.101^150.21^50703.441^1866.71^23700.291^535579.1191^34172.321^68576.501^150.21^101018.611^14264.231^101118.611^14285.231^150.21^101675.621^150.21
+25 ;;RSUM^44012.391^22024.261^150.21^45813.401^13386.201^150.21^1486.61^150.21^1002212.1561^150.21^15084.211^150.21^20367.241^186890.761^149377.701^12644.181^219537.831^123242.621^119602.621^23449.251^7425.161
+26 ;;RSUM^149827.701^213429.851^80959.511^56830.421^23527.271^4395.111^150.21^3872.101^150.21
+27 ;;RND^OCXOCMPF^10/29/98 12:37
+28 ;;RTN^OCXOCMPG^1/12/99 14:45
+29 ;;RSUM^150.21^9881.171^150.21^11125.171^19137.251^5397.131^150.21^44142.371^36441.341^20757.261^102378.571^159999.721^169863.761^179814.761^136863.661^172669.771^79092.501^251324.901^80596.531^345369.1061
+30 ;;RSUM^410763.1121^10622.181^66659.481^41476.361^27796.311^402833.1091^215076.801^269597.931^75484.551^115261.581^108999.591^93789.591^106258.601^143603.691^678230.1461^372622.971^150.21^36115.341^20757.261
+31 ;1;
+32 ;
