OCXDI00J.m

OCXDI00J ;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 ^OCXDI00K

 ;

 Q

 ;

DATA ;

 ;

 ;;RSUM^41175.371^45400.351^33509.331^33431.331^132902.671^150.21^81117.501^150.21^194.21^150.21^5864.141^150.21^3398.111^1954.91^4423.111^92853.561^39289.371^1872.71^150.21^197485.771^150.21^24345.271^41556.331

 ;;RSUM^9601.181^6555.141^25920.291^25984.291^17250.251^1992.71^70433.471^646.41^150.21

 ;;RND^OCXOEDT6^5/27/99  16:52

 ;;RTN^OCXOENV^10/29/98  12:37

 ;;RSUM^150.21^150.21^557.41^150.21^194.21^1740.71^194.21

 ;;RND^OCXOENV^10/29/98  12:37

 ;;RTN^OCXOEPS^10/29/98  12:37

 ;;RSUM^150.21^150.21^194.21^38560.331^150.21^11918.171^27492.331^19228.241^52234.381^194.21^33627.311^150.21^19599.221^27492.331^4773.121^52234.381^81860.481^127853.621^15376.241^194.21^150.21^45975.361^150.21

 ;;RSUM^150.21^7064.151^15468.201^235438.701^157075.681^2628.81^39603.361^150.21^150.21^89952.511^26105.261^150.21^7322.141^42908.361^1830.71^150.21^17298.231^33759.311^150.21^34593.311^150.21^51954.381^150.21

 ;;RSUM^25306.261^150.21^194.21^150.21^150.21^2523.91^6727.131^14641.221^323976.1021^32323.341^120856.701^482.41^150.21^13985.201^150.21^14109.171^150.21^39768.351^61169.441^2617.81^10384.171^28641.281^29074.281

 ;;RSUM^75805.481^150.21^1964.71^150.21^150.21^146956.571^150.21^6609.141^14086.201^150.21

 ;;RND^OCXOEPS^10/29/98  12:37

 ;;RTN^OCXOERR^10/29/98  12:37

 ;;RSUM^150.21^150.21^194.21^18653.231^150.21^11918.171^27492.331^19228.241^20776.241^194.21^9875.171^150.21^19599.221^27492.331^4773.121^20776.241^81860.481^127853.621^15376.241^194.21^150.21^16929.221^150.21

 ;;RSUM^7064.151^15468.201^235438.701^157075.681^2628.81^39603.361^150.21^89952.511^26105.261^150.21^7470.141^42908.361^1830.71^150.21^17298.231^36860.321^150.21^20157.241^150.21^51954.381^150.21^25306.261

 ;;RSUM^150.21^194.21^150.21^2523.91^6727.131^14641.221^323976.1021^32323.341^120856.701^482.41^150.21^5672.131^14109.171^150.21^39768.351^61169.441^8690.151^10384.171^28553.281^76409.481^150.21^1964.71^150.21

 ;;RSUM^146956.571^150.21^15459.211^22794.251^194.21^150.21^4815.121^14939.211^25813.271^150.21

 ;;RND^OCXOERR^10/29/98  12:37

 ;;RTN^OCXOHL7^10/29/98  12:37

 ;;RSUM^150.21^150.21^194.21^18682.231^150.21^39025.321^27492.331^19228.241^22344.251^194.21^9906.171^150.21^52127.371^27492.331^4773.121^22344.251^81860.481^127853.621^15376.241^194.21^150.21^16956.221^150.21

 ;;RSUM^7064.151^15468.201^235438.701^157075.681^2628.81^39603.361^150.21^106853.541^93699.501^150.21^132661.651^150.21^377932.1111^114800.611^150.21^4291.101^150.21^20346.241^150.21^38155.331^150.21^10749.191

 ;;RSUM^14921.221^15031.221^49368.381^150.21^107288.571^84551.481^194215.791^301.31^28029.301^28939.281^162779.711^83869.511^451246.1181^17375.221^301.31^25698.271^110728.561^301.31^384235.1081^50048.381^38151.341

 ;;RSUM^150.21^23917.261^117684.591^150.21^25306.261^150.21^194.21^150.21^2523.91^6727.131^14641.221^323976.1021^32323.341^120856.701^482.41^150.21^5770.131^14109.171^150.21^254965.881^61169.441^8690.151^202406.731

 ;;RSUM^23917.261^71575.471^150.21^4051.111^6319.131^14483.211^6624.131^99478.591^11566.191^236286.871^194.21^150.21^1964.71^150.21^146956.571^150.21^150.21^7558.151^150.21^41471.341^59007.431^288719.961^4981.121

 ;;RSUM^150.21^48260.391^48306.391^48352.391^150.21^18544.241^150.21^96196.561^150.21^482.41^150.21^15484.211^24410.261^194.21^150.21^4836.121^12953.191^194.21^150.21

 ;;RND^OCXOHL7^10/29/98  12:37

 ;;RTN^OCXOLOC^10/29/98  12:37

 ;;RSUM^150.21^150.21^194.21^38120.291^194.21^150.21

 ;;RND^OCXOLOC^10/29/98  12:37

 ;;RTN^OCXOLOG^10/29/98  12:37

 ;;RSUM^150.21^23444.261^150.21^14962.211^16878.221^7852.151^11535.181^150.21^105923.581^304417.1011^150.21^25946.271^150.21^11118.191^9295.161^15323.211^8839.171^49079.391^34944.361^25120.271^135481.671^139719.671

 ;;RSUM^150.21^83543.531^4203.101^20086.241^95981.551^12300.181^13911.211^60143.451^45693.371^45082.351^150.21^164172.711^150.21^18755.231^29623.311^68157.501^27416.301^150.21^11952.191^150.21^109757.561^150.21

 ;;RSUM^25940.271^150.21^1980.71^150.21^6554.141^150.21^269125.911^194.21^150.21^25738.311^150.21^181766.771^150.21^233031.951^150.21^54255.431^150.21^86865.561^150.21^140977.551^59826.351^87825.551^35145.331

 ;;RSUM^194.21^150.21

 ;;RND^OCXOLOG^10/29/98  12:37

 ;1;

 ;

