OCXDI00M.m

OCXDI00M ;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 ^OCXDI00N

 ;

 Q

 ;

DATA ;

 ;

 ;;RSUM^6228.131^2148.71^13025.201^30892.301^15996.211^11197.211^5675.121^11214.211^3334.91^2148.71^19164.231^11197.211^7628.141^11214.211^2077.71^9294.191^5650.121^25223.321^8308.151^22271.301^9142.151^25246.321

 ;;RSUM^4330.101^22294.301^41767.291^25269.321^533.41^150.21

 ;;RND^OCXRU002^APR 30,1999 at 15:06

 ;;RTN^OCXRU003^APR 30,1999 at 15:06

 ;;RSUM^150.21^324.31^150.21^8084.141^150.21^150.21^24215.261^190137.791^105365.591^150.21^5112.121^150.21^194.21^150.21^1224.61^150.21^31105.291^22317.301^2117.81^25292.321^10832.171^22340.301^247489.751

 ;;RSUM^25315.321^9041.151^22363.301^61704.351^25338.321^16637.211^22386.301^1357.61^2148.71^15944.211^11197.211^5650.121^11214.211^5650.121^26801.331^18321.221^23755.311^218797.701^26825.331^9201.151^23779.311

 ;;RSUM^1417.61^26849.331^9041.151^23803.311^29399.241^25361.321^8308.151^22409.301^11621.171^25384.321^4330.101^22432.301^15804.181^25407.321^10832.171^22455.301^1261.61^2148.71^16288.211^11197.211^5796.121

 ;;RSUM^11214.211^5796.121^9294.191^5650.121^25223.321^8308.151^22271.301^9324.151^25246.321^4330.101^22294.301^17851.191^25269.321^9041.151^22317.301^32094.251^25292.321^16637.211^22340.301^1357.61^2148.71

 ;;RSUM^12921.201^47754.371^52503.391^11254.211^31581.301^11271.211^20447.231^9366.191^10791.171^25445.321^18863.231^25469.321^1363.61^2148.71^50715.381^11254.211^30180.291^11271.211^20447.231^9366.191^9751.161

 ;;RSUM^25445.321^18863.231^25469.321^1363.61^2148.71^46326.361^11254.211^26844.271^11271.211^20447.231^9366.191^9691.161^25445.321^18863.231^25469.321^1363.61^25468.321^16880.211^25492.321^1369.61^2148.71

 ;;RSUM^41038.341^11254.211^22888.251^11271.211^20447.231^9366.191^8379.151^25445.321^18863.231^25469.321^1363.61^25468.321^16880.211^25492.321^1369.61^2148.71^54675.391^11254.211^33195.301^11271.211^20447.231

 ;;RSUM^9366.191^11038.171^25445.321^18863.231^25469.321^1363.61^25468.321^16880.211^25492.321^1369.61^2148.71^13008.201^57226.401^18134.221^11276.211^6872.131^11293.211^7628.141^11327.211^6872.131^25467.321

 ;;RSUM^37247.321^22515.301^26844.271^2148.71^24066.261^11276.211^10806.171^11293.211^7628.141^11327.211^9450.161^25490.321^37247.321^22538.301^22888.251^25465.321^4988.111^2148.71^25757.271^11276.211^11840.181

 ;;RSUM^11293.211^5675.121^11310.211^31581.301^11327.211^6353.131^25444.321^37247.321^22492.301^31581.301^25465.321^3989.101^2148.71^24485.261^11276.211^10955.171^11293.211^5675.121^11310.211^30180.291^11327.211

 ;;RSUM^5683.121^25444.321^37247.321^22492.301^30180.291^25465.321^3448.91^533.41^150.21

 ;;RND^OCXRU003^APR 30,1999 at 15:06

 ;;RTN^OCXRU004^APR 30,1999 at 15:07

 ;;RSUM^150.21^324.31^150.21^8084.141^150.21^150.21^24215.261^190137.791^105365.591^150.21^5124.121^150.21^194.21^150.21^1224.61^150.21^2148.71^23375.251^11276.211^10115.161^11293.211^7628.141^11327.211^10115.161

 ;;RSUM^25490.321^37247.321^22538.301^33195.301^25465.321^9815.161^2148.71^13042.201^33540.311^14637.201^11221.211^4884.111^25289.321^7507.141^22337.301^7628.141^2148.71^20228.241^11221.211^8360.151^11238.211

 ;;RSUM^6647.131^25289.321^7507.141^22337.301^7628.141^2148.71^10333.171^11221.211^2614.81^25289.321^7507.141^22337.301^5796.121^2148.71^20927.241^11221.211^8708.151^25289.321^7507.141^22337.301^7628.141^2148.71

 ;;RSUM^20476.241^11221.211^8392.151^25289.321^7507.141^22337.301^7628.141^2148.71^34865.311^11221.211^18218.221^25289.321^7507.141^22337.301^7628.141^2148.71^28004.291^11221.211^13616.201^25289.321^7507.141

 ;;RSUM^22337.301^5675.121^2148.71^12957.201^28528.291^16401.211^11199.211^5889.121^25227.321^3229.91^22275.301^1369.61^2148.71^12923.201^22242.261^37931.321^11210.211^20297.231^11227.211^5889.121^11261.211

 ;;RSUM^2473.81^11278.211^8360.151^25279.321^30000.291^25302.321^34849.311^22350.301^1369.61^25325.321^18940.231^22373.301^15108.221^25348.321^20206.241^25371.321^26577.271^22419.301^2473.81^25394.321^18179.221

 ;;RSUM^2148.71^48996.361^11210.211^28455.271^11227.211^5889.121^11261.211^2473.81^11278.211^2614.81^11295.211^1810.71^25279.321^20206.241^25302.321^30000.291^25325.321^18940.231^22373.301^14989.221^2148.71

 ;;RSUM^22710.251^11210.211^9792.161^11227.211^5889.121^11278.211^2614.81^11295.211^1810.71^25279.321^18940.231^22327.301^2591.81^2148.71^38888.321^11210.211^20903.231^11227.211^5889.121^11261.211^2767.81

 ;1;

 ;

OCXDI00M  ;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 ^OCXDI00N

 +10      ;

 +11       QUIT 

 +12      ;

DATA      ;

 +1       ;

 +2       ;;RSUM^6228.131^2148.71^13025.201^30892.301^15996.211^11197.211^5675.121^11214.211^3334.91^2148.71^19164.231^11197.211^7628.141^11214.211^2077.71^9294.191^5650.121^25223.321^8308.151^22271.301^9142.151^25246.321

 +3       ;;RSUM^4330.101^22294.301^41767.291^25269.321^533.41^150.21

 +4       ;;RND^OCXRU002^APR 30,1999 at 15:06

 +5       ;;RTN^OCXRU003^APR 30,1999 at 15:06

 +6       ;;RSUM^150.21^324.31^150.21^8084.141^150.21^150.21^24215.261^190137.791^105365.591^150.21^5112.121^150.21^194.21^150.21^1224.61^150.21^31105.291^22317.301^2117.81^25292.321^10832.171^22340.301^247489.751

 +7       ;;RSUM^25315.321^9041.151^22363.301^61704.351^25338.321^16637.211^22386.301^1357.61^2148.71^15944.211^11197.211^5650.121^11214.211^5650.121^26801.331^18321.221^23755.311^218797.701^26825.331^9201.151^23779.311

 +8       ;;RSUM^1417.61^26849.331^9041.151^23803.311^29399.241^25361.321^8308.151^22409.301^11621.171^25384.321^4330.101^22432.301^15804.181^25407.321^10832.171^22455.301^1261.61^2148.71^16288.211^11197.211^5796.121

 +9       ;;RSUM^11214.211^5796.121^9294.191^5650.121^25223.321^8308.151^22271.301^9324.151^25246.321^4330.101^22294.301^17851.191^25269.321^9041.151^22317.301^32094.251^25292.321^16637.211^22340.301^1357.61^2148.71

 +10      ;;RSUM^12921.201^47754.371^52503.391^11254.211^31581.301^11271.211^20447.231^9366.191^10791.171^25445.321^18863.231^25469.321^1363.61^2148.71^50715.381^11254.211^30180.291^11271.211^20447.231^9366.191^9751.161

 +11      ;;RSUM^25445.321^18863.231^25469.321^1363.61^2148.71^46326.361^11254.211^26844.271^11271.211^20447.231^9366.191^9691.161^25445.321^18863.231^25469.321^1363.61^25468.321^16880.211^25492.321^1369.61^2148.71

 +12      ;;RSUM^41038.341^11254.211^22888.251^11271.211^20447.231^9366.191^8379.151^25445.321^18863.231^25469.321^1363.61^25468.321^16880.211^25492.321^1369.61^2148.71^54675.391^11254.211^33195.301^11271.211^20447.231

 +13      ;;RSUM^9366.191^11038.171^25445.321^18863.231^25469.321^1363.61^25468.321^16880.211^25492.321^1369.61^2148.71^13008.201^57226.401^18134.221^11276.211^6872.131^11293.211^7628.141^11327.211^6872.131^25467.321

 +14      ;;RSUM^37247.321^22515.301^26844.271^2148.71^24066.261^11276.211^10806.171^11293.211^7628.141^11327.211^9450.161^25490.321^37247.321^22538.301^22888.251^25465.321^4988.111^2148.71^25757.271^11276.211^11840.181

 +15      ;;RSUM^11293.211^5675.121^11310.211^31581.301^11327.211^6353.131^25444.321^37247.321^22492.301^31581.301^25465.321^3989.101^2148.71^24485.261^11276.211^10955.171^11293.211^5675.121^11310.211^30180.291^11327.211

 +16      ;;RSUM^5683.121^25444.321^37247.321^22492.301^30180.291^25465.321^3448.91^533.41^150.21

 +17      ;;RND^OCXRU003^APR 30,1999 at 15:06

 +18      ;;RTN^OCXRU004^APR 30,1999 at 15:07

 +19      ;;RSUM^150.21^324.31^150.21^8084.141^150.21^150.21^24215.261^190137.791^105365.591^150.21^5124.121^150.21^194.21^150.21^1224.61^150.21^2148.71^23375.251^11276.211^10115.161^11293.211^7628.141^11327.211^10115.161

 +20      ;;RSUM^25490.321^37247.321^22538.301^33195.301^25465.321^9815.161^2148.71^13042.201^33540.311^14637.201^11221.211^4884.111^25289.321^7507.141^22337.301^7628.141^2148.71^20228.241^11221.211^8360.151^11238.211

 +21      ;;RSUM^6647.131^25289.321^7507.141^22337.301^7628.141^2148.71^10333.171^11221.211^2614.81^25289.321^7507.141^22337.301^5796.121^2148.71^20927.241^11221.211^8708.151^25289.321^7507.141^22337.301^7628.141^2148.71

 +22      ;;RSUM^20476.241^11221.211^8392.151^25289.321^7507.141^22337.301^7628.141^2148.71^34865.311^11221.211^18218.221^25289.321^7507.141^22337.301^7628.141^2148.71^28004.291^11221.211^13616.201^25289.321^7507.141

 +23      ;;RSUM^22337.301^5675.121^2148.71^12957.201^28528.291^16401.211^11199.211^5889.121^25227.321^3229.91^22275.301^1369.61^2148.71^12923.201^22242.261^37931.321^11210.211^20297.231^11227.211^5889.121^11261.211

 +24      ;;RSUM^2473.81^11278.211^8360.151^25279.321^30000.291^25302.321^34849.311^22350.301^1369.61^25325.321^18940.231^22373.301^15108.221^25348.321^20206.241^25371.321^26577.271^22419.301^2473.81^25394.321^18179.221

 +25      ;;RSUM^2148.71^48996.361^11210.211^28455.271^11227.211^5889.121^11261.211^2473.81^11278.211^2614.81^11295.211^1810.71^25279.321^20206.241^25302.321^30000.291^25325.321^18940.231^22373.301^14989.221^2148.71

 +26      ;;RSUM^22710.251^11210.211^9792.161^11227.211^5889.121^11278.211^2614.81^11295.211^1810.71^25279.321^18940.231^22327.301^2591.81^2148.71^38888.321^11210.211^20903.231^11227.211^5889.121^11261.211^2767.81

 +27      ;1;

 +28      ;