OCXDI00J  ;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 ^OCXDI00K

 +10      ;

 +11       QUIT 

 +12      ;

DATA      ;

 +1       ;

 +2       ;;RSUM^41175.371^45400.351^33509.331^33431.331^132902.671^150.21^81117.501^150.21^194.21^150.21^5864.141^150.21^3398.111^1954.91^4423.111^92853.561^39289.371^1872.71^150.21^197485.771^150.21^24345.271^41556.331

 +3       ;;RSUM^9601.181^6555.141^25920.291^25984.291^17250.251^1992.71^70433.471^646.41^150.21

 +4       ;;RND^OCXOEDT6^5/27/99  16:52

 +5       ;;RTN^OCXOENV^10/29/98  12:37

 +6       ;;RSUM^150.21^150.21^557.41^150.21^194.21^1740.71^194.21

 +7       ;;RND^OCXOENV^10/29/98  12:37

 +8       ;;RTN^OCXOEPS^10/29/98  12:37

 +9       ;;RSUM^150.21^150.21^194.21^38560.331^150.21^11918.171^27492.331^19228.241^52234.381^194.21^33627.311^150.21^19599.221^27492.331^4773.121^52234.381^81860.481^127853.621^15376.241^194.21^150.21^45975.361^150.21

 +10      ;;RSUM^150.21^7064.151^15468.201^235438.701^157075.681^2628.81^39603.361^150.21^150.21^89952.511^26105.261^150.21^7322.141^42908.361^1830.71^150.21^17298.231^33759.311^150.21^34593.311^150.21^51954.381^150.21

 +11      ;;RSUM^25306.261^150.21^194.21^150.21^150.21^2523.91^6727.131^14641.221^323976.1021^32323.341^120856.701^482.41^150.21^13985.201^150.21^14109.171^150.21^39768.351^61169.441^2617.81^10384.171^28641.281^29074.281

 +12      ;;RSUM^75805.481^150.21^1964.71^150.21^150.21^146956.571^150.21^6609.141^14086.201^150.21

 +13      ;;RND^OCXOEPS^10/29/98  12:37

 +14      ;;RTN^OCXOERR^10/29/98  12:37

 +15      ;;RSUM^150.21^150.21^194.21^18653.231^150.21^11918.171^27492.331^19228.241^20776.241^194.21^9875.171^150.21^19599.221^27492.331^4773.121^20776.241^81860.481^127853.621^15376.241^194.21^150.21^16929.221^150.21

 +16      ;;RSUM^7064.151^15468.201^235438.701^157075.681^2628.81^39603.361^150.21^89952.511^26105.261^150.21^7470.141^42908.361^1830.71^150.21^17298.231^36860.321^150.21^20157.241^150.21^51954.381^150.21^25306.261

 +17      ;;RSUM^150.21^194.21^150.21^2523.91^6727.131^14641.221^323976.1021^32323.341^120856.701^482.41^150.21^5672.131^14109.171^150.21^39768.351^61169.441^8690.151^10384.171^28553.281^76409.481^150.21^1964.71^150.21

 +18      ;;RSUM^146956.571^150.21^15459.211^22794.251^194.21^150.21^4815.121^14939.211^25813.271^150.21

 +19      ;;RND^OCXOERR^10/29/98  12:37

 +20      ;;RTN^OCXOHL7^10/29/98  12:37

 +21      ;;RSUM^150.21^150.21^194.21^18682.231^150.21^39025.321^27492.331^19228.241^22344.251^194.21^9906.171^150.21^52127.371^27492.331^4773.121^22344.251^81860.481^127853.621^15376.241^194.21^150.21^16956.221^150.21

 +22      ;;RSUM^7064.151^15468.201^235438.701^157075.681^2628.81^39603.361^150.21^106853.541^93699.501^150.21^132661.651^150.21^377932.1111^114800.611^150.21^4291.101^150.21^20346.241^150.21^38155.331^150.21^10749.191

 +23      ;;RSUM^14921.221^15031.221^49368.381^150.21^107288.571^84551.481^194215.791^301.31^28029.301^28939.281^162779.711^83869.511^451246.1181^17375.221^301.31^25698.271^110728.561^301.31^384235.1081^50048.381^38151.341

 +24      ;;RSUM^150.21^23917.261^117684.591^150.21^25306.261^150.21^194.21^150.21^2523.91^6727.131^14641.221^323976.1021^32323.341^120856.701^482.41^150.21^5770.131^14109.171^150.21^254965.881^61169.441^8690.151^202406.731

 +25      ;;RSUM^23917.261^71575.471^150.21^4051.111^6319.131^14483.211^6624.131^99478.591^11566.191^236286.871^194.21^150.21^1964.71^150.21^146956.571^150.21^150.21^7558.151^150.21^41471.341^59007.431^288719.961^4981.121

 +26      ;;RSUM^150.21^48260.391^48306.391^48352.391^150.21^18544.241^150.21^96196.561^150.21^482.41^150.21^15484.211^24410.261^194.21^150.21^4836.121^12953.191^194.21^150.21

 +27      ;;RND^OCXOHL7^10/29/98  12:37

 +28      ;;RTN^OCXOLOC^10/29/98  12:37

 +29      ;;RSUM^150.21^150.21^194.21^38120.291^194.21^150.21

 +30      ;;RND^OCXOLOC^10/29/98  12:37

 +31      ;;RTN^OCXOLOG^10/29/98  12:37

 +32      ;;RSUM^150.21^23444.261^150.21^14962.211^16878.221^7852.151^11535.181^150.21^105923.581^304417.1011^150.21^25946.271^150.21^11118.191^9295.161^15323.211^8839.171^49079.391^34944.361^25120.271^135481.671^139719.671

 +33      ;;RSUM^150.21^83543.531^4203.101^20086.241^95981.551^12300.181^13911.211^60143.451^45693.371^45082.351^150.21^164172.711^150.21^18755.231^29623.311^68157.501^27416.301^150.21^11952.191^150.21^109757.561^150.21

 +34      ;;RSUM^25940.271^150.21^1980.71^150.21^6554.141^150.21^269125.911^194.21^150.21^25738.311^150.21^181766.771^150.21^233031.951^150.21^54255.431^150.21^86865.561^150.21^140977.551^59826.351^87825.551^35145.331

 +35      ;;RSUM^194.21^150.21

 +36      ;;RND^OCXOLOG^10/29/98  12:37

 +37      ;1;

 +38      ;